Subversion Repositories or1k_soc_on_altera_embedded_dev_kit

/* myri_sbus.c: MyriCOM MyriNET SBUS card driver.

 *

 * Copyright (C) 1996, 1999, 2006 David S. Miller (davem@davemloft.net)

 */

static char version[] =

        "myri_sbus.c:v2.0 June 23, 2006 David S. Miller (davem@davemloft.net)\n";

#include <linux/module.h>

#include <linux/errno.h>

#include <linux/kernel.h>

#include <linux/types.h>

#include <linux/fcntl.h>

#include <linux/interrupt.h>

#include <linux/ioport.h>

#include <linux/in.h>

#include <linux/slab.h>

#include <linux/string.h>

#include <linux/delay.h>

#include <linux/init.h>

#include <linux/netdevice.h>

#include <linux/etherdevice.h>

#include <linux/skbuff.h>

#include <linux/bitops.h>

#include <net/dst.h>

#include <net/arp.h>

#include <net/sock.h>

#include <net/ipv6.h>

#include <asm/system.h>

#include <asm/io.h>

#include <asm/dma.h>

#include <asm/byteorder.h>

#include <asm/idprom.h>

#include <asm/sbus.h>

#include <asm/openprom.h>

#include <asm/oplib.h>

#include <asm/auxio.h>

#include <asm/pgtable.h>

#include <asm/irq.h>

#include "myri_sbus.h"

#include "myri_code.h"

/* #define DEBUG_DETECT */

/* #define DEBUG_IRQ */

/* #define DEBUG_TRANSMIT */

/* #define DEBUG_RECEIVE */

/* #define DEBUG_HEADER */

#ifdef DEBUG_DETECT

#define DET(x)   printk x

#else

#define DET(x)

#endif

#ifdef DEBUG_IRQ

#define DIRQ(x)  printk x

#else

#define DIRQ(x)

#endif

#ifdef DEBUG_TRANSMIT

#define DTX(x)  printk x

#else

#define DTX(x)

#endif

#ifdef DEBUG_RECEIVE

#define DRX(x)  printk x

#else

#define DRX(x)

#endif

#ifdef DEBUG_HEADER

#define DHDR(x) printk x

#else

#define DHDR(x)

#endif

static void myri_reset_off(void __iomem *lp, void __iomem *cregs)

{

        /* Clear IRQ mask. */

        sbus_writel(0, lp + LANAI_EIMASK);

        /* Turn RESET function off. */

        sbus_writel(CONTROL_ROFF, cregs + MYRICTRL_CTRL);

}

static void myri_reset_on(void __iomem *cregs)

{

        /* Enable RESET function. */

        sbus_writel(CONTROL_RON, cregs + MYRICTRL_CTRL);

        /* Disable IRQ's. */

        sbus_writel(CONTROL_DIRQ, cregs + MYRICTRL_CTRL);

}

static void myri_disable_irq(void __iomem *lp, void __iomem *cregs)

{

        sbus_writel(CONTROL_DIRQ, cregs + MYRICTRL_CTRL);

        sbus_writel(0, lp + LANAI_EIMASK);

        sbus_writel(ISTAT_HOST, lp + LANAI_ISTAT);

}

static void myri_enable_irq(void __iomem *lp, void __iomem *cregs)

{

        sbus_writel(CONTROL_EIRQ, cregs + MYRICTRL_CTRL);

        sbus_writel(ISTAT_HOST, lp + LANAI_EIMASK);

}

static inline void bang_the_chip(struct myri_eth *mp)

{

        struct myri_shmem __iomem *shmem = mp->shmem;

        void __iomem *cregs             = mp->cregs;

        sbus_writel(1, &shmem->send);

        sbus_writel(CONTROL_WON, cregs + MYRICTRL_CTRL);

}

static int myri_do_handshake(struct myri_eth *mp)

{

        struct myri_shmem __iomem *shmem = mp->shmem;

        void __iomem *cregs = mp->cregs;

        struct myri_channel __iomem *chan = &shmem->channel;

        int tick                        = 0;

        DET(("myri_do_handshake: "));

        if (sbus_readl(&chan->state) == STATE_READY) {

                DET(("Already STATE_READY, failed.\n"));

                return -1;      /* We're hosed... */

        }

        myri_disable_irq(mp->lregs, cregs);

        while (tick++ < 25) {

                u32 softstate;

                /* Wake it up. */

                DET(("shakedown, CONTROL_WON, "));

                sbus_writel(1, &shmem->shakedown);

                sbus_writel(CONTROL_WON, cregs + MYRICTRL_CTRL);

                softstate = sbus_readl(&chan->state);

                DET(("chanstate[%08x] ", softstate));

                if (softstate == STATE_READY) {

                        DET(("wakeup successful, "));

                        break;

                }

                if (softstate != STATE_WFN) {

                        DET(("not WFN setting that, "));

                        sbus_writel(STATE_WFN, &chan->state);

                }

                udelay(20);

        }

        myri_enable_irq(mp->lregs, cregs);

        if (tick > 25) {

                DET(("25 ticks we lose, failure.\n"));

                return -1;

        }

        DET(("success\n"));

        return 0;

}

static int __devinit myri_load_lanai(struct myri_eth *mp)

{

        struct net_device       *dev = mp->dev;

        struct myri_shmem __iomem *shmem = mp->shmem;

        void __iomem            *rptr;

        int                     i;

        myri_disable_irq(mp->lregs, mp->cregs);

        myri_reset_on(mp->cregs);

        rptr = mp->lanai;

        for (i = 0; i < mp->eeprom.ramsz; i++)

                sbus_writeb(0, rptr + i);

        if (mp->eeprom.cpuvers >= CPUVERS_3_0)

                sbus_writel(mp->eeprom.cval, mp->lregs + LANAI_CVAL);

        /* Load executable code. */

        for (i = 0; i < sizeof(lanai4_code); i++)

                sbus_writeb(lanai4_code[i], rptr + (lanai4_code_off * 2) + i);

        /* Load data segment. */

        for (i = 0; i < sizeof(lanai4_data); i++)

                sbus_writeb(lanai4_data[i], rptr + (lanai4_data_off * 2) + i);

        /* Set device address. */

        sbus_writeb(0, &shmem->addr[0]);

        sbus_writeb(0, &shmem->addr[1]);

        for (i = 0; i < 6; i++)

                sbus_writeb(dev->dev_addr[i],

                            &shmem->addr[i + 2]);

        /* Set SBUS bursts and interrupt mask. */

        sbus_writel(((mp->myri_bursts & 0xf8) >> 3), &shmem->burst);

        sbus_writel(SHMEM_IMASK_RX, &shmem->imask);

        /* Release the LANAI. */

        myri_disable_irq(mp->lregs, mp->cregs);

        myri_reset_off(mp->lregs, mp->cregs);

        myri_disable_irq(mp->lregs, mp->cregs);

        /* Wait for the reset to complete. */

        for (i = 0; i < 5000; i++) {

                if (sbus_readl(&shmem->channel.state) != STATE_READY)

                        break;

                else

                        udelay(10);

        }

        if (i == 5000)

                printk(KERN_ERR "myricom: Chip would not reset after firmware load.\n");

        i = myri_do_handshake(mp);

        if (i)

                printk(KERN_ERR "myricom: Handshake with LANAI failed.\n");

        if (mp->eeprom.cpuvers == CPUVERS_4_0)

                sbus_writel(0, mp->lregs + LANAI_VERS);

        return i;

}

static void myri_clean_rings(struct myri_eth *mp)

{

        struct sendq __iomem *sq = mp->sq;

        struct recvq __iomem *rq = mp->rq;

        int i;

        sbus_writel(0, &rq->tail);

        sbus_writel(0, &rq->head);

        for (i = 0; i < (RX_RING_SIZE+1); i++) {

                if (mp->rx_skbs[i] != NULL) {

                        struct myri_rxd __iomem *rxd = &rq->myri_rxd[i];

                        u32 dma_addr;

                        dma_addr = sbus_readl(&rxd->myri_scatters[0].addr);

                        sbus_unmap_single(mp->myri_sdev, dma_addr, RX_ALLOC_SIZE, SBUS_DMA_FROMDEVICE);

                        dev_kfree_skb(mp->rx_skbs[i]);

                        mp->rx_skbs[i] = NULL;

                }

        }

        mp->tx_old = 0;

        sbus_writel(0, &sq->tail);

        sbus_writel(0, &sq->head);

        for (i = 0; i < TX_RING_SIZE; i++) {

                if (mp->tx_skbs[i] != NULL) {

                        struct sk_buff *skb = mp->tx_skbs[i];

                        struct myri_txd __iomem *txd = &sq->myri_txd[i];

                        u32 dma_addr;

                        dma_addr = sbus_readl(&txd->myri_gathers[0].addr);

                        sbus_unmap_single(mp->myri_sdev, dma_addr, (skb->len + 3) & ~3, SBUS_DMA_TODEVICE);

                        dev_kfree_skb(mp->tx_skbs[i]);

                        mp->tx_skbs[i] = NULL;

                }

        }

}

static void myri_init_rings(struct myri_eth *mp, int from_irq)

{

        struct recvq __iomem *rq = mp->rq;

        struct myri_rxd __iomem *rxd = &rq->myri_rxd[0];

        struct net_device *dev = mp->dev;

        gfp_t gfp_flags = GFP_KERNEL;

        int i;

        if (from_irq || in_interrupt())

                gfp_flags = GFP_ATOMIC;

        myri_clean_rings(mp);

        for (i = 0; i < RX_RING_SIZE; i++) {

                struct sk_buff *skb = myri_alloc_skb(RX_ALLOC_SIZE, gfp_flags);

                u32 dma_addr;

                if (!skb)

                        continue;

                mp->rx_skbs[i] = skb;

                skb->dev = dev;

                skb_put(skb, RX_ALLOC_SIZE);

                dma_addr = sbus_map_single(mp->myri_sdev, skb->data, RX_ALLOC_SIZE, SBUS_DMA_FROMDEVICE);

                sbus_writel(dma_addr, &rxd[i].myri_scatters[0].addr);

                sbus_writel(RX_ALLOC_SIZE, &rxd[i].myri_scatters[0].len);

                sbus_writel(i, &rxd[i].ctx);

                sbus_writel(1, &rxd[i].num_sg);

        }

        sbus_writel(0, &rq->head);

        sbus_writel(RX_RING_SIZE, &rq->tail);

}

static int myri_init(struct myri_eth *mp, int from_irq)

{

        myri_init_rings(mp, from_irq);

        return 0;

}

static void myri_is_not_so_happy(struct myri_eth *mp)

{

}

#ifdef DEBUG_HEADER

static void dump_ehdr(struct ethhdr *ehdr)

{

        DECLARE_MAC_BUF(mac);

        DECLARE_MAC_BUF(mac2);

        printk("ehdr[h_dst(%s)"

               "h_source(%s)"

               "h_proto(%04x)]\n",

               print_mac(mac, ehdr->h_dest), print_mac(mac2, ehdr->h_source),

               ehdr->h_proto);

}

static void dump_ehdr_and_myripad(unsigned char *stuff)

{

        struct ethhdr *ehdr = (struct ethhdr *) (stuff + 2);

        printk("pad[%02x:%02x]", stuff[0], stuff[1]);

        dump_ehdr(ehdr);

}

#endif

static void myri_tx(struct myri_eth *mp, struct net_device *dev)

{

        struct sendq __iomem *sq= mp->sq;

        int entry               = mp->tx_old;

        int limit               = sbus_readl(&sq->head);

        DTX(("entry[%d] limit[%d] ", entry, limit));

        if (entry == limit)

                return;

        while (entry != limit) {

                struct sk_buff *skb = mp->tx_skbs[entry];

                u32 dma_addr;

                DTX(("SKB[%d] ", entry));

                dma_addr = sbus_readl(&sq->myri_txd[entry].myri_gathers[0].addr);

                sbus_unmap_single(mp->myri_sdev, dma_addr, skb->len, SBUS_DMA_TODEVICE);

                dev_kfree_skb(skb);

                mp->tx_skbs[entry] = NULL;

                dev->stats.tx_packets++;

                entry = NEXT_TX(entry);

        }

        mp->tx_old = entry;

}

/* Determine the packet's protocol ID. The rule here is that we

 * assume 802.3 if the type field is short enough to be a length.

 * This is normal practice and works for any 'now in use' protocol.

 */

static __be16 myri_type_trans(struct sk_buff *skb, struct net_device *dev)

{

        struct ethhdr *eth;

        unsigned char *rawp;

        skb_set_mac_header(skb, MYRI_PAD_LEN);

        skb_pull(skb, dev->hard_header_len);

        eth = eth_hdr(skb);

#ifdef DEBUG_HEADER

        DHDR(("myri_type_trans: "));

        dump_ehdr(eth);

#endif

        if (*eth->h_dest & 1) {

                if (memcmp(eth->h_dest, dev->broadcast, ETH_ALEN)==0)

                        skb->pkt_type = PACKET_BROADCAST;

                else

                        skb->pkt_type = PACKET_MULTICAST;

        } else if (dev->flags & (IFF_PROMISC|IFF_ALLMULTI)) {

                if (memcmp(eth->h_dest, dev->dev_addr, ETH_ALEN))

                        skb->pkt_type = PACKET_OTHERHOST;

        }

        if (ntohs(eth->h_proto) >= 1536)

                return eth->h_proto;

        rawp = skb->data;

        /* This is a magic hack to spot IPX packets. Older Novell breaks

         * the protocol design and runs IPX over 802.3 without an 802.2 LLC

         * layer. We look for FFFF which isn't a used 802.2 SSAP/DSAP. This

         * won't work for fault tolerant netware but does for the rest.

         */

        if (*(unsigned short *)rawp == 0xFFFF)

                return htons(ETH_P_802_3);

        /* Real 802.2 LLC */

        return htons(ETH_P_802_2);

}

static void myri_rx(struct myri_eth *mp, struct net_device *dev)

{

        struct recvq __iomem *rq = mp->rq;

        struct recvq __iomem *rqa = mp->rqack;

        int entry               = sbus_readl(&rqa->head);

        int limit               = sbus_readl(&rqa->tail);

        int drops;

        DRX(("entry[%d] limit[%d] ", entry, limit));

        if (entry == limit)

                return;

        drops = 0;

        DRX(("\n"));

        while (entry != limit) {

                struct myri_rxd __iomem *rxdack = &rqa->myri_rxd[entry];

                u32 csum                = sbus_readl(&rxdack->csum);

                int len                 = sbus_readl(&rxdack->myri_scatters[0].len);

                int index               = sbus_readl(&rxdack->ctx);

                struct myri_rxd __iomem *rxd = &rq->myri_rxd[sbus_readl(&rq->tail)];

                struct sk_buff *skb     = mp->rx_skbs[index];

                /* Ack it. */

                sbus_writel(NEXT_RX(entry), &rqa->head);

                /* Check for errors. */

                DRX(("rxd[%d]: %p len[%d] csum[%08x] ", entry, rxd, len, csum));

                sbus_dma_sync_single_for_cpu(mp->myri_sdev,

                                             sbus_readl(&rxd->myri_scatters[0].addr),

                                             RX_ALLOC_SIZE, SBUS_DMA_FROMDEVICE);

                if (len < (ETH_HLEN + MYRI_PAD_LEN) || (skb->data[0] != MYRI_PAD_LEN)) {

                        DRX(("ERROR["));

                        dev->stats.rx_errors++;

                        if (len < (ETH_HLEN + MYRI_PAD_LEN)) {

                                DRX(("BAD_LENGTH] "));

                                dev->stats.rx_length_errors++;

                        } else {

                                DRX(("NO_PADDING] "));

                                dev->stats.rx_frame_errors++;

                        }

                        /* Return it to the LANAI. */

        drop_it:

                        drops++;

                        DRX(("DROP "));

                        dev->stats.rx_dropped++;

                        sbus_dma_sync_single_for_device(mp->myri_sdev,

                                                        sbus_readl(&rxd->myri_scatters[0].addr),

                                                        RX_ALLOC_SIZE,

                                                        SBUS_DMA_FROMDEVICE);

                        sbus_writel(RX_ALLOC_SIZE, &rxd->myri_scatters[0].len);

                        sbus_writel(index, &rxd->ctx);

                        sbus_writel(1, &rxd->num_sg);

                        sbus_writel(NEXT_RX(sbus_readl(&rq->tail)), &rq->tail);

                        goto next;

                }

                DRX(("len[%d] ", len));

                if (len > RX_COPY_THRESHOLD) {

                        struct sk_buff *new_skb;

                        u32 dma_addr;

                        DRX(("BIGBUFF "));

                        new_skb = myri_alloc_skb(RX_ALLOC_SIZE, GFP_ATOMIC);

                        if (new_skb == NULL) {

                                DRX(("skb_alloc(FAILED) "));

                                goto drop_it;

                        }

                        sbus_unmap_single(mp->myri_sdev,

                                          sbus_readl(&rxd->myri_scatters[0].addr),

                                          RX_ALLOC_SIZE,

                                          SBUS_DMA_FROMDEVICE);

                        mp->rx_skbs[index] = new_skb;

                        new_skb->dev = dev;

                        skb_put(new_skb, RX_ALLOC_SIZE);

                        dma_addr = sbus_map_single(mp->myri_sdev,

                                                   new_skb->data,

                                                   RX_ALLOC_SIZE,

                                                   SBUS_DMA_FROMDEVICE);

                        sbus_writel(dma_addr, &rxd->myri_scatters[0].addr);

                        sbus_writel(RX_ALLOC_SIZE, &rxd->myri_scatters[0].len);

                        sbus_writel(index, &rxd->ctx);

                        sbus_writel(1, &rxd->num_sg);

                        sbus_writel(NEXT_RX(sbus_readl(&rq->tail)), &rq->tail);

                        /* Trim the original skb for the netif. */

                        DRX(("trim(%d) ", len));

                        skb_trim(skb, len);

                } else {

                        struct sk_buff *copy_skb = dev_alloc_skb(len);

                        DRX(("SMALLBUFF "));

                        if (copy_skb == NULL) {

                                DRX(("dev_alloc_skb(FAILED) "));

                                goto drop_it;

                        }

                        /* DMA sync already done above. */

                        copy_skb->dev = dev;

                        DRX(("resv_and_put "));

                        skb_put(copy_skb, len);

                        skb_copy_from_linear_data(skb, copy_skb->data, len);

                        /* Reuse original ring buffer. */

                        DRX(("reuse "));

                        sbus_dma_sync_single_for_device(mp->myri_sdev,

                                                        sbus_readl(&rxd->myri_scatters[0].addr),

                                                        RX_ALLOC_SIZE,

                                                        SBUS_DMA_FROMDEVICE);

                        sbus_writel(RX_ALLOC_SIZE, &rxd->myri_scatters[0].len);

                        sbus_writel(index, &rxd->ctx);

                        sbus_writel(1, &rxd->num_sg);

                        sbus_writel(NEXT_RX(sbus_readl(&rq->tail)), &rq->tail);

                        skb = copy_skb;

                }

                /* Just like the happy meal we get checksums from this card. */

                skb->csum = csum;

                skb->ip_summed = CHECKSUM_UNNECESSARY; /* XXX */

                skb->protocol = myri_type_trans(skb, dev);

                DRX(("prot[%04x] netif_rx ", skb->protocol));

                netif_rx(skb);

                dev->last_rx = jiffies;

                dev->stats.rx_packets++;

                dev->stats.rx_bytes += len;

        next:

                DRX(("NEXT\n"));

                entry = NEXT_RX(entry);

        }

}

static irqreturn_t myri_interrupt(int irq, void *dev_id)

{

        struct net_device *dev          = (struct net_device *) dev_id;

        struct myri_eth *mp             = (struct myri_eth *) dev->priv;

        void __iomem *lregs             = mp->lregs;

        struct myri_channel __iomem *chan = &mp->shmem->channel;

        unsigned long flags;

        u32 status;

        int handled = 0;

        spin_lock_irqsave(&mp->irq_lock, flags);

        status = sbus_readl(lregs + LANAI_ISTAT);

        DIRQ(("myri_interrupt: status[%08x] ", status));

        if (status & ISTAT_HOST) {

                u32 softstate;

                handled = 1;

                DIRQ(("IRQ_DISAB "));

                myri_disable_irq(lregs, mp->cregs);

                softstate = sbus_readl(&chan->state);

                DIRQ(("state[%08x] ", softstate));

                if (softstate != STATE_READY) {

                        DIRQ(("myri_not_so_happy "));

                        myri_is_not_so_happy(mp);

                }

                DIRQ(("\nmyri_rx: "));

                myri_rx(mp, dev);

                DIRQ(("\nistat=ISTAT_HOST "));

                sbus_writel(ISTAT_HOST, lregs + LANAI_ISTAT);

                DIRQ(("IRQ_ENAB "));

                myri_enable_irq(lregs, mp->cregs);

        }

        DIRQ(("\n"));

        spin_unlock_irqrestore(&mp->irq_lock, flags);

        return IRQ_RETVAL(handled);

}

static int myri_open(struct net_device *dev)

{

        struct myri_eth *mp = (struct myri_eth *) dev->priv;

        return myri_init(mp, in_interrupt());

}

static int myri_close(struct net_device *dev)

{

        struct myri_eth *mp = (struct myri_eth *) dev->priv;

        myri_clean_rings(mp);

        return 0;

}

static void myri_tx_timeout(struct net_device *dev)

{

        struct myri_eth *mp = (struct myri_eth *) dev->priv;

        printk(KERN_ERR "%s: transmit timed out, resetting\n", dev->name);

        dev->stats.tx_errors++;

        myri_init(mp, 0);

        netif_wake_queue(dev);

}

static int myri_start_xmit(struct sk_buff *skb, struct net_device *dev)

{

        struct myri_eth *mp = (struct myri_eth *) dev->priv;

        struct sendq __iomem *sq = mp->sq;

        struct myri_txd __iomem *txd;

        unsigned long flags;

        unsigned int head, tail;

        int len, entry;

        u32 dma_addr;

        DTX(("myri_start_xmit: "));

        myri_tx(mp, dev);

        netif_stop_queue(dev);

        /* This is just to prevent multiple PIO reads for TX_BUFFS_AVAIL. */

        head = sbus_readl(&sq->head);

        tail = sbus_readl(&sq->tail);

        if (!TX_BUFFS_AVAIL(head, tail)) {

                DTX(("no buffs available, returning 1\n"));

                return 1;

        }

        spin_lock_irqsave(&mp->irq_lock, flags);

        DHDR(("xmit[skbdata(%p)]\n", skb->data));