[PATCH] fix semaphore handling in __unregister_chrdev_region

[linux/fpc-iii.git] / drivers / net / macsonic.c

/*
 * macsonic.c
 *
 * (C) 1998 Alan Cox
 *
 * Debugging Andreas Ehliar, Michael Schmitz
 *
 * Based on code
 * (C) 1996 by Thomas Bogendoerfer (tsbogend@bigbug.franken.de)
 * 
 * This driver is based on work from Andreas Busse, but most of
 * the code is rewritten.
 * 
 * (C) 1995 by Andreas Busse (andy@waldorf-gmbh.de)
 *
 * A driver for the Mac onboard Sonic ethernet chip.
 *
 * 98/12/21 MSch: judged from tests on Q800, it's basically working, 
 *                but eating up both receive and transmit resources
 *                and duplicating packets. Needs more testing.
 *
 * 99/01/03 MSch: upgraded to version 0.92 of the core driver, fixed.
 * 
 * 00/10/31 sammy@oh.verio.com: Updated driver for 2.4 kernels, fixed problems
 *          on centris.
 */

#include <linux/kernel.h>
#include <linux/types.h>
#include <linux/ctype.h>
#include <linux/fcntl.h>
#include <linux/interrupt.h>
#include <linux/init.h>
#include <linux/ioport.h>
#include <linux/in.h>
#include <linux/slab.h>
#include <linux/string.h>
#include <linux/delay.h>
#include <linux/nubus.h>
#include <linux/errno.h>
#include <linux/netdevice.h>
#include <linux/etherdevice.h>
#include <linux/skbuff.h>
#include <linux/module.h>
#include <linux/bitops.h>

#include <asm/bootinfo.h>
#include <asm/system.h>
#include <asm/pgtable.h>
#include <asm/io.h>
#include <asm/hwtest.h>
#include <asm/dma.h>
#include <asm/macintosh.h>
#include <asm/macints.h>
#include <asm/mac_via.h>

#define SREGS_PAD(n)    u16 n;

#include "sonic.h"

#define SONIC_READ(reg) \
        nubus_readl(base_addr+(reg))
#define SONIC_WRITE(reg,val) \
        nubus_writel((val), base_addr+(reg))
#define sonic_read(dev, reg) \
        nubus_readl((dev)->base_addr+(reg))
#define sonic_write(dev, reg, val) \
        nubus_writel((val), (dev)->base_addr+(reg))


static int sonic_debug;
static int sonic_version_printed;

static int reg_offset;

extern int mac_onboard_sonic_probe(struct net_device* dev);
extern int mac_nubus_sonic_probe(struct net_device* dev);

/* For onboard SONIC */
#define ONBOARD_SONIC_REGISTERS 0x50F0A000
#define ONBOARD_SONIC_PROM_BASE 0x50f08000

enum macsonic_type {
        MACSONIC_DUODOCK,
        MACSONIC_APPLE,
        MACSONIC_APPLE16,
        MACSONIC_DAYNA,
        MACSONIC_DAYNALINK
};

/* For the built-in SONIC in the Duo Dock */
#define DUODOCK_SONIC_REGISTERS 0xe10000
#define DUODOCK_SONIC_PROM_BASE 0xe12000

/* For Apple-style NuBus SONIC */
#define APPLE_SONIC_REGISTERS   0
#define APPLE_SONIC_PROM_BASE   0x40000

/* Daynalink LC SONIC */
#define DAYNALINK_PROM_BASE 0x400000

/* For Dayna-style NuBus SONIC (haven't seen one yet) */
#define DAYNA_SONIC_REGISTERS   0x180000
/* This is what OpenBSD says.  However, this is definitely in NuBus
   ROM space so we should be able to get it by walking the NuBus
   resource directories */
#define DAYNA_SONIC_MAC_ADDR    0xffe004

#define SONIC_READ_PROM(addr) nubus_readb(prom_addr+addr)

struct net_device * __init macsonic_probe(int unit)
{
        struct net_device *dev = alloc_etherdev(0);
        int err;

        if (!dev)
                return ERR_PTR(-ENOMEM);

        if (unit >= 0)
                sprintf(dev->name, "eth%d", unit);

        SET_MODULE_OWNER(dev);

        /* This will catch fatal stuff like -ENOMEM as well as success */
        err = mac_onboard_sonic_probe(dev);
        if (err == 0)
                goto found;
        if (err != -ENODEV)
                goto out;
        err = mac_nubus_sonic_probe(dev);
        if (err)
                goto out;
found:
        err = register_netdev(dev);
        if (err)
                goto out1;
        return dev;
out1:
        kfree(dev->priv);
out:
        free_netdev(dev);
        return ERR_PTR(err);
}

/*
 * For reversing the PROM address
 */

static unsigned char nibbletab[] = {0, 8, 4, 12, 2, 10, 6, 14,
                                    1, 9, 5, 13, 3, 11, 7, 15};

static inline void bit_reverse_addr(unsigned char addr[6])
{
        int i;

        for(i = 0; i < 6; i++)
                addr[i] = ((nibbletab[addr[i] & 0xf] << 4) | 
                           nibbletab[(addr[i] >> 4) &0xf]);
}

int __init macsonic_init(struct net_device* dev)
{
        struct sonic_local* lp = NULL;
        int i;

        /* Allocate the entire chunk of memory for the descriptors.
           Note that this cannot cross a 64K boundary. */
        for (i = 0; i < 20; i++) {
                unsigned long desc_base, desc_top;
                if((lp = kmalloc(sizeof(struct sonic_local), GFP_KERNEL | GFP_DMA)) == NULL) {
                        printk(KERN_ERR "%s: couldn't allocate descriptor buffers\n", dev->name);
                        return -ENOMEM;
                }

                desc_base = (unsigned long) lp;
                desc_top = desc_base + sizeof(struct sonic_local);
                if ((desc_top & 0xffff) >= (desc_base & 0xffff))
                        break;
                /* Hmm. try again (FIXME: does this actually work?) */
                kfree(lp);
                printk(KERN_DEBUG
                       "%s: didn't get continguous chunk [%08lx - %08lx], trying again\n",
                       dev->name, desc_base, desc_top);
        }

        if (lp == NULL) {
                printk(KERN_ERR "%s: tried 20 times to allocate descriptor buffers, giving up.\n",
                       dev->name);
                return -ENOMEM;
        }                      

        dev->priv = lp;

#if 0
        /* this code is only here as a curiousity...   mainly, where the 
           fuck did SONIC_BUS_SCALE come from, and what was it supposed
           to do?  the normal allocation works great for 32 bit stuffs..  */

        /* Now set up the pointers to point to the appropriate places */
        lp->cda = lp->sonic_desc;
        lp->tda = lp->cda + (SIZEOF_SONIC_CDA * SONIC_BUS_SCALE(lp->dma_bitmode));
        lp->rda = lp->tda + (SIZEOF_SONIC_TD * SONIC_NUM_TDS
                             * SONIC_BUS_SCALE(lp->dma_bitmode));
        lp->rra = lp->rda + (SIZEOF_SONIC_RD * SONIC_NUM_RDS
                             * SONIC_BUS_SCALE(lp->dma_bitmode));

#endif
        
        memset(lp, 0, sizeof(struct sonic_local));

        lp->cda_laddr = (unsigned int)&(lp->cda);
        lp->tda_laddr = (unsigned int)lp->tda;
        lp->rra_laddr = (unsigned int)lp->rra;
        lp->rda_laddr = (unsigned int)lp->rda;

        /* FIXME, maybe we should use skbs */
        if ((lp->rba = (char *)
             kmalloc(SONIC_NUM_RRS * SONIC_RBSIZE, GFP_KERNEL | GFP_DMA)) == NULL) {
                printk(KERN_ERR "%s: couldn't allocate receive buffers\n", dev->name);
                dev->priv = NULL;
                kfree(lp);
                return -ENOMEM;
        }

        lp->rba_laddr = (unsigned int)lp->rba;

        {
                int rs, ds;

                /* almost always 12*4096, but let's not take chances */
                rs = ((SONIC_NUM_RRS * SONIC_RBSIZE + 4095) / 4096) * 4096;
                /* almost always under a page, but let's not take chances */
                ds = ((sizeof(struct sonic_local) + 4095) / 4096) * 4096;
                kernel_set_cachemode(lp->rba, rs, IOMAP_NOCACHE_SER);
                kernel_set_cachemode(lp, ds, IOMAP_NOCACHE_SER);
        }
        
#if 0
        flush_cache_all();
#endif

        dev->open = sonic_open;
        dev->stop = sonic_close;
        dev->hard_start_xmit = sonic_send_packet;
        dev->get_stats = sonic_get_stats;
        dev->set_multicast_list = &sonic_multicast_list;

        /*
         * clear tally counter
         */
        sonic_write(dev, SONIC_CRCT, 0xffff);
        sonic_write(dev, SONIC_FAET, 0xffff);
        sonic_write(dev, SONIC_MPT, 0xffff);

        return 0;
}

int __init mac_onboard_sonic_ethernet_addr(struct net_device* dev)
{
        const int prom_addr = ONBOARD_SONIC_PROM_BASE;
        int i;

        /* On NuBus boards we can sometimes look in the ROM resources.
           No such luck for comm-slot/onboard. */
        for(i = 0; i < 6; i++)
                dev->dev_addr[i] = SONIC_READ_PROM(i);

        /* Most of the time, the address is bit-reversed.  The NetBSD
           source has a rather long and detailed historical account of
           why this is so. */
        if (memcmp(dev->dev_addr, "\x08\x00\x07", 3) &&
            memcmp(dev->dev_addr, "\x00\xA0\x40", 3) &&
            memcmp(dev->dev_addr, "\x00\x05\x02", 3))
                bit_reverse_addr(dev->dev_addr);
        else
                return 0;

        /* If we still have what seems to be a bogus address, we'll
           look in the CAM.  The top entry should be ours. */
        /* Danger! This only works if MacOS has already initialized
           the card... */
        if (memcmp(dev->dev_addr, "\x08\x00\x07", 3) &&
            memcmp(dev->dev_addr, "\x00\xA0\x40", 3) &&
            memcmp(dev->dev_addr, "\x00\x05\x02", 3))
        {
                unsigned short val;

                printk(KERN_INFO "macsonic: PROM seems to be wrong, trying CAM entry 15\n");
                
                sonic_write(dev, SONIC_CMD, SONIC_CR_RST);
                sonic_write(dev, SONIC_CEP, 15);

                val = sonic_read(dev, SONIC_CAP2);
                dev->dev_addr[5] = val >> 8;
                dev->dev_addr[4] = val & 0xff;
                val = sonic_read(dev, SONIC_CAP1);
                dev->dev_addr[3] = val >> 8;
                dev->dev_addr[2] = val & 0xff;
                val = sonic_read(dev, SONIC_CAP0);
                dev->dev_addr[1] = val >> 8;
                dev->dev_addr[0] = val & 0xff;
                
                printk(KERN_INFO "HW Address from CAM 15: ");
                for (i = 0; i < 6; i++) {
                        printk("%2.2x", dev->dev_addr[i]);
                        if (i < 5)
                                printk(":");
                }
                printk("\n");
        } else return 0;

        if (memcmp(dev->dev_addr, "\x08\x00\x07", 3) &&
            memcmp(dev->dev_addr, "\x00\xA0\x40", 3) &&
            memcmp(dev->dev_addr, "\x00\x05\x02", 3))
        {
                /*
                 * Still nonsense ... messed up someplace!
                 */
                printk(KERN_ERR "macsonic: ERROR (INVALID MAC)\n");
                return -EIO;
        } else return 0;
}

int __init mac_onboard_sonic_probe(struct net_device* dev)
{
        /* Bwahahaha */
        static int once_is_more_than_enough;
        int i;
        int dma_bitmode;
        
        if (once_is_more_than_enough)
                return -ENODEV;
        once_is_more_than_enough = 1;

        if (!MACH_IS_MAC)
                return -ENODEV;

        printk(KERN_INFO "Checking for internal Macintosh ethernet (SONIC).. ");

        if (macintosh_config->ether_type != MAC_ETHER_SONIC)
        {
                printk("none.\n");
                return -ENODEV;
        }

        /* Bogus probing, on the models which may or may not have
           Ethernet (BTW, the Ethernet *is* always at the same
           address, and nothing else lives there, at least if Apple's
           documentation is to be believed) */
        if (macintosh_config->ident == MAC_MODEL_Q630 ||
            macintosh_config->ident == MAC_MODEL_P588 ||
            macintosh_config->ident == MAC_MODEL_C610) {
                unsigned long flags;
                int card_present;

                local_irq_save(flags);
                card_present = hwreg_present((void*)ONBOARD_SONIC_REGISTERS);
                local_irq_restore(flags);

                if (!card_present) {
                        printk("none.\n");
                        return -ENODEV;
                }
        }

        printk("yes\n");        

        /* Danger!  My arms are flailing wildly!  You *must* set this
           before using sonic_read() */

        dev->base_addr = ONBOARD_SONIC_REGISTERS;
        if (via_alt_mapping)
                dev->irq = IRQ_AUTO_3;
        else
                dev->irq = IRQ_NUBUS_9;

        if (!sonic_version_printed) {
                printk(KERN_INFO "%s", version);
                sonic_version_printed = 1;
        }
        printk(KERN_INFO "%s: onboard / comm-slot SONIC at 0x%08lx\n",
               dev->name, dev->base_addr);

        /* Now do a song and dance routine in an attempt to determine
           the bus width */

        /* The PowerBook's SONIC is 16 bit always. */
        if (macintosh_config->ident == MAC_MODEL_PB520) {
                reg_offset = 0;
                dma_bitmode = 0;
        } else if (macintosh_config->ident == MAC_MODEL_C610) {
                reg_offset = 0;
                dma_bitmode = 1;
        } else {
                /* Some of the comm-slot cards are 16 bit.  But some
                   of them are not.  The 32-bit cards use offset 2 and
                   pad with zeroes or sometimes ones (I think...)
                   Therefore, if we try offset 0 and get a silicon
                   revision of 0, we assume 16 bit. */
                int sr;

                /* Technically this is not necessary since we zeroed
                   it above */
                reg_offset = 0;
                dma_bitmode = 0;
                sr = sonic_read(dev, SONIC_SR);
                if (sr == 0 || sr == 0xffff) {
                        reg_offset = 2;
                        /* 83932 is 0x0004, 83934 is 0x0100 or 0x0101 */
                        sr = sonic_read(dev, SONIC_SR);
                        dma_bitmode = 1;
                        
                }
                printk(KERN_INFO
                       "%s: revision 0x%04x, using %d bit DMA and register offset %d\n",
                       dev->name, sr, dma_bitmode?32:16, reg_offset);
        }
        

        /* this carries my sincere apologies -- by the time I got to updating
           the driver, support for "reg_offsets" appeares nowhere in the sonic
           code, going back for over a year.  Fortunately, my Mac does't seem
           to use whatever this was.

           If you know how this is supposed to be implemented, either fix it,
           or contact me (sammy@oh.verio.com) to explain what it is. --Sam */
           
        if(reg_offset) {
                printk("%s: register offset unsupported.  please fix this if you know what it is.\n", dev->name);
                return -ENODEV;
        }
        
        /* Software reset, then initialize control registers. */
        sonic_write(dev, SONIC_CMD, SONIC_CR_RST);
        sonic_write(dev, SONIC_DCR, SONIC_DCR_BMS |
                    SONIC_DCR_RFT1 | SONIC_DCR_TFT0 | SONIC_DCR_EXBUS |
                    (dma_bitmode ? SONIC_DCR_DW : 0));

        /* This *must* be written back to in order to restore the
           extended programmable output bits */
        sonic_write(dev, SONIC_DCR2, 0);

        /* Clear *and* disable interrupts to be on the safe side */
        sonic_write(dev, SONIC_ISR,0x7fff);
        sonic_write(dev, SONIC_IMR,0);

        /* Now look for the MAC address. */
        if (mac_onboard_sonic_ethernet_addr(dev) != 0)
                return -ENODEV;

        printk(KERN_INFO "MAC ");
        for (i = 0; i < 6; i++) {
                printk("%2.2x", dev->dev_addr[i]);
                if (i < 5)
                        printk(":");
        }

        printk(" IRQ %d\n", dev->irq);

        /* Shared init code */
        return macsonic_init(dev);
}

int __init mac_nubus_sonic_ethernet_addr(struct net_device* dev,
                                         unsigned long prom_addr,
                                         int id)
{
        int i;
        for(i = 0; i < 6; i++)
                dev->dev_addr[i] = SONIC_READ_PROM(i);
        /* For now we are going to assume that they're all bit-reversed */
        bit_reverse_addr(dev->dev_addr);

        return 0;
}

int __init macsonic_ident(struct nubus_dev* ndev)
{
        if (ndev->dr_hw == NUBUS_DRHW_ASANTE_LC && 
            ndev->dr_sw == NUBUS_DRSW_SONIC_LC)
                return MACSONIC_DAYNALINK;
        if (ndev->dr_hw == NUBUS_DRHW_SONIC &&
            ndev->dr_sw == NUBUS_DRSW_APPLE) {
                /* There has to be a better way to do this... */
                if (strstr(ndev->board->name, "DuoDock"))
                        return MACSONIC_DUODOCK;
                else
                        return MACSONIC_APPLE;
        }
        return -1;
}

int __init mac_nubus_sonic_probe(struct net_device* dev)
{
        static int slots;
        struct nubus_dev* ndev = NULL;
        unsigned long base_addr, prom_addr;
        u16 sonic_dcr;
        int id;
        int i;
        int dma_bitmode;

        /* Find the first SONIC that hasn't been initialized already */
        while ((ndev = nubus_find_type(NUBUS_CAT_NETWORK,
                                       NUBUS_TYPE_ETHERNET, ndev)) != NULL)
        {
                /* Have we seen it already? */
                if (slots & (1<<ndev->board->slot))
                        continue;
                slots |= 1<<ndev->board->slot;

                /* Is it one of ours? */
                if ((id = macsonic_ident(ndev)) != -1)
                        break;
        }

        if (ndev == NULL)
                return -ENODEV;

        switch (id) {
        case MACSONIC_DUODOCK:
                base_addr = ndev->board->slot_addr + DUODOCK_SONIC_REGISTERS;
                prom_addr = ndev->board->slot_addr + DUODOCK_SONIC_PROM_BASE;
                sonic_dcr = SONIC_DCR_EXBUS | SONIC_DCR_RFT0 | SONIC_DCR_RFT1
                        | SONIC_DCR_TFT0;
                reg_offset = 2;
                dma_bitmode = 1;
                break;
        case MACSONIC_APPLE:
                base_addr = ndev->board->slot_addr + APPLE_SONIC_REGISTERS;
                prom_addr = ndev->board->slot_addr + APPLE_SONIC_PROM_BASE;
                sonic_dcr = SONIC_DCR_BMS | SONIC_DCR_RFT1 | SONIC_DCR_TFT0;
                reg_offset = 0;
                dma_bitmode = 1;
                break;
        case MACSONIC_APPLE16:
                base_addr = ndev->board->slot_addr + APPLE_SONIC_REGISTERS;
                prom_addr = ndev->board->slot_addr + APPLE_SONIC_PROM_BASE;
                sonic_dcr = SONIC_DCR_EXBUS
                        | SONIC_DCR_RFT1 | SONIC_DCR_TFT0
                        | SONIC_DCR_PO1 | SONIC_DCR_BMS; 
                reg_offset = 0;
                dma_bitmode = 0;
                break;
        case MACSONIC_DAYNALINK:
                base_addr = ndev->board->slot_addr + APPLE_SONIC_REGISTERS;
                prom_addr = ndev->board->slot_addr + DAYNALINK_PROM_BASE;
                sonic_dcr = SONIC_DCR_RFT1 | SONIC_DCR_TFT0
                        | SONIC_DCR_PO1 | SONIC_DCR_BMS; 
                reg_offset = 0;
                dma_bitmode = 0;
                break;
        case MACSONIC_DAYNA:
                base_addr = ndev->board->slot_addr + DAYNA_SONIC_REGISTERS;
                prom_addr = ndev->board->slot_addr + DAYNA_SONIC_MAC_ADDR;
                sonic_dcr = SONIC_DCR_BMS
                        | SONIC_DCR_RFT1 | SONIC_DCR_TFT0 | SONIC_DCR_PO1;
                reg_offset = 0;
                dma_bitmode = 0;
                break;
        default:
                printk(KERN_ERR "macsonic: WTF, id is %d\n", id);
                return -ENODEV;
        }

        /* Danger!  My arms are flailing wildly!  You *must* set this
           before using sonic_read() */
        dev->base_addr = base_addr;
        dev->irq = SLOT2IRQ(ndev->board->slot);

        if (!sonic_version_printed) {
                printk(KERN_INFO "%s", version);
                sonic_version_printed = 1;
        }
        printk(KERN_INFO "%s: %s in slot %X\n",
               dev->name, ndev->board->name, ndev->board->slot);
        printk(KERN_INFO "%s: revision 0x%04x, using %d bit DMA and register offset %d\n",
               dev->name, sonic_read(dev, SONIC_SR), dma_bitmode?32:16, reg_offset);

        if(reg_offset) {
                printk("%s: register offset unsupported.  please fix this if you know what it is.\n", dev->name);
                return -ENODEV;
        }

        /* Software reset, then initialize control registers. */
        sonic_write(dev, SONIC_CMD, SONIC_CR_RST);
        sonic_write(dev, SONIC_DCR, sonic_dcr
                    | (dma_bitmode ? SONIC_DCR_DW : 0));

        /* Clear *and* disable interrupts to be on the safe side */
        sonic_write(dev, SONIC_ISR,0x7fff);
        sonic_write(dev, SONIC_IMR,0);

        /* Now look for the MAC address. */
        if (mac_nubus_sonic_ethernet_addr(dev, prom_addr, id) != 0)
                return -ENODEV;

        printk(KERN_INFO "MAC ");
        for (i = 0; i < 6; i++) {
                printk("%2.2x", dev->dev_addr[i]);
                if (i < 5)
                        printk(":");
        }
        printk(" IRQ %d\n", dev->irq);

        /* Shared init code */
        return macsonic_init(dev);
}

#ifdef MODULE
static struct net_device *dev_macsonic;

MODULE_PARM(sonic_debug, "i");
MODULE_PARM_DESC(sonic_debug, "macsonic debug level (1-4)");

int
init_module(void)
{
        dev_macsonic = macsonic_probe(-1);
        if (IS_ERR(dev_macsonic)) {
                printk(KERN_WARNING "macsonic.c: No card found\n");
                return PTR_ERR(dev_macsonic);
        }
        return 0;
}

void
cleanup_module(void)
{
        unregister_netdev(dev_macsonic);
        kfree(dev_macsonic->priv);
        free_netdev(dev_macsonic);
}
#endif /* MODULE */


#define vdma_alloc(foo, bar) ((u32)foo)
#define vdma_free(baz)
#define sonic_chiptomem(bat) (bat)
#define PHYSADDR(quux) (quux)
#define CPHYSADDR(quux) (quux)

#define sonic_request_irq       request_irq
#define sonic_free_irq          free_irq

#include "sonic.c"

/*
 * Local variables:
 *  compile-command: "m68k-linux-gcc -D__KERNEL__ -I../../include -Wall -Wstrict-prototypes -O2 -fomit-frame-pointer -pipe -fno-strength-reduce -ffixed-a2 -DMODULE -DMODVERSIONS -include ../../include/linux/modversions.h   -c -o macsonic.o macsonic.c"
 *  version-control: t
 *  kept-new-versions: 5
 *  c-indent-level: 8
 *  tab-width: 8
 * End:
 *
 */