/* * Copyright (C) 1997 Cullen Jennings * Copyright (C) 1998 Elmer Joandiu, elmer@ylenurme.ee * GNU General Public License applies * This module provides support for the Arlan 655 card made by Aironet */ #include #include "arlan.h" #if BITS_PER_LONG != 32 # error FIXME: this driver requires a 32-bit platform #endif static const char *arlan_version = "C.Jennigs 97 & Elmer.Joandi@ut.ee Oct'98, http://www.ylenurme.ee/~elmer/655/"; struct net_device *arlan_device[MAX_ARLANS]; int last_arlan; static int SID = SIDUNKNOWN; static int radioNodeId = radioNodeIdUNKNOWN; static char encryptionKey[12] = {'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h'}; static char *siteName = siteNameUNKNOWN; static int mem = memUNKNOWN; int arlan_debug = debugUNKNOWN; static int probe = probeUNKNOWN; static int numDevices = numDevicesUNKNOWN; static int spreadingCode = spreadingCodeUNKNOWN; static int channelNumber = channelNumberUNKNOWN; static int channelSet = channelSetUNKNOWN; static int systemId = systemIdUNKNOWN; static int registrationMode = registrationModeUNKNOWN; static int keyStart; static int tx_delay_ms; static int retries = 5; static int async = 1; static int tx_queue_len = 1; static int arlan_EEPROM_bad; #ifdef ARLAN_DEBUGGING static int arlan_entry_debug; static int arlan_exit_debug; static int testMemory = testMemoryUNKNOWN; static int irq = irqUNKNOWN; static int txScrambled = 1; static int mdebug; #endif #if LINUX_VERSION_CODE > 0x20100 MODULE_PARM(irq, "i"); MODULE_PARM(mem, "i"); MODULE_PARM(probe, "i"); MODULE_PARM(arlan_debug, "i"); MODULE_PARM(numDevices, "i"); MODULE_PARM(testMemory, "i"); MODULE_PARM(spreadingCode, "i"); MODULE_PARM(channelNumber, "i"); MODULE_PARM(channelSet, "i"); MODULE_PARM(systemId, "i"); MODULE_PARM(registrationMode, "i"); MODULE_PARM(radioNodeId, "i"); MODULE_PARM(SID, "i"); MODULE_PARM(txScrambled, "i"); MODULE_PARM(keyStart, "i"); MODULE_PARM(mdebug, "i"); MODULE_PARM(tx_delay_ms, "i"); MODULE_PARM(retries, "i"); MODULE_PARM(async, "i"); MODULE_PARM(tx_queue_len, "i"); MODULE_PARM(arlan_entry_debug, "i"); MODULE_PARM(arlan_exit_debug, "i"); MODULE_PARM(arlan_entry_and_exit_debug, "i"); MODULE_PARM(arlan_EEPROM_bad, "i"); MODULE_PARM_DESC(irq, "(unused)"); MODULE_PARM_DESC(mem, "Arlan memory address for single device probing"); MODULE_PARM_DESC(probe, "Arlan probe at initialization (0-1)"); MODULE_PARM_DESC(arlan_debug, "Arlan debug enable (0-1)"); MODULE_PARM_DESC(numDevices, "Number of Arlan devices; ignored if >1"); MODULE_PARM_DESC(testMemory, "(unused)"); MODULE_PARM_DESC(mdebug, "Arlan multicast debugging (0-1)"); MODULE_PARM_DESC(retries, "Arlan maximum packet retransmisions"); #ifdef ARLAN_ENTRY_EXIT_DEBUGGING MODULE_PARM_DESC(arlan_entry_debug, "Arlan driver function entry debugging"); MODULE_PARM_DESC(arlan_exit_debug, "Arlan driver function exit debugging"); MODULE_PARM_DESC(arlan_entry_and_exit_debug, "Arlan driver function entry and exit debugging"); #else MODULE_PARM_DESC(arlan_entry_debug, "(ignored)"); MODULE_PARM_DESC(arlan_exit_debug, "(ignored)"); MODULE_PARM_DESC(arlan_entry_and_exit_debug, "(ignored)"); #endif EXPORT_SYMBOL(arlan_device); EXPORT_SYMBOL(arlan_conf); EXPORT_SYMBOL(last_arlan); // #warning kernel 2.1.110 tested #define myATOMIC_INIT(a,b) atomic_set(&(a),b) #else #define test_and_set_bit set_bit #if LINUX_VERSION_CODE != 0x20024 // #warning kernel 2.0.36 tested #endif #define myATOMIC_INIT(a,b) a = b; #endif struct arlan_conf_stru arlan_conf[MAX_ARLANS]; static int arlans_found; static int arlan_probe_here(struct net_device *dev, int ioaddr); static int arlan_open(struct net_device *dev); static int arlan_tx(struct sk_buff *skb, struct net_device *dev); static void arlan_interrupt(int irq, void *dev_id, struct pt_regs *regs); static int arlan_close(struct net_device *dev); static struct net_device_stats * arlan_statistics (struct net_device *dev); static void arlan_set_multicast (struct net_device *dev); static int arlan_hw_tx (struct net_device* dev, char *buf, int length ); static int arlan_hw_config (struct net_device * dev); static void arlan_tx_done_interrupt (struct net_device * dev, int status); static void arlan_rx_interrupt (struct net_device * dev, u_char rxStatus, u_short, u_short); static void arlan_process_interrupt (struct net_device * dev); static void arlan_tx_timeout (struct net_device *dev); int arlan_command(struct net_device * dev, int command); EXPORT_SYMBOL(arlan_command); extern inline long long arlan_time(void) { struct timeval timev; do_gettimeofday(&timev); return ((long long) timev.tv_sec * 1000000 + timev.tv_usec); }; #ifdef ARLAN_ENTRY_EXIT_DEBUGGING #define ARLAN_DEBUG_ENTRY(name) \ {\ struct timeval timev;\ do_gettimeofday(&timev);\ if (arlan_entry_debug || arlan_entry_and_exit_debug)\ printk("--->>>" name " %ld " "\n",((long int) timev.tv_sec * 1000000 + timev.tv_usec));\ } #define ARLAN_DEBUG_EXIT(name) \ {\ struct timeval timev;\ do_gettimeofday(&timev);\ if (arlan_exit_debug || arlan_entry_and_exit_debug)\ printk("<<<---" name " %ld " "\n",((long int) timev.tv_sec * 1000000 + timev.tv_usec) );\ } #else #define ARLAN_DEBUG_ENTRY(name) #define ARLAN_DEBUG_EXIT(name) #endif #define arlan_interrupt_ack(dev)\ clearClearInterrupt(dev);\ setClearInterrupt(dev); #define ARLAN_COMMAND_LOCK(dev) \ if (atomic_dec_and_test(&((struct arlan_private * )dev->priv)->card_users))\ arlan_wait_command_complete_short(dev,__LINE__); #define ARLAN_COMMAND_UNLOCK(dev) \ atomic_inc(&((struct arlan_private * )dev->priv)->card_users); #define ARLAN_COMMAND_INC(dev) \ {((struct arlan_private *) dev->priv)->under_command++;} #define ARLAN_COMMAND_ZERO(dev) \ {((struct arlan_private *) dev->priv)->under_command =0;} #define ARLAN_UNDER_COMMAND(dev)\ (((struct arlan_private *) dev->priv)->under_command) #define ARLAN_COMMAND_START(dev) ARLAN_COMMAND_INC(dev) #define ARLAN_COMMAND_END(dev) ARLAN_COMMAND_ZERO(dev) #define ARLAN_TOGGLE_START(dev)\ {((struct arlan_private *) dev->priv)->under_toggle++;} #define ARLAN_TOGGLE_END(dev)\ {((struct arlan_private *) dev->priv)->under_toggle=0;} #define ARLAN_UNDER_TOGGLE(dev)\ (((struct arlan_private *) dev->priv)->under_toggle) extern inline int arlan_drop_tx(struct net_device *dev) { struct arlan_private *priv = ((struct arlan_private *) dev->priv); priv->stats.tx_errors++; if (priv->Conf->tx_delay_ms) { priv->tx_done_delayed = jiffies + priv->Conf->tx_delay_ms * HZ / 1000 + 1; } else { priv->waiting_command_mask &= ~ARLAN_COMMAND_TX; TXHEAD(dev).offset = 0; TXTAIL(dev).offset = 0; priv->txLast = 0; priv->txOffset = 0; priv->bad = 0; if (!priv->under_reset && !priv->under_config) netif_wake_queue (dev); } return 1; }; int arlan_command(struct net_device *dev, int command_p) { volatile struct arlan_shmem *arlan = ((struct arlan_private *) dev->priv)->card; struct arlan_conf_stru *conf = ((struct arlan_private *) dev->priv)->Conf; struct arlan_private *priv = (struct arlan_private *) dev->priv; int udelayed = 0; int i = 0; long long time_mks = arlan_time(); ARLAN_DEBUG_ENTRY("arlan_command"); if (priv->card_polling_interval) priv->card_polling_interval = 1; if (arlan_debug & ARLAN_DEBUG_CHAIN_LOCKS) printk(KERN_DEBUG "arlan_command, %lx lock %lx commandByte %x waiting %x incoming %x \n", jiffies, priv->command_lock, READSHMB(arlan->commandByte), priv->waiting_command_mask, command_p); priv->waiting_command_mask |= command_p; if (priv->waiting_command_mask & ARLAN_COMMAND_RESET) if (jiffies - priv->lastReset < 5 * HZ) priv->waiting_command_mask &= ~ARLAN_COMMAND_RESET; if (priv->waiting_command_mask & ARLAN_COMMAND_INT_ACK) { arlan_interrupt_ack(dev); priv->waiting_command_mask &= ~ARLAN_COMMAND_INT_ACK; } if (priv->waiting_command_mask & ARLAN_COMMAND_INT_ENABLE) { setInterruptEnable(dev); priv->waiting_command_mask &= ~ARLAN_COMMAND_INT_ENABLE; } /* Card access serializing lock */ if (test_and_set_bit(0, (void *) &priv->command_lock)) { if (arlan_debug & ARLAN_DEBUG_CHAIN_LOCKS) printk(KERN_DEBUG "arlan_command: entered when command locked \n"); goto command_busy_end; } /* Check cards status and waiting */ if (priv->waiting_command_mask & (ARLAN_COMMAND_LONG_WAIT_NOW | ARLAN_COMMAND_WAIT_NOW)) { while (priv->waiting_command_mask & (ARLAN_COMMAND_LONG_WAIT_NOW | ARLAN_COMMAND_WAIT_NOW)) { if (READSHMB(arlan->resetFlag) || READSHMB(arlan->commandByte)) /* || (readControlRegister(dev) & ARLAN_ACCESS)) */ udelay(40); else priv->waiting_command_mask &= ~(ARLAN_COMMAND_LONG_WAIT_NOW | ARLAN_COMMAND_WAIT_NOW); udelayed++; if (priv->waiting_command_mask & ARLAN_COMMAND_LONG_WAIT_NOW) { if (udelayed * 40 > 1000000) { printk(KERN_ERR "%s long wait too long \n", dev->name); priv->waiting_command_mask |= ARLAN_COMMAND_RESET; break; } } else if (priv->waiting_command_mask & ARLAN_COMMAND_WAIT_NOW) { if (udelayed * 40 > 1000) { printk(KERN_ERR "%s short wait too long \n", dev->name); goto bad_end; } } } } else { i = 0; while ((READSHMB(arlan->resetFlag) || READSHMB(arlan->commandByte)) && conf->pre_Command_Wait > (i++) * 10) udelay(10); if ((READSHMB(arlan->resetFlag) || READSHMB(arlan->commandByte)) && !(priv->waiting_command_mask & ARLAN_COMMAND_RESET)) { goto card_busy_end; } } if (priv->waiting_command_mask & ARLAN_COMMAND_RESET) priv->under_reset = 1; if (priv->waiting_command_mask & ARLAN_COMMAND_CONF) priv->under_config = 1; /* Issuing command */ arlan_lock_card_access(dev); if (priv->waiting_command_mask & ARLAN_COMMAND_POWERUP) { // if (readControlRegister(dev) & (ARLAN_ACCESS && ARLAN_POWER)) setPowerOn(dev); arlan_interrupt_lancpu(dev); priv->waiting_command_mask &= ~ARLAN_COMMAND_POWERUP; priv->waiting_command_mask |= ARLAN_COMMAND_RESET; priv->card_polling_interval = HZ / 10; } else if (priv->waiting_command_mask & ARLAN_COMMAND_ACTIVATE) { WRITESHMB(arlan->commandByte, ARLAN_COM_ACTIVATE); arlan_interrupt_lancpu(dev); priv->waiting_command_mask &= ~ARLAN_COMMAND_ACTIVATE; priv->card_polling_interval = HZ / 10; } else if (priv->waiting_command_mask & ARLAN_COMMAND_RX_ABORT) { if (priv->rx_command_given) { WRITESHMB(arlan->commandByte, ARLAN_COM_RX_ABORT); arlan_interrupt_lancpu(dev); priv->rx_command_given = 0; } priv->waiting_command_mask &= ~ARLAN_COMMAND_RX_ABORT; priv->card_polling_interval = 1; } else if (priv->waiting_command_mask & ARLAN_COMMAND_TX_ABORT) { if (priv->tx_command_given) { WRITESHMB(arlan->commandByte, ARLAN_COM_TX_ABORT); arlan_interrupt_lancpu(dev); priv->tx_command_given = 0; } priv->waiting_command_mask &= ~ARLAN_COMMAND_TX_ABORT; priv->card_polling_interval = 1; } else if (priv->waiting_command_mask & ARLAN_COMMAND_RESET) { priv->under_reset=1; netif_stop_queue (dev); arlan_drop_tx(dev); if (priv->tx_command_given || priv->rx_command_given) { printk(KERN_ERR "%s: Reset under tx or rx command \n", dev->name); }; netif_stop_queue (dev); if (arlan_debug & ARLAN_DEBUG_RESET) printk(KERN_ERR "%s: Doing chip reset\n", dev->name); priv->lastReset = jiffies; WRITESHM(arlan->commandByte, 0, u_char); /* hold card in reset state */ setHardwareReset(dev); /* set reset flag and then release reset */ WRITESHM(arlan->resetFlag, 0xff, u_char); clearChannelAttention(dev); clearHardwareReset(dev); priv->numResets++; priv->card_polling_interval = HZ / 4; priv->waiting_command_mask &= ~ARLAN_COMMAND_RESET; priv->waiting_command_mask |= ARLAN_COMMAND_INT_RACK; // priv->waiting_command_mask |= ARLAN_COMMAND_INT_RENABLE; // priv->waiting_command_mask |= ARLAN_COMMAND_RX; } else if (priv->waiting_command_mask & ARLAN_COMMAND_INT_RACK) { clearHardwareReset(dev); clearClearInterrupt(dev); setClearInterrupt(dev); setInterruptEnable(dev); priv->waiting_command_mask &= ~ARLAN_COMMAND_INT_RACK; priv->waiting_command_mask |= ARLAN_COMMAND_CONF; priv->under_config = 1; priv->under_reset = 0; } else if (priv->waiting_command_mask & ARLAN_COMMAND_INT_RENABLE) { setInterruptEnable(dev); priv->waiting_command_mask &= ~ARLAN_COMMAND_INT_RENABLE; } else if (priv->waiting_command_mask & ARLAN_COMMAND_CONF) { if (priv->tx_command_given || priv->rx_command_given) { printk(KERN_ERR "%s: Reset under tx or rx command \n", dev->name); } arlan_drop_tx(dev); setInterruptEnable(dev); arlan_hw_config(dev); arlan_interrupt_lancpu(dev); priv->waiting_command_mask &= ~ARLAN_COMMAND_CONF; priv->card_polling_interval = HZ / 10; // priv->waiting_command_mask |= ARLAN_COMMAND_INT_RACK; // priv->waiting_command_mask |= ARLAN_COMMAND_INT_ENABLE; priv->waiting_command_mask |= ARLAN_COMMAND_CONF_WAIT; } else if (priv->waiting_command_mask & ARLAN_COMMAND_CONF_WAIT) { if (READSHMB(arlan->configuredStatusFlag) != 0 && READSHMB(arlan->diagnosticInfo) == 0xff) { priv->waiting_command_mask &= ~ARLAN_COMMAND_CONF_WAIT; priv->waiting_command_mask |= ARLAN_COMMAND_RX; priv->waiting_command_mask |= ARLAN_COMMAND_TBUSY_CLEAR; priv->card_polling_interval = HZ / 10; priv->tx_command_given = 0; priv->under_config = 0; } else { priv->card_polling_interval = 1; if (arlan_debug & ARLAN_DEBUG_TIMING) printk(KERN_ERR "configure delayed \n"); } } else if (priv->waiting_command_mask & ARLAN_COMMAND_RX) { if (!registrationBad(dev)) { setInterruptEnable(dev); memset_io((void *) arlan->commandParameter, 0, 0xf); WRITESHMB(arlan->commandByte, ARLAN_COM_INT | ARLAN_COM_RX_ENABLE); WRITESHMB(arlan->commandParameter[0], conf->rxParameter); arlan_interrupt_lancpu(dev); priv->rx_command_given = 0; // mnjah, bad priv->last_rx_time = arlan_time(); priv->waiting_command_mask &= ~ARLAN_COMMAND_RX; priv->card_polling_interval = 1; } else priv->card_polling_interval = 2; } else if (priv->waiting_command_mask & ARLAN_COMMAND_TBUSY_CLEAR) { if ( !registrationBad(dev) && (netif_queue_stopped(dev) || !netif_running(dev)) ) { priv->waiting_command_mask &= ~ARLAN_COMMAND_TBUSY_CLEAR; netif_wake_queue (dev); }; } else if (priv->waiting_command_mask & ARLAN_COMMAND_TX) { if (!test_and_set_bit(0, (void *) &priv->tx_command_given)) { if ((time_mks - priv->last_tx_time > conf->rx_tweak1) || (time_mks - priv->last_rx_int_ack_time < conf->rx_tweak2)) { setInterruptEnable(dev); memset_io((void *) arlan->commandParameter, 0, 0xf); WRITESHMB(arlan->commandByte, ARLAN_COM_TX_ENABLE | ARLAN_COM_INT); memcpy_toio((void *) arlan->commandParameter, &TXLAST(dev), 14); // for ( i=1 ; i < 15 ; i++) printk("%02x:",READSHMB(arlan->commandParameter[i])); priv->last_command_was_rx = 0; priv->tx_last_sent = jiffies; arlan_interrupt_lancpu(dev); priv->last_tx_time = arlan_time(); priv->tx_command_given = 1; priv->waiting_command_mask &= ~ARLAN_COMMAND_TX; priv->card_polling_interval = 1; } else { priv->tx_command_given = 0; priv->card_polling_interval = 1; } } else if (arlan_debug & ARLAN_DEBUG_CHAIN_LOCKS) printk(KERN_ERR "tx command when tx chain locked \n"); } else if (priv->waiting_command_mask & ARLAN_COMMAND_NOOPINT) { { WRITESHMB(arlan->commandByte, ARLAN_COM_NOP | ARLAN_COM_INT); } arlan_interrupt_lancpu(dev); priv->waiting_command_mask &= ~ARLAN_COMMAND_NOOPINT; priv->card_polling_interval = HZ / 3; } else if (priv->waiting_command_mask & ARLAN_COMMAND_NOOP) { WRITESHMB(arlan->commandByte, ARLAN_COM_NOP); arlan_interrupt_lancpu(dev); priv->waiting_command_mask &= ~ARLAN_COMMAND_NOOP; priv->card_polling_interval = HZ / 3; } else if (priv->waiting_command_mask & ARLAN_COMMAND_SLOW_POLL) { WRITESHMB(arlan->commandByte, ARLAN_COM_GOTO_SLOW_POLL); arlan_interrupt_lancpu(dev); priv->waiting_command_mask &= ~ARLAN_COMMAND_SLOW_POLL; priv->card_polling_interval = HZ / 3; } else if (priv->waiting_command_mask & ARLAN_COMMAND_POWERDOWN) { setPowerOff(dev); if (arlan_debug & ARLAN_DEBUG_CARD_STATE) printk(KERN_WARNING "%s: Arlan Going Standby\n", dev->name); priv->waiting_command_mask &= ~ARLAN_COMMAND_POWERDOWN; priv->card_polling_interval = 3 * HZ; } arlan_unlock_card_access(dev); for (i = 0; READSHMB(arlan->commandByte) && i < 20; i++) udelay(10); if (READSHMB(arlan->commandByte)) if (arlan_debug & ARLAN_DEBUG_CARD_STATE) printk(KERN_ERR "card busy leaving command %x \n", priv->waiting_command_mask); priv->command_lock = 0; ARLAN_DEBUG_EXIT("arlan_command"); priv->last_command_buff_free_time = jiffies; return 0; card_busy_end: if (jiffies - priv->last_command_buff_free_time > HZ) priv->waiting_command_mask |= ARLAN_COMMAND_CLEAN_AND_RESET; if (arlan_debug & ARLAN_DEBUG_CARD_STATE) printk(KERN_ERR "%s arlan_command card busy end \n", dev->name); priv->command_lock = 0; ARLAN_DEBUG_EXIT("arlan_command"); return 1; bad_end: printk(KERN_ERR "%s arlan_command bad end \n", dev->name); priv->command_lock = 0; ARLAN_DEBUG_EXIT("arlan_command"); return -1; command_busy_end: if (arlan_debug & ARLAN_DEBUG_CARD_STATE) printk(KERN_ERR "%s arlan_command command busy end \n", dev->name); ARLAN_DEBUG_EXIT("arlan_command"); return 2; }; extern inline void arlan_command_process(struct net_device *dev) { struct arlan_private *priv = ((struct arlan_private *) dev->priv); int times = 0; while (priv->waiting_command_mask && times < 8) { if (priv->waiting_command_mask) { if (arlan_command(dev, 0)) break; times++; } /* if long command, we wont repeat trying */ ; if (priv->card_polling_interval > 1) break; times++; } } extern inline void arlan_retransmit_now(struct net_device *dev) { struct arlan_private *priv = ((struct arlan_private *) dev->priv); ARLAN_DEBUG_ENTRY("arlan_retransmit_now"); if (TXLAST(dev).offset == 0) { if (TXHEAD(dev).offset) { priv->txLast = 0; IFDEBUG(ARLAN_DEBUG_TX_CHAIN) printk(KERN_DEBUG "TX buff switch to head \n"); } else if (TXTAIL(dev).offset) { IFDEBUG(ARLAN_DEBUG_TX_CHAIN) printk(KERN_DEBUG "TX buff switch to tail \n"); priv->txLast = 1; } else IFDEBUG(ARLAN_DEBUG_TX_CHAIN) printk(KERN_ERR "ReTransmit buff empty"); priv->txOffset = 0; netif_wake_queue (dev); return; } arlan_command(dev, ARLAN_COMMAND_TX); priv->nof_tx++; priv->Conf->driverRetransmissions++; priv->retransmissions++; IFDEBUG(ARLAN_DEBUG_TX_CHAIN) printk("Retransmit %d bytes \n", TXLAST(dev).length); ARLAN_DEBUG_EXIT("arlan_retransmit_now"); } static void arlan_registration_timer(unsigned long data) { struct net_device *dev = (struct net_device *) data; struct arlan_private *priv = (struct arlan_private *) dev->priv; int lostTime = ((int) (jiffies - priv->registrationLastSeen)) * 1000 / HZ; int bh_mark_needed = 0; int next_tick = 1; priv->timer_chain_active = 1; if (registrationBad(dev)) { //debug=100; priv->registrationLostCount++; if (lostTime > 7000 && lostTime < 7200) { printk(KERN_NOTICE "%s registration Lost \n", dev->name); } if (lostTime / priv->reRegisterExp > 2000) arlan_command(dev, ARLAN_COMMAND_CLEAN_AND_CONF); if (lostTime / (priv->reRegisterExp) > 3500) arlan_command(dev, ARLAN_COMMAND_CLEAN_AND_RESET); if (priv->reRegisterExp < 400) priv->reRegisterExp += 2; if (lostTime > 7200) { next_tick = HZ; arlan_command(dev, ARLAN_COMMAND_CLEAN_AND_RESET); } } else { if (priv->Conf->registrationMode && lostTime > 10000 && priv->registrationLostCount) { printk(KERN_NOTICE "%s registration is back after %d milliseconds\n", dev->name, ((int) (jiffies - priv->registrationLastSeen) * 1000) / HZ); } priv->registrationLastSeen = jiffies; priv->registrationLostCount = 0; priv->reRegisterExp = 1; if (!netif_running(dev) ) netif_wake_queue(dev); if (priv->tx_last_sent > priv->tx_last_cleared && jiffies - priv->tx_last_sent > 5*HZ ){ arlan_command(dev, ARLAN_COMMAND_CLEAN_AND_RESET); priv->tx_last_cleared = jiffies; }; } if (!registrationBad(dev) && priv->ReTransmitRequested) { IFDEBUG(ARLAN_DEBUG_TX_CHAIN) printk(KERN_ERR "Retransmit from timer \n"); priv->ReTransmitRequested = 0; arlan_retransmit_now(dev); } if (!registrationBad(dev) && priv->tx_done_delayed < jiffies && priv->tx_done_delayed != 0) { TXLAST(dev).offset = 0; if (priv->txLast) priv->txLast = 0; else if (TXTAIL(dev).offset) priv->txLast = 1; if (TXLAST(dev).offset) { arlan_retransmit_now(dev); dev->trans_start = jiffies; } if (!(TXHEAD(dev).offset && TXTAIL(dev).offset)) { priv->txOffset = 0; netif_wake_queue (dev); } priv->tx_done_delayed = 0; bh_mark_needed = 1; } if (bh_mark_needed) { priv->txOffset = 0; netif_wake_queue (dev); } arlan_process_interrupt(dev); if (next_tick < priv->card_polling_interval) next_tick = priv->card_polling_interval; priv->timer_chain_active = 0; priv->timer.expires = jiffies + next_tick; add_timer(&priv->timer); } #ifdef ARLAN_DEBUGGING static void arlan_print_registers(struct net_device *dev, int line) { volatile struct arlan_shmem *arlan = ((struct arlan_private *) dev->priv)->card; u_char hostcpuLock, lancpuLock, controlRegister, cntrlRegImage, txStatus, rxStatus, interruptInProgress, commandByte; ARLAN_DEBUG_ENTRY("arlan_print_registers"); READSHM(interruptInProgress, arlan->interruptInProgress, u_char); READSHM(hostcpuLock, arlan->hostcpuLock, u_char); READSHM(lancpuLock, arlan->lancpuLock, u_char); READSHM(controlRegister, arlan->controlRegister, u_char); READSHM(cntrlRegImage, arlan->cntrlRegImage, u_char); READSHM(txStatus, arlan->txStatus, u_char); READSHM(rxStatus, arlan->rxStatus, u_char); READSHM(commandByte, arlan->commandByte, u_char); printk(KERN_WARNING "line %04d IP %02x HL %02x LL %02x CB %02x CR %02x CRI %02x TX %02x RX %02x\n", line, interruptInProgress, hostcpuLock, lancpuLock, commandByte, controlRegister, cntrlRegImage, txStatus, rxStatus); ARLAN_DEBUG_EXIT("arlan_print_registers"); } #endif static int arlan_hw_tx(struct net_device *dev, char *buf, int length) { int i; struct arlan_private *priv = (struct arlan_private *) dev->priv; volatile struct arlan_shmem *arlan = priv->card; struct arlan_conf_stru *conf = priv->Conf; int tailStarts = 0x800; int headEnds = 0x0; ARLAN_DEBUG_ENTRY("arlan_hw_tx"); if (TXHEAD(dev).offset) headEnds = (((TXHEAD(dev).offset + TXHEAD(dev).length - (((int) arlan->txBuffer) - ((int) arlan))) / 64) + 1) * 64; if (TXTAIL(dev).offset) tailStarts = 0x800 - (((TXTAIL(dev).offset - (((int) arlan->txBuffer) - ((int) arlan))) / 64) + 2) * 64; if (!TXHEAD(dev).offset && length < tailStarts) { IFDEBUG(ARLAN_DEBUG_TX_CHAIN) printk(KERN_ERR "TXHEAD insert, tailStart %d\n", tailStarts); TXHEAD(dev).offset = (((int) arlan->txBuffer) - ((int) arlan)); TXHEAD(dev).length = length - ARLAN_FAKE_HDR_LEN; for (i = 0; i < 6; i++) TXHEAD(dev).dest[i] = buf[i]; TXHEAD(dev).clear = conf->txClear; TXHEAD(dev).retries = conf->txRetries; /* 0 is use default */ TXHEAD(dev).routing = conf->txRouting; TXHEAD(dev).scrambled = conf->txScrambled; memcpy_toio(((char *) arlan + TXHEAD(dev).offset), buf + ARLAN_FAKE_HDR_LEN, TXHEAD(dev).length); } else if (!TXTAIL(dev).offset && length < (0x800 - headEnds)) { IFDEBUG(ARLAN_DEBUG_TX_CHAIN) printk(KERN_ERR "TXTAIL insert, headEnd %d\n", headEnds); TXTAIL(dev).offset = (((int) arlan->txBuffer) - ((int) arlan)) + 0x800 - (length / 64 + 2) * 64; TXTAIL(dev).length = length - ARLAN_FAKE_HDR_LEN; for (i = 0; i < 6; i++) TXTAIL(dev).dest[i] = buf[i]; TXTAIL(dev).clear = conf->txClear; TXTAIL(dev).retries = conf->txRetries; TXTAIL(dev).routing = conf->txRouting; TXTAIL(dev).scrambled = conf->txScrambled; memcpy_toio(((char *) arlan + TXTAIL(dev).offset), buf + ARLAN_FAKE_HDR_LEN, TXTAIL(dev).length); } else { netif_stop_queue (dev); return -1; IFDEBUG(ARLAN_DEBUG_TX_CHAIN) printk(KERN_ERR "TX TAIL & HEAD full, return, tailStart %d headEnd %d\n", tailStarts, headEnds); } priv->out_bytes += length; priv->out_bytes10 += length; if (conf->measure_rate < 1) conf->measure_rate = 1; if (jiffies - priv->out_time > conf->measure_rate * HZ) { conf->out_speed = priv->out_bytes / conf->measure_rate; priv->out_bytes = 0; priv->out_time = jiffies; } if (jiffies - priv->out_time10 > conf->measure_rate * HZ * 10) { conf->out_speed10 = priv->out_bytes10 / (10 * conf->measure_rate); priv->out_bytes10 = 0; priv->out_time10 = jiffies; } if (TXHEAD(dev).offset && TXTAIL(dev).offset) { netif_stop_queue (dev); return 0; } else netif_start_queue (dev); IFDEBUG(ARLAN_DEBUG_HEADER_DUMP) printk(KERN_WARNING "%s Transmit t %2x:%2x:%2x:%2x:%2x:%2x f %2x:%2x:%2x:%2x:%2x:%2x \n", dev->name, (unsigned char) buf[0], (unsigned char) buf[1], (unsigned char) buf[2], (unsigned char) buf[3], (unsigned char) buf[4], (unsigned char) buf[5], (unsigned char) buf[6], (unsigned char) buf[7], (unsigned char) buf[8], (unsigned char) buf[9], (unsigned char) buf[10], (unsigned char) buf[11]); IFDEBUG(ARLAN_DEBUG_TX_CHAIN) printk(KERN_ERR "TX command prepare for buffer %d\n", priv->txLast); arlan_command(dev, ARLAN_COMMAND_TX); priv->last_command_was_rx = 0; priv->tx_last_sent = jiffies; priv->nof_tx++; IFDEBUG(ARLAN_DEBUG_TX_CHAIN) printk("%s TX Qued %d bytes \n", dev->name, length); ARLAN_DEBUG_EXIT("arlan_hw_tx"); return 0; } static int arlan_hw_config(struct net_device *dev) { volatile struct arlan_shmem *arlan = ((struct arlan_private *) dev->priv)->card; struct arlan_conf_stru *conf = ((struct arlan_private *) dev->priv)->Conf; struct arlan_private *priv = (struct arlan_private *) dev->priv; ARLAN_DEBUG_ENTRY("arlan_hw_config"); printk(KERN_NOTICE "%s arlan configure called \n", dev->name); if (arlan_EEPROM_bad) printk(KERN_NOTICE "arlan configure with eeprom bad option \n"); WRITESHM(arlan->spreadingCode, conf->spreadingCode, u_char); WRITESHM(arlan->channelSet, conf->channelSet, u_char); if (arlan_EEPROM_bad) WRITESHM(arlan->defaultChannelSet, conf->channelSet, u_char); WRITESHM(arlan->channelNumber, conf->channelNumber, u_char); WRITESHM(arlan->scramblingDisable, conf->scramblingDisable, u_char); WRITESHM(arlan->txAttenuation, conf->txAttenuation, u_char); WRITESHM(arlan->systemId, conf->systemId, u_int); WRITESHM(arlan->maxRetries, conf->maxRetries, u_char); WRITESHM(arlan->receiveMode, conf->receiveMode, u_char); WRITESHM(arlan->priority, conf->priority, u_char); WRITESHM(arlan->rootOrRepeater, conf->rootOrRepeater, u_char); WRITESHM(arlan->SID, conf->SID, u_int); WRITESHM(arlan->registrationMode, conf->registrationMode, u_char); WRITESHM(arlan->registrationFill, conf->registrationFill, u_char); WRITESHM(arlan->localTalkAddress, conf->localTalkAddress, u_char); WRITESHM(arlan->codeFormat, conf->codeFormat, u_char); WRITESHM(arlan->numChannels, conf->numChannels, u_char); WRITESHM(arlan->channel1, conf->channel1, u_char); WRITESHM(arlan->channel2, conf->channel2, u_char); WRITESHM(arlan->channel3, conf->channel3, u_char); WRITESHM(arlan->channel4, conf->channel4, u_char); WRITESHM(arlan->radioNodeId, conf->radioNodeId, u_short); WRITESHM(arlan->SID, conf->SID, u_int); WRITESHM(arlan->waitTime, conf->waitTime, u_short); WRITESHM(arlan->lParameter, conf->lParameter, u_short); memcpy_toio(&(arlan->_15), &(conf->_15), 3); WRITESHM(arlan->_15, conf->_15, u_short); WRITESHM(arlan->headerSize, conf->headerSize, u_short); if (arlan_EEPROM_bad) WRITESHM(arlan->hardwareType, conf->hardwareType, u_char); WRITESHM(arlan->radioType, conf->radioType, u_char); if (arlan_EEPROM_bad) WRITESHM(arlan->radioModule, conf->radioType, u_char); memcpy_toio(arlan->encryptionKey + keyStart, encryptionKey, 8); memcpy_toio(arlan->name, conf->siteName, 16); WRITESHMB(arlan->commandByte, ARLAN_COM_INT | ARLAN_COM_CONF); /* do configure */ memset_io(arlan->commandParameter, 0, 0xf); /* 0xf */ memset_io(arlan->commandParameter + 1, 0, 2); if (conf->writeEEPROM) { memset_io(arlan->commandParameter, conf->writeEEPROM, 1); // conf->writeEEPROM=0; } if (conf->registrationMode && conf->registrationInterrupts) memset_io(arlan->commandParameter + 3, 1, 1); else memset_io(arlan->commandParameter + 3, 0, 1); priv->irq_test_done = 0; if (conf->tx_queue_len) dev->tx_queue_len = conf->tx_queue_len; udelay(100); ARLAN_DEBUG_EXIT("arlan_hw_config"); return 0; } static int arlan_read_card_configuration(struct net_device *dev) { u_char tlx415; volatile struct arlan_shmem *arlan = ((struct arlan_private *) dev->priv)->card; struct arlan_conf_stru *conf = ((struct arlan_private *) dev->priv)->Conf; ARLAN_DEBUG_ENTRY("arlan_read_card_configuration"); if (radioNodeId == radioNodeIdUNKNOWN) { READSHM(conf->radioNodeId, arlan->radioNodeId, u_short); } else conf->radioNodeId = radioNodeId; if (SID == SIDUNKNOWN) { READSHM(conf->SID, arlan->SID, u_int); } else conf->SID = SID; if (spreadingCode == spreadingCodeUNKNOWN) { READSHM(conf->spreadingCode, arlan->spreadingCode, u_char); } else conf->spreadingCode = spreadingCode; if (channelSet == channelSetUNKNOWN) { READSHM(conf->channelSet, arlan->channelSet, u_char); } else conf->channelSet = channelSet; if (channelNumber == channelNumberUNKNOWN) { READSHM(conf->channelNumber, arlan->channelNumber, u_char); } else conf->channelNumber = channelNumber; READSHM(conf->scramblingDisable, arlan->scramblingDisable, u_char); READSHM(conf->txAttenuation, arlan->txAttenuation, u_char); if (systemId == systemIdUNKNOWN) { READSHM(conf->systemId, arlan->systemId, u_int); } else conf->systemId = systemId; READSHM(conf->maxDatagramSize, arlan->maxDatagramSize, u_short); READSHM(conf->maxFrameSize, arlan->maxFrameSize, u_short); READSHM(conf->maxRetries, arlan->maxRetries, u_char); READSHM(conf->receiveMode, arlan->receiveMode, u_char); READSHM(conf->priority, arlan->priority, u_char); READSHM(conf->rootOrRepeater, arlan->rootOrRepeater, u_char); if (SID == SIDUNKNOWN) { READSHM(conf->SID, arlan->SID, u_int); } else conf->SID = SID; if (registrationMode == registrationModeUNKNOWN) { READSHM(conf->registrationMode, arlan->registrationMode, u_char); } else conf->registrationMode = registrationMode; READSHM(conf->registrationFill, arlan->registrationFill, u_char); READSHM(conf->localTalkAddress, arlan->localTalkAddress, u_char); READSHM(conf->codeFormat, arlan->codeFormat, u_char); READSHM(conf->numChannels, arlan->numChannels, u_char); READSHM(conf->channel1, arlan->channel1, u_char); READSHM(conf->channel2, arlan->channel2, u_char); READSHM(conf->channel3, arlan->channel3, u_char); READSHM(conf->channel4, arlan->channel4, u_char); READSHM(conf->waitTime, arlan->waitTime, u_short); READSHM(conf->lParameter, arlan->lParameter, u_short); READSHM(conf->_15, arlan->_15, u_short); READSHM(conf->headerSize, arlan->headerSize, u_short); READSHM(conf->hardwareType, arlan->hardwareType, u_char); READSHM(conf->radioType, arlan->radioModule, u_char); if (conf->radioType == 0) conf->radioType = 0xc; WRITESHM(arlan->configStatus, 0xA5, u_char); READSHM(tlx415, arlan->configStatus, u_char); if (tlx415 != 0xA5) printk(KERN_INFO "%s tlx415 chip \n", dev->name); conf->txClear = 0; conf->txRetries = 1; conf->txRouting = 1; conf->txScrambled = 0; conf->rxParameter = 1; conf->txTimeoutMs = 4000; conf->waitCardTimeout = 100000; conf->receiveMode = ARLAN_RCV_CLEAN; memcpy_fromio(conf->siteName, arlan->name, 16); conf->siteName[16] = '\0'; conf->retries = retries; conf->tx_delay_ms = tx_delay_ms; conf->async = async; conf->ReTransmitPacketMaxSize = 200; conf->waitReTransmitPacketMaxSize = 200; conf->txAckTimeoutMs = 900; conf->fastReTransCount = 3; ARLAN_DEBUG_EXIT("arlan_read_card_configuration"); return 0; } static int lastFoundAt = 0xbe000; /* * This is the real probe routine. Linux has a history of friendly device * probes on the ISA bus. A good device probes avoids doing writes, and * verifies that the correct device exists and functions. */ static int __init arlan_check_fingerprint(int memaddr) { static char probeText[] = "TELESYSTEM SLW INC. ARLAN \0"; char tempBuf[49]; volatile struct arlan_shmem *arlan = (struct arlan_shmem *) memaddr; ARLAN_DEBUG_ENTRY("arlan_check_fingerprint"); if (check_mem_region(virt_to_phys((void *)memaddr),0x2000 )){ // printk(KERN_WARNING "arlan: memory region %lx excluded from probing \n",virt_to_phys((void*)memaddr)); return -ENODEV; }; memcpy_fromio(tempBuf, arlan->textRegion, 29); tempBuf[30] = 0; /* check for card at this address */ if (0 != strncmp(tempBuf, probeText, 29)){ // not release_mem_region(virt_to_phys((void*)memaddr),0x2000); return -ENODEV; } // printk(KERN_INFO "arlan found at 0x%x \n",memaddr); ARLAN_DEBUG_EXIT("arlan_check_fingerprint"); return 0; } static int __init arlan_probe_everywhere(struct net_device *dev) { int m; int probed = 0; int found = 0; SET_MODULE_OWNER(dev); ARLAN_DEBUG_ENTRY("arlan_probe_everywhere"); if (mem != 0 && numDevices == 1) /* Check a single specified location. */ { if (arlan_probe_here(dev, (int) phys_to_virt( mem) ) == 0) return 0; else return -ENODEV; } for (m = (int)phys_to_virt(lastFoundAt) + 0x2000; m <= (int)phys_to_virt(0xDE000); m += 0x2000) { if (arlan_probe_here(dev, m) == 0) { found++; lastFoundAt = (int)virt_to_phys((void*)m); break; } probed++; } if (found == 0 && probed != 0) { if (lastFoundAt == 0xbe000) printk(KERN_ERR "arlan: No Arlan devices found \n"); return -ENODEV; } else return 0; ARLAN_DEBUG_EXIT("arlan_probe_everywhere"); return -ENODEV; } static int __init arlan_find_devices(void) { int m; int found = 0; ARLAN_DEBUG_ENTRY("arlan_find_devices"); if (mem != 0 && numDevices == 1) /* Check a single specified location. */ return 1; for (m =(int) phys_to_virt(0xc0000); m <=(int) phys_to_virt(0xDE000); m += 0x2000) { if (arlan_check_fingerprint(m) == 0) found++; } ARLAN_DEBUG_EXIT("arlan_find_devices"); return found; } static int arlan_change_mtu(struct net_device *dev, int new_mtu) { struct arlan_conf_stru *conf = ((struct arlan_private *) dev->priv)->Conf; ARLAN_DEBUG_ENTRY("arlan_change_mtu"); if (new_mtu > 2032) return -EINVAL; dev->mtu = new_mtu; if (new_mtu < 256) new_mtu = 256; /* cards book suggests 1600 */ conf->maxDatagramSize = new_mtu; conf->maxFrameSize = new_mtu + 48; arlan_command(dev, ARLAN_COMMAND_CLEAN_AND_CONF); printk(KERN_NOTICE "%s mtu changed to %d \n", dev->name, new_mtu); ARLAN_DEBUG_EXIT("arlan_change_mtu"); return 0; } static int arlan_mac_addr(struct net_device *dev, void *p) { struct sockaddr *addr = p; ARLAN_DEBUG_ENTRY("arlan_mac_addr"); return -EINVAL; if (!netif_running(dev)) return -EBUSY; memcpy(dev->dev_addr, addr->sa_data, dev->addr_len); ARLAN_DEBUG_EXIT("arlan_mac_addr"); return 0; } static int __init arlan_allocate_device(int num, struct net_device *devs) { struct net_device *dev; ARLAN_DEBUG_ENTRY("arlan_allocate_device"); if (!devs) dev = init_etherdev(0, sizeof(struct arlan_private)); else { dev = devs; dev->priv = kmalloc(sizeof(struct arlan_private), GFP_KERNEL); }; if (dev == NULL || dev->priv == NULL) { printk(KERN_CRIT "init_etherdev failed "); return 0; } memset(dev->priv,0,sizeof(struct arlan_private)); ((struct arlan_private *) dev->priv)->conf = kmalloc(sizeof(struct arlan_shmem), GFP_KERNEL); if (dev == NULL || dev->priv == NULL || ((struct arlan_private *) dev->priv)->conf == NULL) { return 0; printk(KERN_CRIT " No memory at arlan_allocate_device \n"); } /* Fill in the 'dev' fields. */ dev->base_addr = 0; dev->mem_start = 0; dev->mem_end = 0; dev->mtu = 1500; dev->flags = 0; /* IFF_BROADCAST & IFF_MULTICAST & IFF_PROMISC; */ dev->irq = 0; dev->dma = 0; dev->tx_queue_len = tx_queue_len; ether_setup(dev); dev->tx_queue_len = tx_queue_len; dev->open = arlan_open; dev->stop = arlan_close; dev->hard_start_xmit = arlan_tx; dev->get_stats = arlan_statistics; dev->set_multicast_list = arlan_set_multicast; dev->change_mtu = arlan_change_mtu; dev->set_mac_address = arlan_mac_addr; dev->tx_timeout = arlan_tx_timeout; dev->watchdog_timeo = 3*HZ; ((struct arlan_private *) dev->priv)->irq_test_done = 0; arlan_device[num] = dev; ((struct arlan_private *) arlan_device[num]->priv)->Conf = &(arlan_conf[num]); ((struct arlan_private *) dev->priv)->Conf->pre_Command_Wait = 40; ((struct arlan_private *) dev->priv)->Conf->rx_tweak1 = 30; ((struct arlan_private *) dev->priv)->Conf->rx_tweak2 = 0; ARLAN_DEBUG_EXIT("arlan_allocate_device"); return (int) dev; } static int __init arlan_probe_here(struct net_device *dev, int memaddr) { volatile struct arlan_shmem *arlan; ARLAN_DEBUG_ENTRY("arlan_probe_here"); if (arlan_check_fingerprint(memaddr)) return -ENODEV; printk(KERN_NOTICE "%s: Arlan found at %x, \n ", dev->name, (int) virt_to_phys((void*)memaddr)); if (!arlan_allocate_device(arlans_found, dev)) return -1; ((struct arlan_private *) dev->priv)->card = (struct arlan_shmem *) memaddr; arlan = (void *) memaddr; dev->mem_start = memaddr; dev->mem_end = memaddr + 0x1FFF; if (dev->irq < 2) { READSHM(dev->irq, arlan->irqLevel, u_char); } else if (dev->irq == 2) dev->irq = 9; arlan_read_card_configuration(dev); ARLAN_DEBUG_EXIT("arlan_probe_here"); return 0; } static int arlan_open(struct net_device *dev) { struct arlan_private *priv = (struct arlan_private *) dev->priv; volatile struct arlan_shmem *arlan = priv->card; int ret = 0; ARLAN_DEBUG_ENTRY("arlan_open"); if (dev->mem_start == 0) ret = arlan_probe_everywhere(dev); if (ret != 0) return ret; arlan = ((struct arlan_private *) dev->priv)->card; ret = request_irq(dev->irq, &arlan_interrupt, 0, dev->name, dev); if (ret) { printk(KERN_ERR "%s: unable to get IRQ %d .\n", dev->name, dev->irq); return ret; } priv->bad = 0; priv->lastReset = 0; priv->reset = 0; priv->open_time = jiffies; memcpy_fromio(dev->dev_addr, arlan->lanCardNodeId, 6); memset(dev->broadcast, 0xff, 6); priv->txOffset = 0; dev->tx_queue_len = tx_queue_len; priv->interrupt_processing_active = 0; priv->command_lock = 0; netif_start_queue (dev); init_MUTEX(&priv->card_lock); myATOMIC_INIT(priv->card_users, 1); /* damn 2.0.33 */ priv->registrationLostCount = 0; priv->registrationLastSeen = jiffies; priv->txLast = 0; priv->tx_command_given = 0; priv->rx_command_given = 0; priv->reRegisterExp = 1; priv->nof_tx = 0; priv->nof_tx_ack = 0; priv->last_command_was_rx = 0; priv->tx_last_sent = jiffies - 1; priv->tx_last_cleared = jiffies; priv->Conf->writeEEPROM = 0; priv->Conf->registrationInterrupts = 1; init_timer(&priv->timer); priv->timer.expires = jiffies + HZ / 10; priv->timer.data = (unsigned long) dev; priv->timer.function = &arlan_registration_timer; /* timer handler */ arlan_command(dev, ARLAN_COMMAND_POWERUP | ARLAN_COMMAND_LONG_WAIT_NOW); mdelay(200); add_timer(&priv->timer); #ifdef CONFIG_PROC_FS #ifndef MODULE if (arlan_device[0]) init_arlan_proc(); #endif #endif ARLAN_DEBUG_EXIT("arlan_open"); return 0; } static void arlan_tx_timeout (struct net_device *dev) { printk(KERN_ERR "%s: arlan transmit timed out, kernel decided\n", dev->name); /* Try to restart the adaptor. */ arlan_command(dev, ARLAN_COMMAND_CLEAN_AND_RESET); // dev->trans_start = jiffies; // netif_start_queue (dev); } static int arlan_tx(struct sk_buff *skb, struct net_device *dev) { struct arlan_private *priv = ((struct arlan_private *) dev->priv); short length; unsigned char *buf; ARLAN_DEBUG_ENTRY("arlan_tx"); length = ETH_ZLEN < skb->len ? skb->len : ETH_ZLEN; buf = skb->data; if (priv->txOffset + length + 0x12 > 0x800) { printk(KERN_ERR "TX RING overflow \n"); netif_stop_queue (dev); } if (arlan_hw_tx(dev, buf, length) == -1) goto bad_end; dev->trans_start = jiffies; dev_kfree_skb(skb); arlan_process_interrupt(dev); priv->tx_chain_active = 0; ARLAN_DEBUG_EXIT("arlan_tx"); return 0; bad_end: arlan_process_interrupt(dev); priv->tx_chain_active = 0; netif_stop_queue (dev); ARLAN_DEBUG_EXIT("arlan_tx"); return 1; } extern inline int DoNotReTransmitCrap(struct net_device *dev) { struct arlan_private *priv = ((struct arlan_private *) dev->priv); if (TXLAST(dev).length < priv->Conf->ReTransmitPacketMaxSize) return 1; return 0; } extern inline int DoNotWaitReTransmitCrap(struct net_device *dev) { struct arlan_private *priv = ((struct arlan_private *) dev->priv); if (TXLAST(dev).length < priv->Conf->waitReTransmitPacketMaxSize) return 1; return 0; } extern inline void arlan_queue_retransmit(struct net_device *dev) { struct arlan_private *priv = ((struct arlan_private *) dev->priv); ARLAN_DEBUG_ENTRY("arlan_queue_retransmit"); if (DoNotWaitReTransmitCrap(dev)) { arlan_drop_tx(dev); } else priv->ReTransmitRequested++; ARLAN_DEBUG_EXIT("arlan_queue_retransmit"); }; static inline void RetryOrFail(struct net_device *dev) { struct arlan_private *priv = ((struct arlan_private *) dev->priv); ARLAN_DEBUG_ENTRY("RetryOrFail"); if (priv->retransmissions > priv->Conf->retries || DoNotReTransmitCrap(dev)) { arlan_drop_tx(dev); } else if (priv->bad <= priv->Conf->fastReTransCount) { arlan_retransmit_now(dev); } else arlan_queue_retransmit(dev); ARLAN_DEBUG_EXIT("RetryOrFail"); } static void arlan_tx_done_interrupt(struct net_device *dev, int status) { struct arlan_private *priv = ((struct arlan_private *) dev->priv); ARLAN_DEBUG_ENTRY("arlan_tx_done_interrupt"); priv->tx_last_cleared = jiffies; priv->tx_command_given = 0; priv->nof_tx_ack++; switch (status) { case 1: { IFDEBUG(ARLAN_DEBUG_TX_CHAIN) printk("arlan intr: transmit OK\n"); priv->stats.tx_packets++; priv->bad = 0; priv->reset = 0; priv->retransmissions = 0; if (priv->Conf->tx_delay_ms) { priv->tx_done_delayed = jiffies + (priv->Conf->tx_delay_ms * HZ) / 1000 + 1;; } else { TXLAST(dev).offset = 0; if (priv->txLast) priv->txLast = 0; else if (TXTAIL(dev).offset) priv->txLast = 1; if (TXLAST(dev).offset) { arlan_retransmit_now(dev); dev->trans_start = jiffies; } if (!TXHEAD(dev).offset || !TXTAIL(dev).offset) { priv->txOffset = 0; netif_wake_queue (dev); } } } break; case 2: { IFDEBUG(ARLAN_DEBUG_TX_CHAIN) printk("arlan intr: transmit timed out\n"); priv->bad += 1; //arlan_queue_retransmit(dev); RetryOrFail(dev); } break; case 3: { IFDEBUG(ARLAN_DEBUG_TX_CHAIN) printk("arlan intr: transmit max retries\n"); priv->bad += 1; priv->reset = 0; //arlan_queue_retransmit(dev); RetryOrFail(dev); } break; case 4: { IFDEBUG(ARLAN_DEBUG_TX_CHAIN) printk("arlan intr: transmit aborted\n"); priv->bad += 1; arlan_queue_retransmit(dev); //RetryOrFail(dev); } break; case 5: { IFDEBUG(ARLAN_DEBUG_TX_CHAIN) printk("arlan intr: transmit not registered\n"); priv->bad += 1; //debug=101; arlan_queue_retransmit(dev); } break; case 6: { IFDEBUG(ARLAN_DEBUG_TX_CHAIN) printk("arlan intr: transmit destination full\n"); priv->bad += 1; priv->reset = 0; //arlan_drop_tx(dev); arlan_queue_retransmit(dev); } break; case 7: { IFDEBUG(ARLAN_DEBUG_TX_CHAIN) printk("arlan intr: transmit unknown ack\n"); priv->bad += 1; priv->reset = 0; arlan_queue_retransmit(dev); } break; case 8: { IFDEBUG(ARLAN_DEBUG_TX_CHAIN) printk("arlan intr: transmit dest mail box full\n"); priv->bad += 1; priv->reset = 0; //arlan_drop_tx(dev); arlan_queue_retransmit(dev); } break; case 9: { IFDEBUG(ARLAN_DEBUG_TX_CHAIN) printk("arlan intr: transmit root dest not reg.\n"); priv->bad += 1; priv->reset = 1; //arlan_drop_tx(dev); arlan_queue_retransmit(dev); } break; default: { printk(KERN_ERR "arlan intr: transmit status unknown\n"); priv->bad += 1; priv->reset = 1; arlan_drop_tx(dev); } } ARLAN_DEBUG_EXIT("arlan_tx_done_interrupt"); } static void arlan_rx_interrupt(struct net_device *dev, u_char rxStatus, u_short rxOffset, u_short pkt_len) { char *skbtmp; int i = 0; struct arlan_private *priv = (struct arlan_private *) dev->priv; volatile struct arlan_shmem *arlan = priv->card; struct arlan_conf_stru *conf = priv->Conf; ARLAN_DEBUG_ENTRY("arlan_rx_interrupt"); // by spec, not WRITESHMB(arlan->rxStatus,0x00); // prohibited here arlan_command(dev, ARLAN_COMMAND_RX); if (pkt_len < 10 || pkt_len > 2048) { printk(KERN_WARNING "%s: got too short or long packet, len %d \n", dev->name, pkt_len); return; } if (rxOffset + pkt_len > 0x2000) { printk("%s: got too long packet, len %d offset %x\n", dev->name, pkt_len, rxOffset); return; } priv->in_bytes += pkt_len; priv->in_bytes10 += pkt_len; if (conf->measure_rate < 1) conf->measure_rate = 1; if (jiffies - priv->in_time > conf->measure_rate * HZ) { conf->in_speed = priv->in_bytes / conf->measure_rate; priv->in_bytes = 0; priv->in_time = jiffies; } if (jiffies - priv->in_time10 > conf->measure_rate * HZ * 10) { conf->in_speed10 = priv->in_bytes10 / (10 * conf->measure_rate); priv->in_bytes10 = 0; priv->in_time10 = jiffies; } DEBUGSHM(1, "arlan rcv pkt rxStatus= %d ", arlan->rxStatus, u_char); switch (rxStatus) { case 1: case 2: case 3: { /* Malloc up new buffer. */ struct sk_buff *skb; DEBUGSHM(50, "arlan recv pkt offs=%d\n", arlan->rxOffset, u_short); DEBUGSHM(1, "arlan rxFrmType = %d \n", arlan->rxFrmType, u_char); DEBUGSHM(1, KERN_INFO "arlan rx scrambled = %d \n", arlan->scrambled, u_char); /* here we do multicast filtering to avoid slow 8-bit memcopy */ #ifdef ARLAN_MULTICAST if (!(dev->flags & IFF_ALLMULTI) && !(dev->flags & IFF_PROMISC) && dev->mc_list) { char hw_dst_addr[6]; struct dev_mc_list *dmi = dev->mc_list; int i; memcpy_fromio(hw_dst_addr, arlan->ultimateDestAddress, 6); if (hw_dst_addr[0] == 0x01) { if (mdebug) if (hw_dst_addr[1] == 0x00) printk(KERN_ERR "%s mcast 0x0100 \n", dev->name); else if (hw_dst_addr[1] == 0x40) printk(KERN_ERR "%s m/bcast 0x0140 \n", dev->name); while (dmi) { if (dmi->dmi_addrlen == 6) { if (arlan_debug & ARLAN_DEBUG_HEADER_DUMP) printk(KERN_ERR "%s mcl %2x:%2x:%2x:%2x:%2x:%2x \n", dev->name, dmi->dmi_addr[0], dmi->dmi_addr[1], dmi->dmi_addr[2], dmi->dmi_addr[3], dmi->dmi_addr[4], dmi->dmi_addr[5]); for (i = 0; i < 6; i++) if (dmi->dmi_addr[i] != hw_dst_addr[i]) break; if (i == 6) break; } else printk(KERN_ERR "%s: invalid multicast address length given.\n", dev->name); dmi = dmi->next; } /* we reach here if multicast filtering is on and packet * is multicast and not for receive */ goto end_of_interrupt; } } #endif // ARLAN_MULTICAST /* multicast filtering ends here */ pkt_len += ARLAN_FAKE_HDR_LEN; skb = dev_alloc_skb(pkt_len + 4); if (skb == NULL) { printk(KERN_ERR "%s: Memory squeeze, dropping packet.\n", dev->name); priv->stats.rx_dropped++; break; } skb_reserve(skb, 2); skb->dev = dev; skbtmp = skb_put(skb, pkt_len); memcpy_fromio(skbtmp + ARLAN_FAKE_HDR_LEN, ((char *) arlan) + rxOffset, pkt_len - ARLAN_FAKE_HDR_LEN); memcpy_fromio(skbtmp, arlan->ultimateDestAddress, 6); memcpy_fromio(skbtmp + 6, arlan->rxSrc, 6); WRITESHMB(arlan->rxStatus, 0x00); arlan_command(dev, ARLAN_COMMAND_RX); IFDEBUG(ARLAN_DEBUG_HEADER_DUMP) { char immedDestAddress[6]; char immedSrcAddress[6]; memcpy_fromio(immedDestAddress, arlan->immedDestAddress, 6); memcpy_fromio(immedSrcAddress, arlan->immedSrcAddress, 6); printk(KERN_WARNING "%s t %2x:%2x:%2x:%2x:%2x:%2x f %2x:%2x:%2x:%2x:%2x:%2x imd %2x:%2x:%2x:%2x:%2x:%2x ims %2x:%2x:%2x:%2x:%2x:%2x\n", dev->name, (unsigned char) skbtmp[0], (unsigned char) skbtmp[1], (unsigned char) skbtmp[2], (unsigned char) skbtmp[3], (unsigned char) skbtmp[4], (unsigned char) skbtmp[5], (unsigned char) skbtmp[6], (unsigned char) skbtmp[7], (unsigned char) skbtmp[8], (unsigned char) skbtmp[9], (unsigned char) skbtmp[10], (unsigned char) skbtmp[11], immedDestAddress[0], immedDestAddress[1], immedDestAddress[2], immedDestAddress[3], immedDestAddress[4], immedDestAddress[5], immedSrcAddress[0], immedSrcAddress[1], immedSrcAddress[2], immedSrcAddress[3], immedSrcAddress[4], immedSrcAddress[5]); } skb->protocol = eth_type_trans(skb, dev); IFDEBUG(ARLAN_DEBUG_HEADER_DUMP) if (skb->protocol != 0x608 && skb->protocol != 0x8) { for (i = 0; i <= 22; i++) printk("%02x:", (u_char) skbtmp[i + 12]); printk(KERN_ERR "\n"); printk(KERN_WARNING "arlan kernel pkt type trans %x \n", skb->protocol); } netif_rx(skb); dev->last_rx = jiffies; priv->stats.rx_packets++; priv->stats.rx_bytes += pkt_len; } break; default: printk(KERN_ERR "arlan intr: received unknown status\n"); priv->stats.rx_crc_errors++; break; } ARLAN_DEBUG_EXIT("arlan_rx_interrupt"); } static void arlan_process_interrupt(struct net_device *dev) { struct arlan_private *priv = (struct arlan_private *) dev->priv; volatile struct arlan_shmem *arlan = priv->card; u_char rxStatus = READSHMB(arlan->rxStatus); u_char txStatus = READSHMB(arlan->txStatus); u_short rxOffset = READSHMS(arlan->rxOffset); u_short pkt_len = READSHMS(arlan->rxLength); int interrupt_count = 0; ARLAN_DEBUG_ENTRY("arlan_process_interrupt"); if (test_and_set_bit(0, (void *) &priv->interrupt_processing_active)) { if (arlan_debug & ARLAN_DEBUG_CHAIN_LOCKS) printk(KERN_ERR "interrupt chain reentering \n"); goto end_int_process; } while ((rxStatus || txStatus || priv->interrupt_ack_requested) && (interrupt_count < 5)) { if (rxStatus) priv->last_rx_int_ack_time = arlan_time(); arlan_command(dev, ARLAN_COMMAND_INT_ACK); arlan_command(dev, ARLAN_COMMAND_INT_ENABLE); IFDEBUG(ARLAN_DEBUG_INTERRUPT) printk(KERN_ERR "%s: got IRQ rx %x tx %x comm %x rxOff %x rxLen %x \n", dev->name, rxStatus, txStatus, READSHMB(arlan->commandByte), rxOffset, pkt_len); if (rxStatus == 0 && txStatus == 0) { priv->last_command_was_rx = 0; if (priv->irq_test_done) { if (!registrationBad(dev)) IFDEBUG(ARLAN_DEBUG_INTERRUPT) printk(KERN_ERR "%s unknown interrupt(nop? regLost ?) reason tx %d rx %d ", dev->name, txStatus, rxStatus); } else { IFDEBUG(ARLAN_DEBUG_INTERRUPT) printk(KERN_INFO "%s irq $%d test OK \n", dev->name, dev->irq); } priv->interrupt_ack_requested = 0; goto ends; } if (txStatus != 0) { WRITESHMB(arlan->txStatus, 0x00); arlan_tx_done_interrupt(dev, txStatus); goto ends; } if (rxStatus == 1 || rxStatus == 2) { /* a packet waiting */ arlan_rx_interrupt(dev, rxStatus, rxOffset, pkt_len); goto ends; } if (rxStatus > 2 && rxStatus < 0xff) { priv->last_command_was_rx = 0; WRITESHMB(arlan->rxStatus, 0x00); printk(KERN_ERR "%s unknown rxStatus reason tx %d rx %d ", dev->name, txStatus, rxStatus); goto ends; } if (rxStatus == 0xff) { priv->last_command_was_rx = 0; WRITESHMB(arlan->rxStatus, 0x00); arlan_command(dev, ARLAN_COMMAND_RX); if (registrationBad(dev)) netif_device_detach(dev); if (!registrationBad(dev)) { priv->registrationLastSeen = jiffies; if (!netif_queue_stopped(dev) && !priv->under_reset && !priv->under_config) netif_wake_queue (dev); } goto ends; } ends: arlan_command_process(dev); rxStatus = READSHMB(arlan->rxStatus); txStatus = READSHMB(arlan->txStatus); rxOffset = READSHMS(arlan->rxOffset); pkt_len = READSHMS(arlan->rxLength); priv->irq_test_done = 1; interrupt_count++; } priv->interrupt_processing_active = 0; end_int_process: arlan_command_process(dev); ARLAN_DEBUG_EXIT("arlan_process_interrupt"); return; } static void arlan_interrupt(int irq, void *dev_id, struct pt_regs *regs) { struct net_device *dev = dev_id; struct arlan_private *priv = (struct arlan_private *) dev->priv; volatile struct arlan_shmem *arlan = priv->card; u_char rxStatus = READSHMB(arlan->rxStatus); u_char txStatus = READSHMB(arlan->txStatus); ARLAN_DEBUG_ENTRY("arlan_interrupt"); if (!rxStatus && !txStatus) priv->interrupt_ack_requested++; arlan_process_interrupt(dev); priv->irq_test_done = 1; ARLAN_DEBUG_EXIT("arlan_interrupt"); return; } static int arlan_close(struct net_device *dev) { struct arlan_private *priv = (struct arlan_private *) dev->priv; if (!dev) { printk(KERN_CRIT "arlan: No Device\n"); return 0; } priv = (struct arlan_private *) dev->priv; if (!priv) { printk(KERN_CRIT "arlan: No Device priv \n"); return 0; } ARLAN_DEBUG_ENTRY("arlan_close"); del_timer(&priv->timer); arlan_command(dev, ARLAN_COMMAND_POWERDOWN); IFDEBUG(ARLAN_DEBUG_STARTUP) printk(KERN_NOTICE "%s: Closing device\n", dev->name); priv->open_time = 0; netif_stop_queue(dev); free_irq(dev->irq, dev); ARLAN_DEBUG_EXIT("arlan_close"); return 0; } #ifdef ARLAN_DEBUGGING static long alignLong(volatile u_char * ptr) { long ret; memcpy_fromio(&ret, (void *) ptr, 4); return ret; } #endif /* * Get the current statistics. * This may be called with the card open or closed. */ static struct net_device_stats *arlan_statistics(struct net_device *dev) { struct arlan_private *priv = (struct arlan_private *) dev->priv; volatile struct arlan_shmem *arlan = ((struct arlan_private *) dev->priv)->card; ARLAN_DEBUG_ENTRY("arlan_statistics"); /* Update the statistics from the device registers. */ READSHM(priv->stats.collisions, arlan->numReTransmissions, u_int); READSHM(priv->stats.rx_crc_errors, arlan->numCRCErrors, u_int); READSHM(priv->stats.rx_dropped, arlan->numFramesDiscarded, u_int); READSHM(priv->stats.rx_fifo_errors, arlan->numRXBufferOverflows, u_int); READSHM(priv->stats.rx_frame_errors, arlan->numReceiveFramesLost, u_int); READSHM(priv->stats.rx_over_errors, arlan->numRXOverruns, u_int); READSHM(priv->stats.rx_packets, arlan->numDatagramsReceived, u_int); READSHM(priv->stats.tx_aborted_errors, arlan->numAbortErrors, u_int); READSHM(priv->stats.tx_carrier_errors, arlan->numStatusTimeouts, u_int); READSHM(priv->stats.tx_dropped, arlan->numDatagramsDiscarded, u_int); READSHM(priv->stats.tx_fifo_errors, arlan->numTXUnderruns, u_int); READSHM(priv->stats.tx_packets, arlan->numDatagramsTransmitted, u_int); READSHM(priv->stats.tx_window_errors, arlan->numHoldOffs, u_int); ARLAN_DEBUG_EXIT("arlan_statistics"); return &priv->stats; } static void arlan_set_multicast(struct net_device *dev) { volatile struct arlan_shmem *arlan = ((struct arlan_private *) dev->priv)->card; struct arlan_conf_stru *conf = ((struct arlan_private *) dev->priv)->Conf; int board_conf_needed = 0; ARLAN_DEBUG_ENTRY("arlan_set_multicast"); if (dev->flags & IFF_PROMISC) { unsigned char recMode; READSHM(recMode, arlan->receiveMode, u_char); conf->receiveMode = (ARLAN_RCV_PROMISC | ARLAN_RCV_CONTROL); if (conf->receiveMode != recMode) board_conf_needed = 1; } else { /* turn off promiscuous mode */ unsigned char recMode; READSHM(recMode, arlan->receiveMode, u_char); conf->receiveMode = ARLAN_RCV_CLEAN | ARLAN_RCV_CONTROL; if (conf->receiveMode != recMode) board_conf_needed = 1; } if (board_conf_needed) arlan_command(dev, ARLAN_COMMAND_CONF); ARLAN_DEBUG_EXIT("arlan_set_multicast"); } int __init arlan_probe(struct net_device *dev) { printk("Arlan driver %s\n", arlan_version); if (arlan_probe_everywhere(dev)) return -ENODEV; arlans_found++; if (arlans_found == 1) siteName = kmalloc(100, GFP_KERNEL); return 0; } #ifdef MODULE int init_module(void) { int i = 0; ARLAN_DEBUG_ENTRY("init_module"); if (channelSet != channelSetUNKNOWN || channelNumber != channelNumberUNKNOWN || systemId != systemIdUNKNOWN) { printk(KERN_WARNING "arlan: wrong module params for multiple devices\n "); return -1; } numDevices = arlan_find_devices(); if (numDevices == 0) { printk(KERN_ERR "arlan: no devices found \n"); return -1; } siteName = kmalloc(100, GFP_KERNEL); if(siteName==NULL) { printk(KERN_ERR "arlan: No memory for site name.\n"); return -1; } for (i = 0; i < numDevices && i < MAX_ARLANS; i++) { if (!arlan_allocate_device(i, NULL)) return -1; if (arlan_device[i] == NULL) { printk(KERN_CRIT "arlan: Not Enough memory \n"); return -1; } if (probe) arlan_probe_everywhere(arlan_device[i]); // arlan_command(arlan_device[i], ARLAN_COMMAND_POWERDOWN ); } printk(KERN_INFO "Arlan driver %s\n", arlan_version); ARLAN_DEBUG_EXIT("init_module"); return 0; } void cleanup_module(void) { int i = 0; ARLAN_DEBUG_ENTRY("cleanup_module"); IFDEBUG(ARLAN_DEBUG_SHUTDOWN) printk(KERN_INFO "arlan: unloading module\n"); for (i = 0; i < MAX_ARLANS; i++) { if (arlan_device[i]) { arlan_command(arlan_device[i], ARLAN_COMMAND_POWERDOWN ); // release_mem_region(virt_to_phys(arlan_device[i]->mem_start), 0x2000 ); unregister_netdev(arlan_device[i]); if (arlan_device[i]->priv) { if (((struct arlan_private *) arlan_device[i]->priv)->conf) kfree(((struct arlan_private *) arlan_device[i]->priv)->conf); kfree(arlan_device[i]); } arlan_device[i] = NULL; } } ARLAN_DEBUG_EXIT("cleanup_module"); } #endif MODULE_LICENSE("GPL");