Remove spl*() in src/sys/dev/netif/{ste,ti,tl,tx,txp,vr,vx,wb,wl,xe}
[dragonfly.git] / sys / dev / netif / vx / if_vx.c
1 /*
2  * Copyright (c) 1994 Herb Peyerl <hpeyerl@novatel.ca>
3  * All rights reserved.
4  *
5  * Redistribution and use in source and binary forms, with or without
6  * modification, are permitted provided that the following conditions
7  * are met:
8  * 1. Redistributions of source code must retain the above copyright
9  *    notice, this list of conditions and the following disclaimer.
10  * 2. Redistributions in binary form must reproduce the above copyright
11  *    notice, this list of conditions and the following disclaimer in the
12  *    documentation and/or other materials provided with the distribution.
13  * 3. All advertising materials mentioning features or use of this software
14  *    must display the following acknowledgement:
15  *      This product includes software developed by Herb Peyerl.
16  * 4. The name of Herb Peyerl may not be used to endorse or promote products
17  *    derived from this software without specific prior written permission.
18  *
19  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
20  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
21  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
22  * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
23  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
24  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
25  * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
26  * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
27  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
28  * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
29  *
30  * $FreeBSD: src/sys/dev/vx/if_vx.c,v 1.25.2.6 2002/02/13 00:43:10 dillon Exp $
31  * $DragonFly: src/sys/dev/netif/vx/if_vx.c,v 1.18 2005/06/06 23:12:07 okumoto Exp $
32  *
33  */
34
35 /*
36  * Created from if_ep.c driver by Fred Gray (fgray@rice.edu) to support
37  * the 3c590 family.
38  */
39
40 /*
41  *      Modified from the FreeBSD 1.1.5.1 version by:
42  *                      Andres Vega Garcia
43  *                      INRIA - Sophia Antipolis, France
44  *                      avega@sophia.inria.fr
45  */
46
47 /*
48  *  Promiscuous mode added and interrupt logic slightly changed
49  *  to reduce the number of adapter failures. Transceiver select
50  *  logic changed to use value from EEPROM. Autoconfiguration
51  *  features added.
52  *  Done by:
53  *          Serge Babkin
54  *          Chelindbank (Chelyabinsk, Russia)
55  *          babkin@hq.icb.chel.su
56  */
57
58 #include <sys/param.h>
59 #include <sys/systm.h>
60 #include <sys/sockio.h>
61 #include <sys/malloc.h>
62 #include <sys/mbuf.h>
63 #include <sys/socket.h>
64 #include <sys/linker_set.h>
65 #include <sys/module.h>
66 #include <sys/thread2.h>
67
68 #include <net/if.h>
69 #include <net/ifq_var.h>
70
71 #include <net/ethernet.h>
72 #include <net/if_arp.h>
73
74 #include <machine/bus_pio.h>
75 #include <machine/bus.h>
76
77 #include <net/bpf.h>
78
79 #include <machine/clock.h>
80
81 #include "if_vxreg.h"
82
83 #define ETHER_MAX_LEN   1518
84 #define ETHER_ADDR_LEN  6
85
86 DECLARE_DUMMY_MODULE(if_vx);
87
88 static struct connector_entry {
89   int bit;
90   char *name;
91 } conn_tab[VX_CONNECTORS] = {
92 #define CONNECTOR_UTP   0
93   { 0x08, "utp"},
94 #define CONNECTOR_AUI   1
95   { 0x20, "aui"},
96 /* dummy */
97   { 0, "???"},
98 #define CONNECTOR_BNC   3
99   { 0x10, "bnc"},
100 #define CONNECTOR_TX    4
101   { 0x02, "tx"},
102 #define CONNECTOR_FX    5
103   { 0x04, "fx"},
104 #define CONNECTOR_MII   6
105   { 0x40, "mii"},
106   { 0, "???"}
107 };
108
109 /* int vxattach (struct vx_softc *); */
110 static void vxtxstat (struct vx_softc *);
111 static int vxstatus (struct vx_softc *);
112 static void vxinit (void *);
113 static int vxioctl (struct ifnet *, u_long, caddr_t, struct ucred *);
114 static void vxstart (struct ifnet *ifp);
115 static void vxwatchdog (struct ifnet *);
116 static void vxreset (struct vx_softc *);
117 /* void vxstop (struct vx_softc *); */
118 static void vxread (struct vx_softc *);
119 static struct mbuf *vxget (struct vx_softc *, u_int);
120 static void vxmbuffill (void *);
121 static void vxmbufempty (struct vx_softc *);
122 static void vxsetfilter (struct vx_softc *);
123 static void vxgetlink (struct vx_softc *);
124 static void vxsetlink (struct vx_softc *);
125 /* int vxbusyeeprom (struct vx_softc *); */
126
127 int
128 vxattach(sc)
129     struct vx_softc *sc;
130 {
131     struct ifnet *ifp = &sc->arpcom.ac_if;
132     int i;
133
134     callout_init(&sc->vx_timer);
135     GO_WINDOW(0);
136     CSR_WRITE_2(sc, VX_COMMAND, GLOBAL_RESET);
137     VX_BUSY_WAIT;
138
139     vxgetlink(sc);
140
141     /*
142      * Read the station address from the eeprom
143      */
144     GO_WINDOW(0);
145     for (i = 0; i < 3; i++) {
146         int x;
147         if (vxbusyeeprom(sc))
148             return 0;
149         CSR_WRITE_2(sc, VX_W0_EEPROM_COMMAND, EEPROM_CMD_RD
150              | (EEPROM_OEM_ADDR_0 + i));
151         if (vxbusyeeprom(sc))
152             return 0;
153         x = CSR_READ_2(sc, VX_W0_EEPROM_DATA);
154         sc->arpcom.ac_enaddr[(i << 1)] = x >> 8;
155         sc->arpcom.ac_enaddr[(i << 1) + 1] = x;
156     }
157
158     if_initname(ifp, "vx", sc->unit);
159     ifp->if_mtu = ETHERMTU;
160     ifq_set_maxlen(&ifp->if_snd, IFQ_MAXLEN);
161     ifq_set_ready(&ifp->if_snd);
162     ifp->if_flags = IFF_BROADCAST | IFF_SIMPLEX | IFF_MULTICAST;
163     ifp->if_start = vxstart;
164     ifp->if_ioctl = vxioctl;
165     ifp->if_init = vxinit;
166     ifp->if_watchdog = vxwatchdog;
167     ifp->if_softc = sc;
168
169     ether_ifattach(ifp, sc->arpcom.ac_enaddr);
170
171     sc->tx_start_thresh = 20;   /* probably a good starting point. */
172
173     vxstop(sc);
174
175     return 1;
176 }
177
178
179
180 /*
181  * The order in here seems important. Otherwise we may not receive
182  * interrupts. ?!
183  */
184 static void
185 vxinit(xsc)
186         void *xsc;
187 {
188     struct vx_softc *sc = (struct vx_softc *) xsc;
189     struct ifnet *ifp = &sc->arpcom.ac_if;
190     int i;
191
192     VX_BUSY_WAIT;
193
194     GO_WINDOW(2);
195
196     for (i = 0; i < 6; i++) /* Reload the ether_addr. */
197         CSR_WRITE_1(sc, VX_W2_ADDR_0 + i, sc->arpcom.ac_enaddr[i]);
198
199     CSR_WRITE_2(sc, VX_COMMAND, RX_RESET);
200     VX_BUSY_WAIT;
201     CSR_WRITE_2(sc, VX_COMMAND, TX_RESET);
202     VX_BUSY_WAIT;
203
204     GO_WINDOW(1);       /* Window 1 is operating window */
205     for (i = 0; i < 31; i++)
206         CSR_READ_1(sc, VX_W1_TX_STATUS);
207
208     CSR_WRITE_2(sc, VX_COMMAND,SET_RD_0_MASK | S_CARD_FAILURE |
209                         S_RX_COMPLETE | S_TX_COMPLETE | S_TX_AVAIL);
210     CSR_WRITE_2(sc, VX_COMMAND,SET_INTR_MASK | S_CARD_FAILURE |
211                         S_RX_COMPLETE | S_TX_COMPLETE | S_TX_AVAIL);
212
213     /*
214      * Attempt to get rid of any stray interrupts that occured during
215      * configuration.  On the i386 this isn't possible because one may
216      * already be queued.  However, a single stray interrupt is
217      * unimportant.
218      */
219     CSR_WRITE_2(sc, VX_COMMAND, ACK_INTR | 0xff);
220
221     vxsetfilter(sc);
222     vxsetlink(sc);
223
224     CSR_WRITE_2(sc, VX_COMMAND, RX_ENABLE);
225     CSR_WRITE_2(sc, VX_COMMAND, TX_ENABLE);
226
227     vxmbuffill((caddr_t) sc);
228
229     /* Interface is now `running', with no output active. */
230     ifp->if_flags |= IFF_RUNNING;
231     ifp->if_flags &= ~IFF_OACTIVE;
232
233     /* Attempt to start output, if any. */
234     vxstart(ifp);
235 }
236
237 static void
238 vxsetfilter(sc)
239     struct vx_softc *sc;
240 {
241     struct ifnet *ifp = &sc->arpcom.ac_if;  
242     
243     GO_WINDOW(1);           /* Window 1 is operating window */
244     CSR_WRITE_2(sc, VX_COMMAND, SET_RX_FILTER | FIL_INDIVIDUAL | FIL_BRDCST |
245          FIL_MULTICAST |
246          ((ifp->if_flags & IFF_PROMISC) ? FIL_PROMISC : 0 ));
247 }               
248
249 static void            
250 vxgetlink(sc)
251     struct vx_softc *sc;
252 {
253     int n, k;
254
255     GO_WINDOW(3);
256     sc->vx_connectors = CSR_READ_2(sc, VX_W3_RESET_OPT) & 0x7f;
257     for (n = 0, k = 0; k < VX_CONNECTORS; k++) {
258       if (sc->vx_connectors & conn_tab[k].bit) {
259         if (n > 0) {
260           printf("/");
261         }
262         printf("%s", conn_tab[k].name);
263         n++;
264       }
265     }
266     if (sc->vx_connectors == 0) {
267         printf("no connectors!");
268         return;
269     }
270     GO_WINDOW(3);
271     sc->vx_connector = (CSR_READ_4(sc, VX_W3_INTERNAL_CFG) 
272                         & INTERNAL_CONNECTOR_MASK) 
273                         >> INTERNAL_CONNECTOR_BITS;
274     if (sc->vx_connector & 0x10) {
275         sc->vx_connector &= 0x0f;
276         printf("[*%s*]", conn_tab[(int)sc->vx_connector].name);
277         printf(": disable 'auto select' with DOS util!");
278     } else {
279         printf("[*%s*]", conn_tab[(int)sc->vx_connector].name);
280     }
281 }
282
283 static void            
284 vxsetlink(sc)
285     struct vx_softc *sc;
286 {       
287     struct ifnet *ifp = &sc->arpcom.ac_if;  
288     int i, j, k;
289     char *reason, *warning;
290     static short prev_flags;
291     static char prev_conn = -1;
292
293     if (prev_conn == -1) {
294         prev_conn = sc->vx_connector;
295     }
296
297     /*
298      * S.B.
299      *
300      * Now behavior was slightly changed:
301      *
302      * if any of flags link[0-2] is used and its connector is
303      * physically present the following connectors are used:
304      *
305      *   link0 - AUI * highest precedence
306      *   link1 - BNC
307      *   link2 - UTP * lowest precedence
308      *
309      * If none of them is specified then
310      * connector specified in the EEPROM is used
311      * (if present on card or UTP if not).
312      */
313
314     i = sc->vx_connector;       /* default in EEPROM */
315     reason = "default";
316     warning = 0;
317
318     if (ifp->if_flags & IFF_LINK0) {
319         if (sc->vx_connectors & conn_tab[CONNECTOR_AUI].bit) {
320             i = CONNECTOR_AUI;
321             reason = "link0";
322         } else {
323             warning = "aui not present! (link0)";
324         }
325     } else if (ifp->if_flags & IFF_LINK1) {
326         if (sc->vx_connectors & conn_tab[CONNECTOR_BNC].bit) {
327             i = CONNECTOR_BNC;
328             reason = "link1";
329         } else {
330             warning = "bnc not present! (link1)";
331         }
332     } else if (ifp->if_flags & IFF_LINK2) {
333         if (sc->vx_connectors & conn_tab[CONNECTOR_UTP].bit) {
334             i = CONNECTOR_UTP;
335             reason = "link2";
336         } else {
337             warning = "utp not present! (link2)";
338         }
339     } else if ((sc->vx_connectors & conn_tab[(int)sc->vx_connector].bit) == 0) {
340         warning = "strange connector type in EEPROM.";
341         reason = "forced";
342         i = CONNECTOR_UTP;
343     }
344
345     /* Avoid unnecessary message. */
346     k = (prev_flags ^ ifp->if_flags) & (IFF_LINK0 | IFF_LINK1 | IFF_LINK2);
347     if ((k != 0) || (prev_conn != i)) {
348         if (warning != 0) {
349             printf("vx%d: warning: %s\n", sc->unit, warning);
350         }
351         printf("vx%d: selected %s. (%s)\n",
352                sc->unit, conn_tab[i].name, reason);
353     }
354
355     /* Set the selected connector. */
356     GO_WINDOW(3);
357     j = CSR_READ_4(sc, VX_W3_INTERNAL_CFG) & ~INTERNAL_CONNECTOR_MASK;
358     CSR_WRITE_4(sc, VX_W3_INTERNAL_CFG, j | (i <<INTERNAL_CONNECTOR_BITS));
359
360     /* First, disable all. */
361     CSR_WRITE_2(sc,VX_COMMAND, STOP_TRANSCEIVER);
362     DELAY(800);
363     GO_WINDOW(4);
364     CSR_WRITE_2(sc, VX_W4_MEDIA_TYPE, 0);
365
366     /* Second, enable the selected one. */
367     switch(i) {
368       case CONNECTOR_UTP:
369         GO_WINDOW(4);
370         CSR_WRITE_2(sc, VX_W4_MEDIA_TYPE, ENABLE_UTP);
371         break;
372       case CONNECTOR_BNC:
373         CSR_WRITE_2(sc, VX_COMMAND, START_TRANSCEIVER);
374         DELAY(800);
375         break;
376       case CONNECTOR_TX:
377       case CONNECTOR_FX:
378         GO_WINDOW(4);
379         CSR_WRITE_2(sc, VX_W4_MEDIA_TYPE, LINKBEAT_ENABLE);
380         break;
381       default:  /* AUI and MII fall here */
382         break;
383     }
384     GO_WINDOW(1); 
385
386     prev_flags = ifp->if_flags;
387     prev_conn = i;
388 }
389
390 static void
391 vxstart(ifp)
392     struct ifnet *ifp;
393 {
394     struct vx_softc *sc = ifp->if_softc;
395     struct mbuf *m0;
396     int len, pad;
397
398     /* Don't transmit if interface is busy or not running */
399     if ((sc->arpcom.ac_if.if_flags & (IFF_RUNNING|IFF_OACTIVE)) != IFF_RUNNING)
400         return;
401
402 startagain:
403     /* Sneak a peek at the next packet */
404     m0 = ifq_poll(&ifp->if_snd);
405     if (m0 == NULL)
406         return;
407     /* We need to use m->m_pkthdr.len, so require the header */
408      if ((m0->m_flags & M_PKTHDR) == 0)
409         panic("vxstart: no header mbuf");
410      len = m0->m_pkthdr.len;
411
412      pad = (4 - len) & 3;
413
414     /*
415      * The 3c509 automatically pads short packets to minimum ethernet length,
416      * but we drop packets that are too large. Perhaps we should truncate
417      * them instead?
418      */
419     if (len + pad > ETHER_MAX_LEN) {
420         /* packet is obviously too large: toss it */
421         ++ifp->if_oerrors;
422         m0 = ifq_dequeue(&ifp->if_snd);
423         m_freem(m0);
424         goto readcheck;
425     }
426     VX_BUSY_WAIT;
427     if (CSR_READ_2(sc, VX_W1_FREE_TX) < len + pad + 4) {
428         CSR_WRITE_2(sc, VX_COMMAND, SET_TX_AVAIL_THRESH | ((len + pad + 4) >> 2));
429         /* not enough room in FIFO */
430         if (CSR_READ_2(sc, VX_W1_FREE_TX) < len + pad + 4) { /* make sure */
431             ifp->if_flags |= IFF_OACTIVE;
432             ifp->if_timer = 1;
433             return;
434         }
435     }
436     CSR_WRITE_2(sc, VX_COMMAND, SET_TX_AVAIL_THRESH | (8188 >> 2));
437     m0 = ifq_dequeue(&ifp->if_snd);
438
439     VX_BUSY_WAIT;
440     CSR_WRITE_2(sc, VX_COMMAND, SET_TX_START_THRESH |
441         ((len / 4 + sc->tx_start_thresh) >> 2));
442
443     BPF_MTAP(&sc->arpcom.ac_if, m0);
444
445     /*
446      * Do the output in a critical section so that an interrupt from another device
447      * won't cause a FIFO underrun.
448      */
449     crit_enter();
450
451     CSR_WRITE_4(sc, VX_W1_TX_PIO_WR_1, len | TX_INDICATE);
452
453     while (m0) {
454         if (m0->m_len > 3)
455             bus_space_write_multi_4(sc->vx_btag, sc->vx_bhandle,
456                 VX_W1_TX_PIO_WR_1,
457                 (u_int32_t *)mtod(m0, caddr_t), m0->m_len / 4);
458         if (m0->m_len & 3)
459             bus_space_write_multi_1(sc->vx_btag, sc->vx_bhandle,
460                 VX_W1_TX_PIO_WR_1,
461                 mtod(m0, caddr_t) + (m0->m_len & ~3), m0->m_len & 3);
462         m0 = m_free(m0);
463     }
464     while (pad--)
465         CSR_WRITE_1(sc, VX_W1_TX_PIO_WR_1, 0);  /* Padding */
466
467     crit_exit();
468
469     ++ifp->if_opackets;
470     ifp->if_timer = 1;
471
472 readcheck:
473     if ((CSR_READ_2(sc, VX_W1_RX_STATUS) & ERR_INCOMPLETE) == 0) {
474         /* We received a complete packet. */
475         
476         if ((CSR_READ_2(sc, VX_STATUS) & S_INTR_LATCH) == 0) {
477             /*
478              * No interrupt, read the packet and continue
479              * Is  this supposed to happen? Is my motherboard
480              * completely busted?
481              */
482             vxread(sc);
483         } else
484             /* Got an interrupt, return so that it gets serviced. */
485             return;
486     } else {
487         /* Check if we are stuck and reset [see XXX comment] */
488         if (vxstatus(sc)) {
489             if (ifp->if_flags & IFF_DEBUG)
490                printf("%s: adapter reset\n", ifp->if_xname);
491             vxreset(sc);
492         }
493     }
494
495     goto startagain;
496 }
497
498 /*
499  * XXX: The 3c509 card can get in a mode where both the fifo status bit
500  *      FIFOS_RX_OVERRUN and the status bit ERR_INCOMPLETE are set
501  *      We detect this situation and we reset the adapter.
502  *      It happens at times when there is a lot of broadcast traffic
503  *      on the cable (once in a blue moon).
504  */
505 static int
506 vxstatus(sc)
507     struct vx_softc *sc;
508 {
509     int fifost;
510
511     /*
512      * Check the FIFO status and act accordingly
513      */
514     GO_WINDOW(4);
515     fifost = CSR_READ_2(sc, VX_W4_FIFO_DIAG);
516     GO_WINDOW(1);
517
518     if (fifost & FIFOS_RX_UNDERRUN) {
519         if (sc->arpcom.ac_if.if_flags & IFF_DEBUG)
520             printf("vx%d: RX underrun\n", sc->unit);
521         vxreset(sc);
522         return 0;
523     }
524
525     if (fifost & FIFOS_RX_STATUS_OVERRUN) {
526         if (sc->arpcom.ac_if.if_flags & IFF_DEBUG)
527             printf("vx%d: RX Status overrun\n", sc->unit);
528         return 1;
529     }
530
531     if (fifost & FIFOS_RX_OVERRUN) {
532         if (sc->arpcom.ac_if.if_flags & IFF_DEBUG)
533             printf("vx%d: RX overrun\n", sc->unit);
534         return 1;
535     }
536
537     if (fifost & FIFOS_TX_OVERRUN) {
538         if (sc->arpcom.ac_if.if_flags & IFF_DEBUG)
539             printf("vx%d: TX overrun\n", sc->unit);
540         vxreset(sc);
541         return 0;
542     }
543
544     return 0;
545 }
546
547 static void     
548 vxtxstat(sc)
549     struct vx_softc *sc;
550 {
551     int i;
552
553     /*
554     * We need to read+write TX_STATUS until we get a 0 status
555     * in order to turn off the interrupt flag.
556     */
557     while ((i = CSR_READ_1(sc, VX_W1_TX_STATUS)) & TXS_COMPLETE) {
558         CSR_WRITE_1(sc, VX_W1_TX_STATUS, 0x0);
559
560     if (i & TXS_JABBER) {
561         ++sc->arpcom.ac_if.if_oerrors;
562         if (sc->arpcom.ac_if.if_flags & IFF_DEBUG)
563             printf("vx%d: jabber (%x)\n", sc->unit, i);
564         vxreset(sc);
565     } else if (i & TXS_UNDERRUN) {
566         ++sc->arpcom.ac_if.if_oerrors;
567         if (sc->arpcom.ac_if.if_flags & IFF_DEBUG)
568             printf("vx%d: fifo underrun (%x) @%d\n",
569                 sc->unit, i, sc->tx_start_thresh);
570         if (sc->tx_succ_ok < 100)
571             sc->tx_start_thresh = min(ETHER_MAX_LEN, sc->tx_start_thresh + 20);
572         sc->tx_succ_ok = 0;
573         vxreset(sc);
574     } else if (i & TXS_MAX_COLLISION) {
575         ++sc->arpcom.ac_if.if_collisions;
576         CSR_WRITE_2(sc, VX_COMMAND, TX_ENABLE);
577         sc->arpcom.ac_if.if_flags &= ~IFF_OACTIVE;
578     } else
579         sc->tx_succ_ok = (sc->tx_succ_ok+1) & 127;
580     }
581 }
582
583 void
584 vxintr(voidsc)
585     void *voidsc;
586 {
587     short status;
588     struct vx_softc *sc = voidsc;
589     struct ifnet *ifp = &sc->arpcom.ac_if;
590
591     for (;;) {
592         CSR_WRITE_2(sc, VX_COMMAND, C_INTR_LATCH);
593
594         status = CSR_READ_2(sc, VX_STATUS);
595
596         if ((status & (S_TX_COMPLETE | S_TX_AVAIL |
597                 S_RX_COMPLETE | S_CARD_FAILURE)) == 0)
598             break;
599
600         /*
601          * Acknowledge any interrupts.  It's important that we do this
602          * first, since there would otherwise be a race condition.
603          * Due to the i386 interrupt queueing, we may get spurious
604          * interrupts occasionally.
605          */
606         CSR_WRITE_2(sc, VX_COMMAND, ACK_INTR | status);
607
608         if (status & S_RX_COMPLETE)
609             vxread(sc);
610         if (status & S_TX_AVAIL) {
611             ifp->if_timer = 0;
612             sc->arpcom.ac_if.if_flags &= ~IFF_OACTIVE;
613             vxstart(&sc->arpcom.ac_if);
614         }
615         if (status & S_CARD_FAILURE) {
616             printf("vx%d: adapter failure (%x)\n", sc->unit, status);
617             ifp->if_timer = 0;
618             vxreset(sc);
619             return;
620         }
621         if (status & S_TX_COMPLETE) {
622             ifp->if_timer = 0;
623             vxtxstat(sc);
624             vxstart(ifp);
625         }
626     }
627
628     /* no more interrupts */
629     return;
630 }
631
632 static void
633 vxread(sc)
634     struct vx_softc *sc;
635 {
636     struct ifnet *ifp = &sc->arpcom.ac_if;
637     struct mbuf *m;
638     struct ether_header *eh;
639     u_int len;
640
641     len = CSR_READ_2(sc, VX_W1_RX_STATUS);
642
643 again:
644
645     if (ifp->if_flags & IFF_DEBUG) {
646         int err = len & ERR_MASK;
647         char *s = NULL;
648
649         if (len & ERR_INCOMPLETE)
650             s = "incomplete packet";
651         else if (err == ERR_OVERRUN)
652             s = "packet overrun";
653         else if (err == ERR_RUNT)
654             s = "runt packet";
655         else if (err == ERR_ALIGNMENT)
656             s = "bad alignment";
657         else if (err == ERR_CRC)
658             s = "bad crc";
659         else if (err == ERR_OVERSIZE)
660             s = "oversized packet";
661         else if (err == ERR_DRIBBLE)
662             s = "dribble bits";
663
664         if (s)
665         printf("vx%d: %s\n", sc->unit, s);
666     }
667
668     if (len & ERR_INCOMPLETE)
669         return;
670
671     if (len & ERR_RX) {
672         ++ifp->if_ierrors;
673         goto abort;
674     }
675
676     len &= RX_BYTES_MASK;       /* Lower 11 bits = RX bytes. */
677
678     /* Pull packet off interface. */
679     m = vxget(sc, len);
680     if (m == 0) {
681         ifp->if_ierrors++;
682         goto abort;
683     }
684
685     ++ifp->if_ipackets;
686
687     /* We assume the header fit entirely in one mbuf. */
688     eh = mtod(m, struct ether_header *);
689
690     /*
691      * XXX: Some cards seem to be in promiscous mode all the time.
692      * we need to make sure we only get our own stuff always.
693      * bleah!
694      */
695
696     if ((eh->ether_dhost[0] & 1) == 0           /* !mcast and !bcast */
697       && bcmp(eh->ether_dhost, sc->arpcom.ac_enaddr, ETHER_ADDR_LEN) != 0) {
698         m_freem(m);
699         return;
700     }
701
702     (*ifp->if_input)(ifp, m);
703
704     /*
705     * In periods of high traffic we can actually receive enough
706     * packets so that the fifo overrun bit will be set at this point,
707     * even though we just read a packet. In this case we
708     * are not going to receive any more interrupts. We check for
709     * this condition and read again until the fifo is not full.
710     * We could simplify this test by not using vxstatus(), but
711     * rechecking the RX_STATUS register directly. This test could
712     * result in unnecessary looping in cases where there is a new
713     * packet but the fifo is not full, but it will not fix the
714     * stuck behavior.
715     *
716     * Even with this improvement, we still get packet overrun errors
717     * which are hurting performance. Maybe when I get some more time
718     * I'll modify vxread() so that it can handle RX_EARLY interrupts.
719     */
720     if (vxstatus(sc)) {
721         len = CSR_READ_2(sc, VX_W1_RX_STATUS);
722         /* Check if we are stuck and reset [see XXX comment] */
723         if (len & ERR_INCOMPLETE) {
724             if (ifp->if_flags & IFF_DEBUG)
725                 printf("vx%d: adapter reset\n", sc->unit);
726             vxreset(sc);
727             return;
728         }
729         goto again;
730     }
731
732     return;
733
734 abort:
735     CSR_WRITE_2(sc, VX_COMMAND, RX_DISCARD_TOP_PACK);
736 }
737
738 static struct mbuf *
739 vxget(sc, totlen)
740     struct vx_softc *sc;
741     u_int totlen;
742 {
743     struct ifnet *ifp = &sc->arpcom.ac_if;
744     struct mbuf *top, **mp, *m;
745     int len;
746     int sh;
747
748     m = sc->mb[sc->next_mb];
749     sc->mb[sc->next_mb] = 0;
750     if (m == 0) {
751         MGETHDR(m, MB_DONTWAIT, MT_DATA);
752         if (m == 0)
753             return 0;
754     } else {
755         /* If the queue is no longer full, refill. */
756         if (sc->last_mb == sc->next_mb && sc->buffill_pending == 0) {
757             callout_reset(&sc->vx_timer, 1, vxmbuffill, sc);
758             sc->buffill_pending = 1;
759         }
760         /* Convert one of our saved mbuf's. */
761         sc->next_mb = (sc->next_mb + 1) % MAX_MBS;
762         m->m_data = m->m_pktdat;
763         m->m_flags = M_PKTHDR;
764         bzero(&m->m_pkthdr, sizeof(m->m_pkthdr));
765     }
766     m->m_pkthdr.rcvif = ifp;
767     m->m_pkthdr.len = totlen;
768     len = MHLEN;
769     top = 0;
770     mp = &top;
771
772     /*
773      * We read the packet in a critical section so that an interrupt from another
774      * device doesn't cause the card's buffer to overflow while we're
775      * reading it.  We may still lose packets at other times.
776      */
777     crit_enter();
778
779     /*
780      * Since we don't set allowLargePackets bit in MacControl register,
781      * we can assume that totlen <= 1500bytes.
782      * The while loop will be performed iff we have a packet with
783      * MLEN < m_len < MINCLSIZE.
784      */
785     while (totlen > 0) {
786         if (top) {
787             m = sc->mb[sc->next_mb];
788             sc->mb[sc->next_mb] = 0;
789             if (m == 0) {
790                 MGET(m, MB_DONTWAIT, MT_DATA);
791                 if (m == 0) {
792                     crit_exit();
793                     m_freem(top);
794                     return 0;
795                 }
796             } else {
797                 sc->next_mb = (sc->next_mb + 1) % MAX_MBS;
798             }
799             len = MLEN;
800         }
801         if (totlen >= MINCLSIZE) {
802             MCLGET(m, MB_DONTWAIT);
803             if (m->m_flags & M_EXT)
804                 len = MCLBYTES;
805         }
806         len = min(totlen, len);
807         if (len > 3)
808             bus_space_read_multi_4(sc->vx_btag, sc->vx_bhandle,
809                 VX_W1_RX_PIO_RD_1, mtod(m, u_int32_t *), len / 4);
810         if (len & 3) {
811             bus_space_read_multi_1(sc->vx_btag, sc->vx_bhandle,
812                 VX_W1_RX_PIO_RD_1, mtod(m, u_int8_t *) + (len & ~3),
813                 len & 3);
814         }
815         m->m_len = len;
816         totlen -= len;
817         *mp = m;
818         mp = &m->m_next;
819     }
820
821     CSR_WRITE_2(sc, VX_COMMAND, RX_DISCARD_TOP_PACK);
822
823     crit_exit();
824
825     return top;
826 }
827
828
829 static int
830 vxioctl(ifp, cmd, data, cr)
831     struct ifnet *ifp;
832     u_long cmd;
833     caddr_t data;
834     struct ucred *cr;
835 {
836     struct vx_softc *sc = ifp->if_softc;
837     struct ifreq *ifr = (struct ifreq *) data;
838     int error = 0;
839
840     crit_enter();
841
842     switch (cmd) {
843     case SIOCSIFFLAGS:
844         if ((ifp->if_flags & IFF_UP) == 0 &&
845             (ifp->if_flags & IFF_RUNNING) != 0) {
846             /*
847              * If interface is marked up and it is stopped, then
848              * start it.
849              */
850             vxstop(sc);
851             ifp->if_flags &= ~IFF_RUNNING;
852         } else if ((ifp->if_flags & IFF_UP) != 0 &&
853                    (ifp->if_flags & IFF_RUNNING) == 0) {
854             /*
855              * If interface is marked up and it is stopped, then
856              * start it.
857              */
858             vxinit(sc);
859         } else {
860             /*
861              * deal with flags changes:
862              * IFF_MULTICAST, IFF_PROMISC,
863              * IFF_LINK0, IFF_LINK1,
864              */
865             vxsetfilter(sc);
866             vxsetlink(sc);
867         }
868         break;
869
870     case SIOCSIFMTU:
871         /*
872          * Set the interface MTU.
873          */
874         if (ifr->ifr_mtu > ETHERMTU) {
875             error = EINVAL;
876         } else {
877             ifp->if_mtu = ifr->ifr_mtu;
878         }
879         break;
880
881     case SIOCADDMULTI:
882     case SIOCDELMULTI:
883         /*
884          * Multicast list has changed; set the hardware filter
885          * accordingly.
886          */
887         vxreset(sc);
888         error = 0;
889         break;
890
891
892     default:
893         ether_ioctl(ifp, cmd, data);
894         break;
895     }
896
897     crit_exit();
898
899     return (error);
900 }
901
902 static void
903 vxreset(sc)
904     struct vx_softc *sc;
905 {
906
907     crit_enter();
908
909     vxstop(sc);
910     vxinit(sc);
911     crit_exit();
912 }
913
914 static void
915 vxwatchdog(ifp)
916     struct ifnet *ifp;
917 {
918     struct vx_softc *sc = ifp->if_softc;
919
920     if (ifp->if_flags & IFF_DEBUG)
921         printf("%s: device timeout\n", ifp->if_xname);
922     ifp->if_flags &= ~IFF_OACTIVE;
923     vxstart(ifp);
924     vxintr(sc);
925 }
926
927 void
928 vxstop(sc)
929     struct vx_softc *sc;
930 {
931     struct ifnet *ifp = &sc->arpcom.ac_if;
932
933     ifp->if_timer = 0;
934
935     CSR_WRITE_2(sc, VX_COMMAND, RX_DISABLE);
936     CSR_WRITE_2(sc, VX_COMMAND, RX_DISCARD_TOP_PACK);
937     VX_BUSY_WAIT;
938     CSR_WRITE_2(sc, VX_COMMAND, TX_DISABLE);
939     CSR_WRITE_2(sc, VX_COMMAND, STOP_TRANSCEIVER);
940     DELAY(800);
941     CSR_WRITE_2(sc, VX_COMMAND, RX_RESET);
942     VX_BUSY_WAIT;
943     CSR_WRITE_2(sc, VX_COMMAND, TX_RESET);
944     VX_BUSY_WAIT;
945     CSR_WRITE_2(sc, VX_COMMAND, C_INTR_LATCH);
946     CSR_WRITE_2(sc, VX_COMMAND, SET_RD_0_MASK);
947     CSR_WRITE_2(sc, VX_COMMAND, SET_INTR_MASK);
948     CSR_WRITE_2(sc, VX_COMMAND, SET_RX_FILTER);
949
950     vxmbufempty(sc);
951 }
952
953 int
954 vxbusyeeprom(sc)
955     struct vx_softc *sc;
956 {
957     int j, i = 100;
958
959     while (i--) {
960         j = CSR_READ_2(sc, VX_W0_EEPROM_COMMAND);
961         if (j & EEPROM_BUSY)
962             DELAY(100);
963         else
964             break;
965     }
966     if (!i) {
967         printf("vx%d: eeprom failed to come ready\n", sc->unit);
968         return (1);
969     }
970     return (0);
971 }
972
973 static void
974 vxmbuffill(sp)
975     void *sp;
976 {
977     struct vx_softc *sc = (struct vx_softc *) sp;
978     int i;
979
980     crit_enter();
981     i = sc->last_mb;
982     do {
983         if (sc->mb[i] == NULL)
984             MGET(sc->mb[i], MB_DONTWAIT, MT_DATA);
985         if (sc->mb[i] == NULL)
986             break;
987         i = (i + 1) % MAX_MBS;
988     } while (i != sc->next_mb);
989     sc->last_mb = i;
990     /* If the queue was not filled, try again. */
991     if (sc->last_mb != sc->next_mb) {
992         callout_reset(&sc->vx_timer, 1, vxmbuffill, sc);
993         sc->buffill_pending = 1;
994     } else {
995         sc->buffill_pending = 0;
996     }
997     crit_exit();
998 }
999
1000 static void
1001 vxmbufempty(sc)
1002     struct vx_softc *sc;
1003 {
1004     int i;
1005
1006     crit_enter();
1007     for (i = 0; i < MAX_MBS; i++) {
1008         if (sc->mb[i]) {
1009             m_freem(sc->mb[i]);
1010             sc->mb[i] = NULL;
1011         }
1012     }
1013     sc->last_mb = sc->next_mb = 0;
1014     if (sc->buffill_pending != 0)
1015         callout_stop(&sc->vx_timer);
1016     crit_exit();
1017 }