?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
[PATCH] Make cpu_relax() imply barrier() on all arches
[linux-2.6/kvm.git] / drivers / ieee1394 / pcilynx.c
blobe6f41238f5e8c6c2f579cb5de5ae1fe0d66ce224
1 /*
2 * pcilynx.c - Texas Instruments PCILynx driver
3 * Copyright (C) 1999,2000 Andreas Bombe <andreas.bombe@munich.netsurf.de>,
4 * Stephan Linz <linz@mazet.de>
5 * Manfred Weihs <weihs@ict.tuwien.ac.at>
6 *
7 * This program is free software; you can redistribute it and/or modify
8 * it under the terms of the GNU General Public License as published by
9 * the Free Software Foundation; either version 2 of the License, or
10 * (at your option) any later version.
11 *
12 * This program is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 * GNU General Public License for more details.
16 *
17 * You should have received a copy of the GNU General Public License
18 * along with this program; if not, write to the Free Software Foundation,
19 * Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
20 */
21
22 /*
23 * Contributions:
24 *
25 * Manfred Weihs <weihs@ict.tuwien.ac.at>
26 * reading bus info block (containing GUID) from serial
27 * eeprom via i2c and storing it in config ROM
28 * Reworked code for initiating bus resets
29 * (long, short, with or without hold-off)
30 * Enhancements in async and iso send code
31 */
32
33 #include <linux/kernel.h>
34 #include <linux/slab.h>
35 #include <linux/interrupt.h>
36 #include <linux/wait.h>
37 #include <linux/errno.h>
38 #include <linux/module.h>
39 #include <linux/moduleparam.h>
40 #include <linux/init.h>
41 #include <linux/pci.h>
42 #include <linux/fs.h>
43 #include <linux/poll.h>
44 #include <linux/kdev_t.h>
45 #include <linux/dma-mapping.h>
46 #include <asm/byteorder.h>
47 #include <asm/atomic.h>
48 #include <asm/io.h>
49 #include <asm/uaccess.h>
50 #include <asm/irq.h>
51
52 #include "csr1212.h"
53 #include "ieee1394.h"
54 #include "ieee1394_types.h"
55 #include "hosts.h"
56 #include "ieee1394_core.h"
57 #include "highlevel.h"
58 #include "pcilynx.h"
59
60 #include <linux/i2c.h>
61 #include <linux/i2c-algo-bit.h>
62
63 /* print general (card independent) information */
64 #define PRINT_G(level, fmt, args...) printk(level "pcilynx: " fmt "\n" , ## args)
65 /* print card specific information */
66 #define PRINT(level, card, fmt, args...) printk(level "pcilynx%d: " fmt "\n" , card , ## args)
67
68 #ifdef CONFIG_IEEE1394_VERBOSEDEBUG
69 #define PRINT_GD(level, fmt, args...) printk(level "pcilynx: " fmt "\n" , ## args)
70 #define PRINTD(level, card, fmt, args...) printk(level "pcilynx%d: " fmt "\n" , card , ## args)
71 #else
72 #define PRINT_GD(level, fmt, args...) do {} while (0)
73 #define PRINTD(level, card, fmt, args...) do {} while (0)
74 #endif
75
76
77 /* Module Parameters */
78 static int skip_eeprom;
79 module_param(skip_eeprom, int, 0444);
80 MODULE_PARM_DESC(skip_eeprom, "Use generic bus info block instead of serial eeprom (default = 0).");
81
82
83 static struct hpsb_host_driver lynx_driver;
84 static unsigned int card_id;
85
86
87
88 /*
89 * I2C stuff
90 */
91
92 /* the i2c stuff was inspired by i2c-philips-par.c */
93
94 static void bit_setscl(void *data, int state)
95 {
96 if (state) {
97 ((struct ti_lynx *) data)->i2c_driven_state |= 0x00000040;
98 } else {
99 ((struct ti_lynx *) data)->i2c_driven_state &= ~0x00000040;
100 }
101 reg_write((struct ti_lynx *) data, SERIAL_EEPROM_CONTROL, ((struct ti_lynx *) data)->i2c_driven_state);
102 }
103
104 static void bit_setsda(void *data, int state)
105 {
106 if (state) {
107 ((struct ti_lynx *) data)->i2c_driven_state |= 0x00000010;
108 } else {
109 ((struct ti_lynx *) data)->i2c_driven_state &= ~0x00000010;
110 }
111 reg_write((struct ti_lynx *) data, SERIAL_EEPROM_CONTROL, ((struct ti_lynx *) data)->i2c_driven_state);
112 }
113
114 static int bit_getscl(void *data)
115 {
116 return reg_read((struct ti_lynx *) data, SERIAL_EEPROM_CONTROL) & 0x00000040;
117 }
118
119 static int bit_getsda(void *data)
120 {
121 return reg_read((struct ti_lynx *) data, SERIAL_EEPROM_CONTROL) & 0x00000010;
122 }
123
124 static int bit_reg(struct i2c_client *client)
125 {
126 return 0;
127 }
128
129 static int bit_unreg(struct i2c_client *client)
130 {
131 return 0;
132 }
133
134 static struct i2c_algo_bit_data bit_data = {
135 .setsda = bit_setsda,
136 .setscl = bit_setscl,
137 .getsda = bit_getsda,
138 .getscl = bit_getscl,
139 .udelay = 5,
140 .mdelay = 5,
141 .timeout = 100,
142 };
143
144 static struct i2c_adapter bit_ops = {
145 .id = 0xAA, //FIXME: probably we should get an id in i2c-id.h
146 .client_register = bit_reg,
147 .client_unregister = bit_unreg,
148 .name = "PCILynx I2C",
149 };
150
151
152
153 /*
154 * PCL handling functions.
155 */
156
157 static pcl_t alloc_pcl(struct ti_lynx *lynx)
158 {
159 u8 m;
160 int i, j;
161
162 spin_lock(&lynx->lock);
163 /* FIXME - use ffz() to make this readable */
164 for (i = 0; i < (LOCALRAM_SIZE / 1024); i++) {
165 m = lynx->pcl_bmap[i];
166 for (j = 0; j < 8; j++) {
167 if (m & 1<<j) {
168 continue;
169 }
170 m |= 1<<j;
171 lynx->pcl_bmap[i] = m;
172 spin_unlock(&lynx->lock);
173 return 8 * i + j;
174 }
175 }
176 spin_unlock(&lynx->lock);
177
178 return -1;
179 }
180
181
182 #if 0
183 static void free_pcl(struct ti_lynx *lynx, pcl_t pclid)
184 {
185 int off, bit;
186
187 off = pclid / 8;
188 bit = pclid % 8;
189
190 if (pclid < 0) {
191 return;
192 }
193
194 spin_lock(&lynx->lock);
195 if (lynx->pcl_bmap[off] & 1<<bit) {
196 lynx->pcl_bmap[off] &= ~(1<<bit);
197 } else {
198 PRINT(KERN_ERR, lynx->id,
199 "attempted to free unallocated PCL %d", pclid);
200 }
201 spin_unlock(&lynx->lock);
202 }
203
204 /* functions useful for debugging */
205 static void pretty_print_pcl(const struct ti_pcl *pcl)
206 {
207 int i;
208
209 printk("PCL next %08x, userdata %08x, status %08x, remtrans %08x, nextbuf %08x\n",
210 pcl->next, pcl->user_data, pcl->pcl_status,
211 pcl->remaining_transfer_count, pcl->next_data_buffer);
212
213 printk("PCL");
214 for (i=0; i<13; i++) {
215 printk(" c%x:%08x d%x:%08x",
216 i, pcl->buffer[i].control, i, pcl->buffer[i].pointer);
217 if (!(i & 0x3) && (i != 12)) printk("\nPCL");
218 }
219 printk("\n");
220 }
221
222 static void print_pcl(const struct ti_lynx *lynx, pcl_t pclid)
223 {
224 struct ti_pcl pcl;
225
226 get_pcl(lynx, pclid, &pcl);
227 pretty_print_pcl(&pcl);
228 }
229 #endif
230
231
232
233 /***********************************
234 * IEEE-1394 functionality section *
235 ***********************************/
236
237
238 static int get_phy_reg(struct ti_lynx *lynx, int addr)
239 {
240 int retval;
241 int i = 0;
242
243 unsigned long flags;
244
245 if (addr > 15) {
246 PRINT(KERN_ERR, lynx->id,
247 "%s: PHY register address %d out of range",
248 __FUNCTION__, addr);
249 return -1;
250 }
251
252 spin_lock_irqsave(&lynx->phy_reg_lock, flags);
253
254 reg_write(lynx, LINK_PHY, LINK_PHY_READ | LINK_PHY_ADDR(addr));
255 do {
256 retval = reg_read(lynx, LINK_PHY);
257
258 if (i > 10000) {
259 PRINT(KERN_ERR, lynx->id, "%s: runaway loop, aborting",
260 __FUNCTION__);
261 retval = -1;
262 break;
263 }
264 i++;
265 } while ((retval & 0xf00) != LINK_PHY_RADDR(addr));
266
267 reg_write(lynx, LINK_INT_STATUS, LINK_INT_PHY_REG_RCVD);
268 spin_unlock_irqrestore(&lynx->phy_reg_lock, flags);
269
270 if (retval != -1) {
271 return retval & 0xff;
272 } else {
273 return -1;
274 }
275 }
276
277 static int set_phy_reg(struct ti_lynx *lynx, int addr, int val)
278 {
279 unsigned long flags;
280
281 if (addr > 15) {
282 PRINT(KERN_ERR, lynx->id,
283 "%s: PHY register address %d out of range", __FUNCTION__, addr);
284 return -1;
285 }
286
287 if (val > 0xff) {
288 PRINT(KERN_ERR, lynx->id,
289 "%s: PHY register value %d out of range", __FUNCTION__, val);
290 return -1;
291 }
292
293 spin_lock_irqsave(&lynx->phy_reg_lock, flags);
294
295 reg_write(lynx, LINK_PHY, LINK_PHY_WRITE | LINK_PHY_ADDR(addr)
296 | LINK_PHY_WDATA(val));
297
298 spin_unlock_irqrestore(&lynx->phy_reg_lock, flags);
299
300 return 0;
301 }
302
303 static int sel_phy_reg_page(struct ti_lynx *lynx, int page)
304 {
305 int reg;
306
307 if (page > 7) {
308 PRINT(KERN_ERR, lynx->id,
309 "%s: PHY page %d out of range", __FUNCTION__, page);
310 return -1;
311 }
312
313 reg = get_phy_reg(lynx, 7);
314 if (reg != -1) {
315 reg &= 0x1f;
316 reg |= (page << 5);
317 set_phy_reg(lynx, 7, reg);
318 return 0;
319 } else {
320 return -1;
321 }
322 }
323
324 #if 0 /* not needed at this time */
325 static int sel_phy_reg_port(struct ti_lynx *lynx, int port)
326 {
327 int reg;
328
329 if (port > 15) {
330 PRINT(KERN_ERR, lynx->id,
331 "%s: PHY port %d out of range", __FUNCTION__, port);
332 return -1;
333 }
334
335 reg = get_phy_reg(lynx, 7);
336 if (reg != -1) {
337 reg &= 0xf0;
338 reg |= port;
339 set_phy_reg(lynx, 7, reg);
340 return 0;
341 } else {
342 return -1;
343 }
344 }
345 #endif
346
347 static u32 get_phy_vendorid(struct ti_lynx *lynx)
348 {
349 u32 pvid = 0;
350 sel_phy_reg_page(lynx, 1);
351 pvid |= (get_phy_reg(lynx, 10) << 16);
352 pvid |= (get_phy_reg(lynx, 11) << 8);
353 pvid |= get_phy_reg(lynx, 12);
354 PRINT(KERN_INFO, lynx->id, "PHY vendor id 0x%06x", pvid);
355 return pvid;
356 }
357
358 static u32 get_phy_productid(struct ti_lynx *lynx)
359 {
360 u32 id = 0;
361 sel_phy_reg_page(lynx, 1);
362 id |= (get_phy_reg(lynx, 13) << 16);
363 id |= (get_phy_reg(lynx, 14) << 8);
364 id |= get_phy_reg(lynx, 15);
365 PRINT(KERN_INFO, lynx->id, "PHY product id 0x%06x", id);
366 return id;
367 }
368
369 static quadlet_t generate_own_selfid(struct ti_lynx *lynx,
370 struct hpsb_host *host)
371 {
372 quadlet_t lsid;
373 char phyreg[7];
374 int i;
375
376 phyreg[0] = lynx->phy_reg0;
377 for (i = 1; i < 7; i++) {
378 phyreg[i] = get_phy_reg(lynx, i);
379 }
380
381 /* FIXME? We assume a TSB21LV03A phy here. This code doesn't support
382 more than 3 ports on the PHY anyway. */
383
384 lsid = 0x80400000 | ((phyreg[0] & 0xfc) << 22);
385 lsid |= (phyreg[1] & 0x3f) << 16; /* gap count */
386 lsid |= (phyreg[2] & 0xc0) << 8; /* max speed */
387 if (!hpsb_disable_irm)
388 lsid |= (phyreg[6] & 0x01) << 11; /* contender (phy dependent) */
389 /* lsid |= 1 << 11; *//* set contender (hack) */
390 lsid |= (phyreg[6] & 0x10) >> 3; /* initiated reset */
391
392 for (i = 0; i < (phyreg[2] & 0xf); i++) { /* ports */
393 if (phyreg[3 + i] & 0x4) {
394 lsid |= (((phyreg[3 + i] & 0x8) | 0x10) >> 3)
395 << (6 - i*2);
396 } else {
397 lsid |= 1 << (6 - i*2);
398 }
399 }
400
401 cpu_to_be32s(&lsid);
402 PRINT(KERN_DEBUG, lynx->id, "generated own selfid 0x%x", lsid);
403 return lsid;
404 }
405
406 static void handle_selfid(struct ti_lynx *lynx, struct hpsb_host *host)
407 {
408 quadlet_t *q = lynx->rcv_page;
409 int phyid, isroot, size;
410 quadlet_t lsid = 0;
411 int i;
412
413 if (lynx->phy_reg0 == -1 || lynx->selfid_size == -1) return;
414
415 size = lynx->selfid_size;
416 phyid = lynx->phy_reg0;
417
418 i = (size > 16 ? 16 : size) / 4 - 1;
419 while (i >= 0) {
420 cpu_to_be32s(&q[i]);
421 i--;
422 }
423
424 if (!lynx->phyic.reg_1394a) {
425 lsid = generate_own_selfid(lynx, host);
426 }
427
428 isroot = (phyid & 2) != 0;
429 phyid >>= 2;
430 PRINT(KERN_INFO, lynx->id, "SelfID process finished (phyid %d, %s)",
431 phyid, (isroot ? "root" : "not root"));
432 reg_write(lynx, LINK_ID, (0xffc0 | phyid) << 16);
433
434 if (!lynx->phyic.reg_1394a && !size) {
435 hpsb_selfid_received(host, lsid);
436 }
437
438 while (size > 0) {
439 struct selfid *sid = (struct selfid *)q;
440
441 if (!lynx->phyic.reg_1394a && !sid->extended
442 && (sid->phy_id == (phyid + 1))) {
443 hpsb_selfid_received(host, lsid);
444 }
445
446 if (q[0] == ~q[1]) {
447 PRINT(KERN_DEBUG, lynx->id, "SelfID packet 0x%x rcvd",
448 q[0]);
449 hpsb_selfid_received(host, q[0]);
450 } else {
451 PRINT(KERN_INFO, lynx->id,
452 "inconsistent selfid 0x%x/0x%x", q[0], q[1]);
453 }
454 q += 2;
455 size -= 8;
456 }
457
458 if (!lynx->phyic.reg_1394a && isroot && phyid != 0) {
459 hpsb_selfid_received(host, lsid);
460 }
461
462 hpsb_selfid_complete(host, phyid, isroot);
463
464 if (host->in_bus_reset) return; /* in bus reset again */
465
466 if (isroot) reg_set_bits(lynx, LINK_CONTROL, LINK_CONTROL_CYCMASTER); //FIXME: I do not think, we need this here
467 reg_set_bits(lynx, LINK_CONTROL,
468 LINK_CONTROL_RCV_CMP_VALID | LINK_CONTROL_TX_ASYNC_EN
469 | LINK_CONTROL_RX_ASYNC_EN | LINK_CONTROL_CYCTIMEREN);
470 }
471
472
473
474 /* This must be called with the respective queue_lock held. */
475 static void send_next(struct ti_lynx *lynx, int what)
476 {
477 struct ti_pcl pcl;
478 struct lynx_send_data *d;
479 struct hpsb_packet *packet;
480
481 d = (what == hpsb_iso ? &lynx->iso_send : &lynx->async);
482 if (!list_empty(&d->pcl_queue)) {
483 PRINT(KERN_ERR, lynx->id, "trying to queue a new packet in nonempty fifo");
484 BUG();
485 }
486
487 packet = driver_packet(d->queue.next);
488 list_move_tail(&packet->driver_list, &d->pcl_queue);
489
490 d->header_dma = pci_map_single(lynx->dev, packet->header,
491 packet->header_size, PCI_DMA_TODEVICE);
492 if (packet->data_size) {
493 d->data_dma = pci_map_single(lynx->dev, packet->data,
494 packet->data_size,
495 PCI_DMA_TODEVICE);
496 } else {
497 d->data_dma = 0;
498 }
499
500 pcl.next = PCL_NEXT_INVALID;
501 pcl.async_error_next = PCL_NEXT_INVALID;
502 pcl.pcl_status = 0;
503 pcl.buffer[0].control = packet->speed_code << 14 | packet->header_size;
504 #ifndef __BIG_ENDIAN
505 pcl.buffer[0].control |= PCL_BIGENDIAN;
506 #endif
507 pcl.buffer[0].pointer = d->header_dma;
508 pcl.buffer[1].control = PCL_LAST_BUFF | packet->data_size;
509 pcl.buffer[1].pointer = d->data_dma;
510
511 switch (packet->type) {
512 case hpsb_async:
513 pcl.buffer[0].control |= PCL_CMD_XMT;
514 break;
515 case hpsb_iso:
516 pcl.buffer[0].control |= PCL_CMD_XMT | PCL_ISOMODE;
517 break;
518 case hpsb_raw:
519 pcl.buffer[0].control |= PCL_CMD_UNFXMT;
520 break;
521 }
522
523 put_pcl(lynx, d->pcl, &pcl);
524 run_pcl(lynx, d->pcl_start, d->channel);
525 }
526
527
528 /* called from subsystem core */
529 static int lynx_transmit(struct hpsb_host *host, struct hpsb_packet *packet)
530 {
531 struct ti_lynx *lynx = host->hostdata;
532 struct lynx_send_data *d;
533 unsigned long flags;
534
535 if (packet->data_size >= 4096) {
536 PRINT(KERN_ERR, lynx->id, "transmit packet data too big (%Zd)",
537 packet->data_size);
538 return -EOVERFLOW;
539 }
540
541 switch (packet->type) {
542 case hpsb_async:
543 case hpsb_raw:
544 d = &lynx->async;
545 break;
546 case hpsb_iso:
547 d = &lynx->iso_send;
548 break;
549 default:
550 PRINT(KERN_ERR, lynx->id, "invalid packet type %d",
551 packet->type);
552 return -EINVAL;
553 }
554
555 if (packet->tcode == TCODE_WRITEQ
556 || packet->tcode == TCODE_READQ_RESPONSE) {
557 cpu_to_be32s(&packet->header[3]);
558 }
559
560 spin_lock_irqsave(&d->queue_lock, flags);
561
562 list_add_tail(&packet->driver_list, &d->queue);
563 if (list_empty(&d->pcl_queue))
564 send_next(lynx, packet->type);
565
566 spin_unlock_irqrestore(&d->queue_lock, flags);
567
568 return 0;
569 }
570
571
572 /* called from subsystem core */
573 static int lynx_devctl(struct hpsb_host *host, enum devctl_cmd cmd, int arg)
574 {
575 struct ti_lynx *lynx = host->hostdata;
576 int retval = 0;
577 struct hpsb_packet *packet;
578 LIST_HEAD(packet_list);
579 unsigned long flags;
580 int phy_reg;
581
582 switch (cmd) {
583 case RESET_BUS:
584 if (reg_read(lynx, LINK_INT_STATUS) & LINK_INT_PHY_BUSRESET) {
585 retval = 0;
586 break;
587 }
588
589 switch (arg) {
590 case SHORT_RESET:
591 if (lynx->phyic.reg_1394a) {
592 phy_reg = get_phy_reg(lynx, 5);
593 if (phy_reg == -1) {
594 PRINT(KERN_ERR, lynx->id, "cannot reset bus, because read phy reg failed");
595 retval = -1;
596 break;
597 }
598 phy_reg |= 0x40;
599
600 PRINT(KERN_INFO, lynx->id, "resetting bus (short bus reset) on request");
601
602 lynx->selfid_size = -1;
603 lynx->phy_reg0 = -1;
604 set_phy_reg(lynx, 5, phy_reg); /* set ISBR */
605 break;
606 } else {
607 PRINT(KERN_INFO, lynx->id, "cannot do short bus reset, because of old phy");
608 /* fall through to long bus reset */
609 }
610 case LONG_RESET:
611 phy_reg = get_phy_reg(lynx, 1);
612 if (phy_reg == -1) {
613 PRINT(KERN_ERR, lynx->id, "cannot reset bus, because read phy reg failed");
614 retval = -1;
615 break;
616 }
617 phy_reg |= 0x40;
618
619 PRINT(KERN_INFO, lynx->id, "resetting bus (long bus reset) on request");
620
621 lynx->selfid_size = -1;
622 lynx->phy_reg0 = -1;
623 set_phy_reg(lynx, 1, phy_reg); /* clear RHB, set IBR */
624 break;
625 case SHORT_RESET_NO_FORCE_ROOT:
626 if (lynx->phyic.reg_1394a) {
627 phy_reg = get_phy_reg(lynx, 1);
628 if (phy_reg == -1) {
629 PRINT(KERN_ERR, lynx->id, "cannot reset bus, because read phy reg failed");
630 retval = -1;
631 break;
632 }
633 if (phy_reg & 0x80) {
634 phy_reg &= ~0x80;
635 set_phy_reg(lynx, 1, phy_reg); /* clear RHB */
636 }
637
638 phy_reg = get_phy_reg(lynx, 5);
639 if (phy_reg == -1) {
640 PRINT(KERN_ERR, lynx->id, "cannot reset bus, because read phy reg failed");
641 retval = -1;
642 break;
643 }
644 phy_reg |= 0x40;
645
646 PRINT(KERN_INFO, lynx->id, "resetting bus (short bus reset, no force_root) on request");
647
648 lynx->selfid_size = -1;
649 lynx->phy_reg0 = -1;
650 set_phy_reg(lynx, 5, phy_reg); /* set ISBR */
651 break;
652 } else {
653 PRINT(KERN_INFO, lynx->id, "cannot do short bus reset, because of old phy");
654 /* fall through to long bus reset */
655 }
656 case LONG_RESET_NO_FORCE_ROOT:
657 phy_reg = get_phy_reg(lynx, 1);
658 if (phy_reg == -1) {
659 PRINT(KERN_ERR, lynx->id, "cannot reset bus, because read phy reg failed");
660 retval = -1;
661 break;
662 }
663 phy_reg &= ~0x80;
664 phy_reg |= 0x40;
665
666 PRINT(KERN_INFO, lynx->id, "resetting bus (long bus reset, no force_root) on request");
667
668 lynx->selfid_size = -1;
669 lynx->phy_reg0 = -1;
670 set_phy_reg(lynx, 1, phy_reg); /* clear RHB, set IBR */
671 break;
672 case SHORT_RESET_FORCE_ROOT:
673 if (lynx->phyic.reg_1394a) {
674 phy_reg = get_phy_reg(lynx, 1);
675 if (phy_reg == -1) {
676 PRINT(KERN_ERR, lynx->id, "cannot reset bus, because read phy reg failed");
677 retval = -1;
678 break;
679 }
680 if (!(phy_reg & 0x80)) {
681 phy_reg |= 0x80;
682 set_phy_reg(lynx, 1, phy_reg); /* set RHB */
683 }
684
685 phy_reg = get_phy_reg(lynx, 5);
686 if (phy_reg == -1) {
687 PRINT(KERN_ERR, lynx->id, "cannot reset bus, because read phy reg failed");
688 retval = -1;
689 break;
690 }
691 phy_reg |= 0x40;
692
693 PRINT(KERN_INFO, lynx->id, "resetting bus (short bus reset, force_root set) on request");
694
695 lynx->selfid_size = -1;
696 lynx->phy_reg0 = -1;
697 set_phy_reg(lynx, 5, phy_reg); /* set ISBR */
698 break;
699 } else {
700 PRINT(KERN_INFO, lynx->id, "cannot do short bus reset, because of old phy");
701 /* fall through to long bus reset */
702 }
703 case LONG_RESET_FORCE_ROOT:
704 phy_reg = get_phy_reg(lynx, 1);
705 if (phy_reg == -1) {
706 PRINT(KERN_ERR, lynx->id, "cannot reset bus, because read phy reg failed");
707 retval = -1;
708 break;
709 }
710 phy_reg |= 0xc0;
711
712 PRINT(KERN_INFO, lynx->id, "resetting bus (long bus reset, force_root set) on request");
713
714 lynx->selfid_size = -1;
715 lynx->phy_reg0 = -1;
716 set_phy_reg(lynx, 1, phy_reg); /* set IBR and RHB */
717 break;
718 default:
719 PRINT(KERN_ERR, lynx->id, "unknown argument for reset_bus command %d", arg);
720 retval = -1;
721 }
722
723 break;
724
725 case GET_CYCLE_COUNTER:
726 retval = reg_read(lynx, CYCLE_TIMER);
727 break;
728
729 case SET_CYCLE_COUNTER:
730 reg_write(lynx, CYCLE_TIMER, arg);
731 break;
732
733 case SET_BUS_ID:
734 reg_write(lynx, LINK_ID,
735 (arg << 22) | (reg_read(lynx, LINK_ID) & 0x003f0000));
736 break;
737
738 case ACT_CYCLE_MASTER:
739 if (arg) {
740 reg_set_bits(lynx, LINK_CONTROL,
741 LINK_CONTROL_CYCMASTER);
742 } else {
743 reg_clear_bits(lynx, LINK_CONTROL,
744 LINK_CONTROL_CYCMASTER);
745 }
746 break;
747
748 case CANCEL_REQUESTS:
749 spin_lock_irqsave(&lynx->async.queue_lock, flags);
750
751 reg_write(lynx, DMA_CHAN_CTRL(CHANNEL_ASYNC_SEND), 0);
752 list_splice(&lynx->async.queue, &packet_list);
753 INIT_LIST_HEAD(&lynx->async.queue);
754
755 if (list_empty(&lynx->async.pcl_queue)) {
756 spin_unlock_irqrestore(&lynx->async.queue_lock, flags);
757 PRINTD(KERN_DEBUG, lynx->id, "no async packet in PCL to cancel");
758 } else {
759 struct ti_pcl pcl;
760 u32 ack;
761 struct hpsb_packet *packet;
762
763 PRINT(KERN_INFO, lynx->id, "cancelling async packet, that was already in PCL");
764
765 get_pcl(lynx, lynx->async.pcl, &pcl);
766
767 packet = driver_packet(lynx->async.pcl_queue.next);
768 list_del_init(&packet->driver_list);
769
770 pci_unmap_single(lynx->dev, lynx->async.header_dma,
771 packet->header_size, PCI_DMA_TODEVICE);
772 if (packet->data_size) {
773 pci_unmap_single(lynx->dev, lynx->async.data_dma,
774 packet->data_size, PCI_DMA_TODEVICE);
775 }
776
777 spin_unlock_irqrestore(&lynx->async.queue_lock, flags);
778
779 if (pcl.pcl_status & DMA_CHAN_STAT_PKTCMPL) {
780 if (pcl.pcl_status & DMA_CHAN_STAT_SPECIALACK) {
781 ack = (pcl.pcl_status >> 15) & 0xf;
782 PRINTD(KERN_INFO, lynx->id, "special ack %d", ack);
783 ack = (ack == 1 ? ACKX_TIMEOUT : ACKX_SEND_ERROR);
784 } else {
785 ack = (pcl.pcl_status >> 15) & 0xf;
786 }
787 } else {
788 PRINT(KERN_INFO, lynx->id, "async packet was not completed");
789 ack = ACKX_ABORTED;
790 }
791 hpsb_packet_sent(host, packet, ack);
792 }
793
794 while (!list_empty(&packet_list)) {
795 packet = driver_packet(packet_list.next);
796 list_del_init(&packet->driver_list);
797 hpsb_packet_sent(host, packet, ACKX_ABORTED);
798 }
799
800 break;
801
802 case ISO_LISTEN_CHANNEL:
803 spin_lock_irqsave(&lynx->iso_rcv.lock, flags);
804
805 if (lynx->iso_rcv.chan_count++ == 0) {
806 reg_write(lynx, DMA_WORD1_CMP_ENABLE(CHANNEL_ISO_RCV),
807 DMA_WORD1_CMP_ENABLE_MASTER);
808 }
809
810 spin_unlock_irqrestore(&lynx->iso_rcv.lock, flags);
811 break;
812
813 case ISO_UNLISTEN_CHANNEL:
814 spin_lock_irqsave(&lynx->iso_rcv.lock, flags);
815
816 if (--lynx->iso_rcv.chan_count == 0) {
817 reg_write(lynx, DMA_WORD1_CMP_ENABLE(CHANNEL_ISO_RCV),
818 0);
819 }
820
821 spin_unlock_irqrestore(&lynx->iso_rcv.lock, flags);
822 break;
823
824 default:
825 PRINT(KERN_ERR, lynx->id, "unknown devctl command %d", cmd);
826 retval = -1;
827 }
828
829 return retval;
830 }
831
832
833 /***************************************
834 * IEEE-1394 functionality section END *
835 ***************************************/
836
837
838 /********************************************************
839 * Global stuff (interrupt handler, init/shutdown code) *
840 ********************************************************/
841
842
843 static irqreturn_t lynx_irq_handler(int irq, void *dev_id,
844 struct pt_regs *regs_are_unused)
845 {
846 struct ti_lynx *lynx = (struct ti_lynx *)dev_id;
847 struct hpsb_host *host = lynx->host;
848 u32 intmask;
849 u32 linkint;
850
851 linkint = reg_read(lynx, LINK_INT_STATUS);
852 intmask = reg_read(lynx, PCI_INT_STATUS);
853
854 if (!(intmask & PCI_INT_INT_PEND))
855 return IRQ_NONE;
856
857 PRINTD(KERN_DEBUG, lynx->id, "interrupt: 0x%08x / 0x%08x", intmask,
858 linkint);
859
860 reg_write(lynx, LINK_INT_STATUS, linkint);
861 reg_write(lynx, PCI_INT_STATUS, intmask);
862
863 if (intmask & PCI_INT_1394) {
864 if (linkint & LINK_INT_PHY_TIMEOUT) {
865 PRINT(KERN_INFO, lynx->id, "PHY timeout occurred");
866 }
867 if (linkint & LINK_INT_PHY_BUSRESET) {
868 PRINT(KERN_INFO, lynx->id, "bus reset interrupt");
869 lynx->selfid_size = -1;
870 lynx->phy_reg0 = -1;
871 if (!host->in_bus_reset)
872 hpsb_bus_reset(host);
873 }
874 if (linkint & LINK_INT_PHY_REG_RCVD) {
875 u32 reg;
876
877 spin_lock(&lynx->phy_reg_lock);
878 reg = reg_read(lynx, LINK_PHY);
879 spin_unlock(&lynx->phy_reg_lock);
880
881 if (!host->in_bus_reset) {
882 PRINT(KERN_INFO, lynx->id,
883 "phy reg received without reset");
884 } else if (reg & 0xf00) {
885 PRINT(KERN_INFO, lynx->id,
886 "unsolicited phy reg %d received",
887 (reg >> 8) & 0xf);
888 } else {
889 lynx->phy_reg0 = reg & 0xff;
890 handle_selfid(lynx, host);
891 }
892 }
893 if (linkint & LINK_INT_ISO_STUCK) {
894 PRINT(KERN_INFO, lynx->id, "isochronous transmitter stuck");
895 }
896 if (linkint & LINK_INT_ASYNC_STUCK) {
897 PRINT(KERN_INFO, lynx->id, "asynchronous transmitter stuck");
898 }
899 if (linkint & LINK_INT_SENT_REJECT) {
900 PRINT(KERN_INFO, lynx->id, "sent reject");
901 }
902 if (linkint & LINK_INT_TX_INVALID_TC) {
903 PRINT(KERN_INFO, lynx->id, "invalid transaction code");
904 }
905 if (linkint & LINK_INT_GRF_OVERFLOW) {
906 /* flush FIFO if overflow happens during reset */
907 if (host->in_bus_reset)
908 reg_write(lynx, FIFO_CONTROL,
909 FIFO_CONTROL_GRF_FLUSH);
910 PRINT(KERN_INFO, lynx->id, "GRF overflow");
911 }
912 if (linkint & LINK_INT_ITF_UNDERFLOW) {
913 PRINT(KERN_INFO, lynx->id, "ITF underflow");
914 }
915 if (linkint & LINK_INT_ATF_UNDERFLOW) {
916 PRINT(KERN_INFO, lynx->id, "ATF underflow");
917 }
918 }
919
920 if (intmask & PCI_INT_DMA_HLT(CHANNEL_ISO_RCV)) {
921 PRINTD(KERN_DEBUG, lynx->id, "iso receive");
922
923 spin_lock(&lynx->iso_rcv.lock);
924
925 lynx->iso_rcv.stat[lynx->iso_rcv.next] =
926 reg_read(lynx, DMA_CHAN_STAT(CHANNEL_ISO_RCV));
927
928 lynx->iso_rcv.used++;
929 lynx->iso_rcv.next = (lynx->iso_rcv.next + 1) % NUM_ISORCV_PCL;
930
931 if ((lynx->iso_rcv.next == lynx->iso_rcv.last)
932 || !lynx->iso_rcv.chan_count) {
933 PRINTD(KERN_DEBUG, lynx->id, "stopped");
934 reg_write(lynx, DMA_WORD1_CMP_ENABLE(CHANNEL_ISO_RCV), 0);
935 }
936
937 run_sub_pcl(lynx, lynx->iso_rcv.pcl_start, lynx->iso_rcv.next,
938 CHANNEL_ISO_RCV);
939
940 spin_unlock(&lynx->iso_rcv.lock);
941
942 tasklet_schedule(&lynx->iso_rcv.tq);
943 }
944
945 if (intmask & PCI_INT_DMA_HLT(CHANNEL_ASYNC_SEND)) {
946 PRINTD(KERN_DEBUG, lynx->id, "async sent");
947 spin_lock(&lynx->async.queue_lock);
948
949 if (list_empty(&lynx->async.pcl_queue)) {
950 spin_unlock(&lynx->async.queue_lock);
951 PRINT(KERN_WARNING, lynx->id, "async dma halted, but no queued packet (maybe it was cancelled)");
952 } else {
953 struct ti_pcl pcl;
954 u32 ack;
955 struct hpsb_packet *packet;
956
957 get_pcl(lynx, lynx->async.pcl, &pcl);
958
959 packet = driver_packet(lynx->async.pcl_queue.next);
960 list_del_init(&packet->driver_list);
961
962 pci_unmap_single(lynx->dev, lynx->async.header_dma,
963 packet->header_size, PCI_DMA_TODEVICE);
964 if (packet->data_size) {
965 pci_unmap_single(lynx->dev, lynx->async.data_dma,
966 packet->data_size, PCI_DMA_TODEVICE);
967 }
968
969 if (!list_empty(&lynx->async.queue)) {
970 send_next(lynx, hpsb_async);
971 }
972
973 spin_unlock(&lynx->async.queue_lock);
974
975 if (pcl.pcl_status & DMA_CHAN_STAT_PKTCMPL) {
976 if (pcl.pcl_status & DMA_CHAN_STAT_SPECIALACK) {
977 ack = (pcl.pcl_status >> 15) & 0xf;
978 PRINTD(KERN_INFO, lynx->id, "special ack %d", ack);
979 ack = (ack == 1 ? ACKX_TIMEOUT : ACKX_SEND_ERROR);
980 } else {
981 ack = (pcl.pcl_status >> 15) & 0xf;
982 }
983 } else {
984 PRINT(KERN_INFO, lynx->id, "async packet was not completed");
985 ack = ACKX_SEND_ERROR;
986 }
987 hpsb_packet_sent(host, packet, ack);
988 }
989 }
990
991 if (intmask & PCI_INT_DMA_HLT(CHANNEL_ISO_SEND)) {
992 PRINTD(KERN_DEBUG, lynx->id, "iso sent");
993 spin_lock(&lynx->iso_send.queue_lock);
994
995 if (list_empty(&lynx->iso_send.pcl_queue)) {
996 spin_unlock(&lynx->iso_send.queue_lock);
997 PRINT(KERN_ERR, lynx->id, "iso send dma halted, but no queued packet");
998 } else {
999 struct ti_pcl pcl;
1000 u32 ack;
1001 struct hpsb_packet *packet;
1002
1003 get_pcl(lynx, lynx->iso_send.pcl, &pcl);
1004
1005 packet = driver_packet(lynx->iso_send.pcl_queue.next);
1006 list_del_init(&packet->driver_list);
1007
1008 pci_unmap_single(lynx->dev, lynx->iso_send.header_dma,
1009 packet->header_size, PCI_DMA_TODEVICE);
1010 if (packet->data_size) {
1011 pci_unmap_single(lynx->dev, lynx->iso_send.data_dma,
1012 packet->data_size, PCI_DMA_TODEVICE);
1013 }
1014
1015 if (!list_empty(&lynx->iso_send.queue)) {
1016 send_next(lynx, hpsb_iso);
1017 }
1018
1019 spin_unlock(&lynx->iso_send.queue_lock);
1020
1021 if (pcl.pcl_status & DMA_CHAN_STAT_PKTCMPL) {
1022 if (pcl.pcl_status & DMA_CHAN_STAT_SPECIALACK) {
1023 ack = (pcl.pcl_status >> 15) & 0xf;
1024 PRINTD(KERN_INFO, lynx->id, "special ack %d", ack);
1025 ack = (ack == 1 ? ACKX_TIMEOUT : ACKX_SEND_ERROR);
1026 } else {
1027 ack = (pcl.pcl_status >> 15) & 0xf;
1028 }
1029 } else {
1030 PRINT(KERN_INFO, lynx->id, "iso send packet was not completed");
1031 ack = ACKX_SEND_ERROR;
1032 }
1033
1034 hpsb_packet_sent(host, packet, ack); //FIXME: maybe we should just use ACK_COMPLETE and ACKX_SEND_ERROR
1035 }
1036 }
1037
1038 if (intmask & PCI_INT_DMA_HLT(CHANNEL_ASYNC_RCV)) {
1039 /* general receive DMA completed */
1040 int stat = reg_read(lynx, DMA_CHAN_STAT(CHANNEL_ASYNC_RCV));
1041
1042 PRINTD(KERN_DEBUG, lynx->id, "received packet size %d",
1043 stat & 0x1fff);
1044
1045 if (stat & DMA_CHAN_STAT_SELFID) {
1046 lynx->selfid_size = stat & 0x1fff;
1047 handle_selfid(lynx, host);
1048 } else {
1049 quadlet_t *q_data = lynx->rcv_page;
1050 if ((*q_data >> 4 & 0xf) == TCODE_READQ_RESPONSE
1051 || (*q_data >> 4 & 0xf) == TCODE_WRITEQ) {
1052 cpu_to_be32s(q_data + 3);
1053 }
1054 hpsb_packet_received(host, q_data, stat & 0x1fff, 0);
1055 }
1056
1057 run_pcl(lynx, lynx->rcv_pcl_start, CHANNEL_ASYNC_RCV);
1058 }
1059
1060 return IRQ_HANDLED;
1061 }
1062
1063
1064 static void iso_rcv_bh(struct ti_lynx *lynx)
1065 {
1066 unsigned int idx;
1067 quadlet_t *data;
1068 unsigned long flags;
1069
1070 spin_lock_irqsave(&lynx->iso_rcv.lock, flags);
1071
1072 while (lynx->iso_rcv.used) {
1073 idx = lynx->iso_rcv.last;
1074 spin_unlock_irqrestore(&lynx->iso_rcv.lock, flags);
1075
1076 data = lynx->iso_rcv.page[idx / ISORCV_PER_PAGE]
1077 + (idx % ISORCV_PER_PAGE) * MAX_ISORCV_SIZE;
1078
1079 if ((*data >> 16) + 4 != (lynx->iso_rcv.stat[idx] & 0x1fff)) {
1080 PRINT(KERN_ERR, lynx->id,
1081 "iso length mismatch 0x%08x/0x%08x", *data,
1082 lynx->iso_rcv.stat[idx]);
1083 }
1084
1085 if (lynx->iso_rcv.stat[idx]
1086 & (DMA_CHAN_STAT_PCIERR | DMA_CHAN_STAT_PKTERR)) {
1087 PRINT(KERN_INFO, lynx->id,
1088 "iso receive error on %d to 0x%p", idx, data);
1089 } else {
1090 hpsb_packet_received(lynx->host, data,
1091 lynx->iso_rcv.stat[idx] & 0x1fff,
1092 0);
1093 }
1094
1095 spin_lock_irqsave(&lynx->iso_rcv.lock, flags);
1096 lynx->iso_rcv.last = (idx + 1) % NUM_ISORCV_PCL;
1097 lynx->iso_rcv.used--;
1098 }
1099
1100 if (lynx->iso_rcv.chan_count) {
1101 reg_write(lynx, DMA_WORD1_CMP_ENABLE(CHANNEL_ISO_RCV),
1102 DMA_WORD1_CMP_ENABLE_MASTER);
1103 }
1104 spin_unlock_irqrestore(&lynx->iso_rcv.lock, flags);
1105 }
1106
1107
1108 static void remove_card(struct pci_dev *dev)
1109 {
1110 struct ti_lynx *lynx;
1111 struct device *lynx_dev;
1112 int i;
1113
1114 lynx = pci_get_drvdata(dev);
1115 if (!lynx) return;
1116 pci_set_drvdata(dev, NULL);
1117
1118 lynx_dev = get_device(&lynx->host->device);
1119
1120 switch (lynx->state) {
1121 case is_host:
1122 reg_write(lynx, PCI_INT_ENABLE, 0);
1123 hpsb_remove_host(lynx->host);
1124 case have_intr:
1125 reg_write(lynx, PCI_INT_ENABLE, 0);
1126 free_irq(lynx->dev->irq, lynx);
1127
1128 /* Disable IRM Contender and LCtrl */
1129 if (lynx->phyic.reg_1394a)
1130 set_phy_reg(lynx, 4, ~0xc0 & get_phy_reg(lynx, 4));
1131
1132 /* Let all other nodes know to ignore us */
1133 lynx_devctl(lynx->host, RESET_BUS, LONG_RESET_NO_FORCE_ROOT);
1134
1135 case have_iomappings:
1136 reg_set_bits(lynx, MISC_CONTROL, MISC_CONTROL_SWRESET);
1137 /* Fix buggy cards with autoboot pin not tied low: */
1138 reg_write(lynx, DMA0_CHAN_CTRL, 0);
1139 iounmap(lynx->registers);
1140 iounmap(lynx->local_rom);
1141 iounmap(lynx->local_ram);
1142 iounmap(lynx->aux_port);
1143 case have_1394_buffers:
1144 for (i = 0; i < ISORCV_PAGES; i++) {
1145 if (lynx->iso_rcv.page[i]) {
1146 pci_free_consistent(lynx->dev, PAGE_SIZE,
1147 lynx->iso_rcv.page[i],
1148 lynx->iso_rcv.page_dma[i]);
1149 }
1150 }
1151 pci_free_consistent(lynx->dev, PAGE_SIZE, lynx->rcv_page,
1152 lynx->rcv_page_dma);
1153 case have_aux_buf:
1154 case have_pcl_mem:
1155 pci_free_consistent(lynx->dev, LOCALRAM_SIZE, lynx->pcl_mem,
1156 lynx->pcl_mem_dma);
1157 case clear:
1158 /* do nothing - already freed */
1159 ;
1160 }
1161
1162 tasklet_kill(&lynx->iso_rcv.tq);
1163
1164 if (lynx_dev)
1165 put_device(lynx_dev);
1166 }
1167
1168
1169 static int __devinit add_card(struct pci_dev *dev,
1170 const struct pci_device_id *devid_is_unused)
1171 {
1172 #define FAIL(fmt, args...) do { \
1173 PRINT_G(KERN_ERR, fmt , ## args); \
1174 remove_card(dev); \
1175 return error; \
1176 } while (0)
1177
1178 char irq_buf[16];
1179 struct hpsb_host *host;
1180 struct ti_lynx *lynx; /* shortcut to currently handled device */
1181 struct ti_pcl pcl;
1182 u32 *pcli;
1183 int i;
1184 int error;
1185
1186 error = -ENXIO;
1187
1188 if (pci_set_dma_mask(dev, DMA_32BIT_MASK))
1189 FAIL("DMA address limits not supported for PCILynx hardware");
1190 if (pci_enable_device(dev))
1191 FAIL("failed to enable PCILynx hardware");
1192 pci_set_master(dev);
1193
1194 error = -ENOMEM;
1195
1196 host = hpsb_alloc_host(&lynx_driver, sizeof(struct ti_lynx), &dev->dev);
1197 if (!host) FAIL("failed to allocate control structure memory");
1198
1199 lynx = host->hostdata;
1200 lynx->id = card_id++;
1201 lynx->dev = dev;
1202 lynx->state = clear;
1203 lynx->host = host;
1204 host->pdev = dev;
1205 pci_set_drvdata(dev, lynx);
1206
1207 spin_lock_init(&lynx->lock);
1208 spin_lock_init(&lynx->phy_reg_lock);
1209
1210 lynx->pcl_mem = pci_alloc_consistent(dev, LOCALRAM_SIZE,
1211 &lynx->pcl_mem_dma);
1212
1213 if (lynx->pcl_mem != NULL) {
1214 lynx->state = have_pcl_mem;
1215 PRINT(KERN_INFO, lynx->id,
1216 "allocated PCL memory %d Bytes @ 0x%p", LOCALRAM_SIZE,
1217 lynx->pcl_mem);
1218 } else {
1219 FAIL("failed to allocate PCL memory area");
1220 }
1221
1222 lynx->rcv_page = pci_alloc_consistent(dev, PAGE_SIZE,
1223 &lynx->rcv_page_dma);
1224 if (lynx->rcv_page == NULL) {
1225 FAIL("failed to allocate receive buffer");
1226 }
1227 lynx->state = have_1394_buffers;
1228
1229 for (i = 0; i < ISORCV_PAGES; i++) {
1230 lynx->iso_rcv.page[i] =
1231 pci_alloc_consistent(dev, PAGE_SIZE,
1232 &lynx->iso_rcv.page_dma[i]);
1233 if (lynx->iso_rcv.page[i] == NULL) {
1234 FAIL("failed to allocate iso receive buffers");
1235 }
1236 }
1237
1238 lynx->registers = ioremap_nocache(pci_resource_start(dev,0),
1239 PCILYNX_MAX_REGISTER);
1240 lynx->local_ram = ioremap(pci_resource_start(dev,1), PCILYNX_MAX_MEMORY);
1241 lynx->aux_port = ioremap(pci_resource_start(dev,2), PCILYNX_MAX_MEMORY);
1242 lynx->local_rom = ioremap(pci_resource_start(dev,PCI_ROM_RESOURCE),
1243 PCILYNX_MAX_MEMORY);
1244 lynx->state = have_iomappings;
1245
1246 if (lynx->registers == NULL) {
1247 FAIL("failed to remap registers - card not accessible");
1248 }
1249
1250 reg_set_bits(lynx, MISC_CONTROL, MISC_CONTROL_SWRESET);
1251 /* Fix buggy cards with autoboot pin not tied low: */
1252 reg_write(lynx, DMA0_CHAN_CTRL, 0);
1253
1254 sprintf (irq_buf, "%d", dev->irq);
1255
1256 if (!request_irq(dev->irq, lynx_irq_handler, IRQF_SHARED,
1257 PCILYNX_DRIVER_NAME, lynx)) {
1258 PRINT(KERN_INFO, lynx->id, "allocated interrupt %s", irq_buf);
1259 lynx->state = have_intr;
1260 } else {
1261 FAIL("failed to allocate shared interrupt %s", irq_buf);
1262 }
1263
1264 /* alloc_pcl return values are not checked, it is expected that the
1265 * provided PCL space is sufficient for the initial allocations */
1266 lynx->rcv_pcl = alloc_pcl(lynx);
1267 lynx->rcv_pcl_start = alloc_pcl(lynx);
1268 lynx->async.pcl = alloc_pcl(lynx);
1269 lynx->async.pcl_start = alloc_pcl(lynx);
1270 lynx->iso_send.pcl = alloc_pcl(lynx);
1271 lynx->iso_send.pcl_start = alloc_pcl(lynx);
1272
1273 for (i = 0; i < NUM_ISORCV_PCL; i++) {
1274 lynx->iso_rcv.pcl[i] = alloc_pcl(lynx);
1275 }
1276 lynx->iso_rcv.pcl_start = alloc_pcl(lynx);
1277
1278 /* all allocations successful - simple init stuff follows */
1279
1280 reg_write(lynx, PCI_INT_ENABLE, PCI_INT_DMA_ALL);
1281
1282 tasklet_init(&lynx->iso_rcv.tq, (void (*)(unsigned long))iso_rcv_bh,
1283 (unsigned long)lynx);
1284
1285 spin_lock_init(&lynx->iso_rcv.lock);
1286
1287 spin_lock_init(&lynx->async.queue_lock);
1288 lynx->async.channel = CHANNEL_ASYNC_SEND;
1289 spin_lock_init(&lynx->iso_send.queue_lock);
1290 lynx->iso_send.channel = CHANNEL_ISO_SEND;
1291
1292 PRINT(KERN_INFO, lynx->id, "remapped memory spaces reg 0x%p, rom 0x%p, "
1293 "ram 0x%p, aux 0x%p", lynx->registers, lynx->local_rom,
1294 lynx->local_ram, lynx->aux_port);
1295
1296 /* now, looking for PHY register set */
1297 if ((get_phy_reg(lynx, 2) & 0xe0) == 0xe0) {
1298 lynx->phyic.reg_1394a = 1;
1299 PRINT(KERN_INFO, lynx->id,
1300 "found 1394a conform PHY (using extended register set)");
1301 lynx->phyic.vendor = get_phy_vendorid(lynx);
1302 lynx->phyic.product = get_phy_productid(lynx);
1303 } else {
1304 lynx->phyic.reg_1394a = 0;
1305 PRINT(KERN_INFO, lynx->id, "found old 1394 PHY");
1306 }
1307
1308 lynx->selfid_size = -1;
1309 lynx->phy_reg0 = -1;
1310
1311 INIT_LIST_HEAD(&lynx->async.queue);
1312 INIT_LIST_HEAD(&lynx->async.pcl_queue);
1313 INIT_LIST_HEAD(&lynx->iso_send.queue);
1314 INIT_LIST_HEAD(&lynx->iso_send.pcl_queue);
1315
1316 pcl.next = pcl_bus(lynx, lynx->rcv_pcl);
1317 put_pcl(lynx, lynx->rcv_pcl_start, &pcl);
1318
1319 pcl.next = PCL_NEXT_INVALID;
1320 pcl.async_error_next = PCL_NEXT_INVALID;
1321
1322 pcl.buffer[0].control = PCL_CMD_RCV | 16;
1323 #ifndef __BIG_ENDIAN
1324 pcl.buffer[0].control |= PCL_BIGENDIAN;
1325 #endif
1326 pcl.buffer[1].control = PCL_LAST_BUFF | 4080;
1327
1328 pcl.buffer[0].pointer = lynx->rcv_page_dma;
1329 pcl.buffer[1].pointer = lynx->rcv_page_dma + 16;
1330 put_pcl(lynx, lynx->rcv_pcl, &pcl);
1331
1332 pcl.next = pcl_bus(lynx, lynx->async.pcl);
1333 pcl.async_error_next = pcl_bus(lynx, lynx->async.pcl);
1334 put_pcl(lynx, lynx->async.pcl_start, &pcl);
1335
1336 pcl.next = pcl_bus(lynx, lynx->iso_send.pcl);
1337 pcl.async_error_next = PCL_NEXT_INVALID;
1338 put_pcl(lynx, lynx->iso_send.pcl_start, &pcl);
1339
1340 pcl.next = PCL_NEXT_INVALID;
1341 pcl.async_error_next = PCL_NEXT_INVALID;
1342 pcl.buffer[0].control = PCL_CMD_RCV | 4;
1343 #ifndef __BIG_ENDIAN
1344 pcl.buffer[0].control |= PCL_BIGENDIAN;
1345 #endif
1346 pcl.buffer[1].control = PCL_LAST_BUFF | 2044;
1347
1348 for (i = 0; i < NUM_ISORCV_PCL; i++) {
1349 int page = i / ISORCV_PER_PAGE;
1350 int sec = i % ISORCV_PER_PAGE;
1351
1352 pcl.buffer[0].pointer = lynx->iso_rcv.page_dma[page]
1353 + sec * MAX_ISORCV_SIZE;
1354 pcl.buffer[1].pointer = pcl.buffer[0].pointer + 4;
1355 put_pcl(lynx, lynx->iso_rcv.pcl[i], &pcl);
1356 }
1357
1358 pcli = (u32 *)&pcl;
1359 for (i = 0; i < NUM_ISORCV_PCL; i++) {
1360 pcli[i] = pcl_bus(lynx, lynx->iso_rcv.pcl[i]);
1361 }
1362 put_pcl(lynx, lynx->iso_rcv.pcl_start, &pcl);
1363
1364 /* FIFO sizes from left to right: ITF=48 ATF=48 GRF=160 */
1365 reg_write(lynx, FIFO_SIZES, 0x003030a0);
1366 /* 20 byte threshold before triggering PCI transfer */
1367 reg_write(lynx, DMA_GLOBAL_REGISTER, 0x2<<24);
1368 /* threshold on both send FIFOs before transmitting:
1369 FIFO size - cache line size - 1 */
1370 i = reg_read(lynx, PCI_LATENCY_CACHELINE) & 0xff;
1371 i = 0x30 - i - 1;
1372 reg_write(lynx, FIFO_XMIT_THRESHOLD, (i << 8) | i);
1373
1374 reg_set_bits(lynx, PCI_INT_ENABLE, PCI_INT_1394);
1375
1376 reg_write(lynx, LINK_INT_ENABLE, LINK_INT_PHY_TIMEOUT
1377 | LINK_INT_PHY_REG_RCVD | LINK_INT_PHY_BUSRESET
1378 | LINK_INT_ISO_STUCK | LINK_INT_ASYNC_STUCK
1379 | LINK_INT_SENT_REJECT | LINK_INT_TX_INVALID_TC
1380 | LINK_INT_GRF_OVERFLOW | LINK_INT_ITF_UNDERFLOW
1381 | LINK_INT_ATF_UNDERFLOW);
1382
1383 reg_write(lynx, DMA_WORD0_CMP_VALUE(CHANNEL_ASYNC_RCV), 0);
1384 reg_write(lynx, DMA_WORD0_CMP_ENABLE(CHANNEL_ASYNC_RCV), 0xa<<4);
1385 reg_write(lynx, DMA_WORD1_CMP_VALUE(CHANNEL_ASYNC_RCV), 0);
1386 reg_write(lynx, DMA_WORD1_CMP_ENABLE(CHANNEL_ASYNC_RCV),
1387 DMA_WORD1_CMP_MATCH_LOCAL_NODE | DMA_WORD1_CMP_MATCH_BROADCAST
1388 | DMA_WORD1_CMP_MATCH_EXACT | DMA_WORD1_CMP_MATCH_BUS_BCAST
1389 | DMA_WORD1_CMP_ENABLE_SELF_ID | DMA_WORD1_CMP_ENABLE_MASTER);
1390
1391 run_pcl(lynx, lynx->rcv_pcl_start, CHANNEL_ASYNC_RCV);
1392
1393 reg_write(lynx, DMA_WORD0_CMP_VALUE(CHANNEL_ISO_RCV), 0);
1394 reg_write(lynx, DMA_WORD0_CMP_ENABLE(CHANNEL_ISO_RCV), 0x9<<4);
1395 reg_write(lynx, DMA_WORD1_CMP_VALUE(CHANNEL_ISO_RCV), 0);
1396 reg_write(lynx, DMA_WORD1_CMP_ENABLE(CHANNEL_ISO_RCV), 0);
1397
1398 run_sub_pcl(lynx, lynx->iso_rcv.pcl_start, 0, CHANNEL_ISO_RCV);
1399
1400 reg_write(lynx, LINK_CONTROL, LINK_CONTROL_RCV_CMP_VALID
1401 | LINK_CONTROL_TX_ISO_EN | LINK_CONTROL_RX_ISO_EN
1402 | LINK_CONTROL_TX_ASYNC_EN | LINK_CONTROL_RX_ASYNC_EN
1403 | LINK_CONTROL_RESET_TX | LINK_CONTROL_RESET_RX);
1404
1405 if (!lynx->phyic.reg_1394a) {
1406 if (!hpsb_disable_irm) {
1407 /* attempt to enable contender bit -FIXME- would this
1408 * work elsewhere? */
1409 reg_set_bits(lynx, GPIO_CTRL_A, 0x1);
1410 reg_write(lynx, GPIO_DATA_BASE + 0x3c, 0x1);
1411 }
1412 } else {
1413 /* set the contender (if appropriate) and LCtrl bit in the
1414 * extended PHY register set. (Should check that PHY_02_EXTENDED
1415 * is set in register 2?)
1416 */
1417 i = get_phy_reg(lynx, 4);
1418 i |= PHY_04_LCTRL;
1419 if (hpsb_disable_irm)
1420 i &= ~PHY_04_CONTENDER;
1421 else
1422 i |= PHY_04_CONTENDER;
1423 if (i != -1) set_phy_reg(lynx, 4, i);
1424 }
1425
1426 if (!skip_eeprom)
1427 {
1428 /* needed for i2c communication with serial eeprom */
1429 struct i2c_adapter *i2c_ad;
1430 struct i2c_algo_bit_data i2c_adapter_data;
1431
1432 error = -ENOMEM;
1433 i2c_ad = kmalloc(sizeof(*i2c_ad), SLAB_KERNEL);
1434 if (!i2c_ad) FAIL("failed to allocate I2C adapter memory");
1435
1436 memcpy(i2c_ad, &bit_ops, sizeof(struct i2c_adapter));
1437 i2c_adapter_data = bit_data;
1438 i2c_ad->algo_data = &i2c_adapter_data;
1439 i2c_adapter_data.data = lynx;
1440
1441 PRINTD(KERN_DEBUG, lynx->id,"original eeprom control: %d",
1442 reg_read(lynx, SERIAL_EEPROM_CONTROL));
1443
1444 /* reset hardware to sane state */
1445 lynx->i2c_driven_state = 0x00000070;
1446 reg_write(lynx, SERIAL_EEPROM_CONTROL, lynx->i2c_driven_state);
1447
1448 if (i2c_bit_add_bus(i2c_ad) < 0)
1449 {
1450 kfree(i2c_ad);
1451 error = -ENXIO;
1452 FAIL("unable to register i2c");
1453 }
1454 else
1455 {
1456 /* do i2c stuff */
1457 unsigned char i2c_cmd = 0x10;
1458 struct i2c_msg msg[2] = { { 0x50, 0, 1, &i2c_cmd },
1459 { 0x50, I2C_M_RD, 20, (unsigned char*) lynx->bus_info_block }
1460 };
1461
1462 /* we use i2c_transfer, because i2c_smbus_read_block_data does not work properly and we
1463 do it more efficiently in one transaction rather then using several reads */
1464 if (i2c_transfer(i2c_ad, msg, 2) < 0) {
1465 PRINT(KERN_ERR, lynx->id, "unable to read bus info block from i2c");
1466 } else {
1467 int i;
1468
1469 PRINT(KERN_INFO, lynx->id, "got bus info block from serial eeprom");
1470 /* FIXME: probably we shoud rewrite the max_rec, max_ROM(1394a),
1471 * generation(1394a) and link_spd(1394a) field and recalculate
1472 * the CRC */
1473
1474 for (i = 0; i < 5 ; i++)
1475 PRINTD(KERN_DEBUG, lynx->id, "Businfo block quadlet %i: %08x",
1476 i, be32_to_cpu(lynx->bus_info_block[i]));
1477
1478 /* info_length, crc_length and 1394 magic number to check, if it is really a bus info block */
1479 if (((be32_to_cpu(lynx->bus_info_block[0]) & 0xffff0000) == 0x04040000) &&
1480 (lynx->bus_info_block[1] == __constant_cpu_to_be32(0x31333934)))
1481 {
1482 PRINT(KERN_DEBUG, lynx->id, "read a valid bus info block from");
1483 } else {
1484 kfree(i2c_ad);
1485 error = -ENXIO;
1486 FAIL("read something from serial eeprom, but it does not seem to be a valid bus info block");
1487 }
1488
1489 }
1490
1491 i2c_bit_del_bus(i2c_ad);
1492 kfree(i2c_ad);
1493 }
1494 }
1495
1496 host->csr.guid_hi = be32_to_cpu(lynx->bus_info_block[3]);
1497 host->csr.guid_lo = be32_to_cpu(lynx->bus_info_block[4]);
1498 host->csr.cyc_clk_acc = (be32_to_cpu(lynx->bus_info_block[2]) >> 16) & 0xff;
1499 host->csr.max_rec = (be32_to_cpu(lynx->bus_info_block[2]) >> 12) & 0xf;
1500 if (!lynx->phyic.reg_1394a)
1501 host->csr.lnk_spd = (get_phy_reg(lynx, 2) & 0xc0) >> 6;
1502 else
1503 host->csr.lnk_spd = be32_to_cpu(lynx->bus_info_block[2]) & 0x7;
1504
1505 if (hpsb_add_host(host)) {
1506 error = -ENOMEM;
1507 FAIL("Failed to register host with highlevel");
1508 }
1509
1510 lynx->state = is_host;
1511
1512 return 0;
1513 #undef FAIL
1514 }
1515
1516
1517 static struct pci_device_id pci_table[] = {
1518 {
1519 .vendor = PCI_VENDOR_ID_TI,
1520 .device = PCI_DEVICE_ID_TI_PCILYNX,
1521 .subvendor = PCI_ANY_ID,
1522 .subdevice = PCI_ANY_ID,
1523 },
1524 { } /* Terminating entry */
1525 };
1526
1527 static struct pci_driver lynx_pci_driver = {
1528 .name = PCILYNX_DRIVER_NAME,
1529 .id_table = pci_table,
1530 .probe = add_card,
1531 .remove = remove_card,
1532 };
1533
1534 static struct hpsb_host_driver lynx_driver = {
1535 .owner = THIS_MODULE,
1536 .name = PCILYNX_DRIVER_NAME,
1537 .set_hw_config_rom = NULL,
1538 .transmit_packet = lynx_transmit,
1539 .devctl = lynx_devctl,
1540 .isoctl = NULL,
1541 };
1542
1543 MODULE_AUTHOR("Andreas E. Bombe <andreas.bombe@munich.netsurf.de>");
1544 MODULE_DESCRIPTION("driver for Texas Instruments PCI Lynx IEEE-1394 controller");
1545 MODULE_LICENSE("GPL");
1546 MODULE_SUPPORTED_DEVICE("pcilynx");
1547 MODULE_DEVICE_TABLE(pci, pci_table);
1548
1549 static int __init pcilynx_init(void)
1550 {
1551 int ret;
1552
1553 ret = pci_register_driver(&lynx_pci_driver);
1554 if (ret < 0) {
1555 PRINT_G(KERN_ERR, "PCI module init failed");
1556 return ret;
1557 }
1558
1559 return 0;
1560 }
1561
1562 static void __exit pcilynx_cleanup(void)
1563 {
1564 pci_unregister_driver(&lynx_pci_driver);
1565 }
1566
1567
1568 module_init(pcilynx_init);
1569 module_exit(pcilynx_cleanup);
kernel-based virtual machine