Merge by hand (whitespace conflicts in libata.h)
[linux-2.6] / drivers / net / irda / au1k_ir.c
1 /*
2  * Alchemy Semi Au1000 IrDA driver
3  *
4  * Copyright 2001 MontaVista Software Inc.
5  * Author: MontaVista Software, Inc.
6  *              ppopov@mvista.com or source@mvista.com
7  *
8  *  This program is free software; you can distribute it and/or modify it
9  *  under the terms of the GNU General Public License (Version 2) as
10  *  published by the Free Software Foundation.
11  *
12  *  This program is distributed in the hope it will be useful, but WITHOUT
13  *  ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
14  *  FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
15  *  for more details.
16  *
17  *  You should have received a copy of the GNU General Public License along
18  *  with this program; if not, write to the Free Software Foundation, Inc.,
19  *  59 Temple Place - Suite 330, Boston MA 02111-1307, USA.
20  */
21 #include <linux/config.h>
22 #include <linux/module.h>
23 #include <linux/types.h>
24 #include <linux/init.h>
25 #include <linux/errno.h>
26 #include <linux/netdevice.h>
27 #include <linux/slab.h>
28 #include <linux/rtnetlink.h>
29 #include <linux/interrupt.h>
30 #include <linux/pm.h>
31 #include <linux/bitops.h>
32
33 #include <asm/irq.h>
34 #include <asm/io.h>
35 #include <asm/au1000.h>
36 #if defined(CONFIG_MIPS_PB1000) || defined(CONFIG_MIPS_PB1100)
37 #include <asm/pb1000.h>
38 #elif defined(CONFIG_MIPS_DB1000) || defined(CONFIG_MIPS_DB1100)
39 #include <asm/db1x00.h>
40 #else 
41 #error au1k_ir: unsupported board
42 #endif
43
44 #include <net/irda/irda.h>
45 #include <net/irda/irmod.h>
46 #include <net/irda/wrapper.h>
47 #include <net/irda/irda_device.h>
48 #include "au1000_ircc.h"
49
50 static int au1k_irda_net_init(struct net_device *);
51 static int au1k_irda_start(struct net_device *);
52 static int au1k_irda_stop(struct net_device *dev);
53 static int au1k_irda_hard_xmit(struct sk_buff *, struct net_device *);
54 static int au1k_irda_rx(struct net_device *);
55 static void au1k_irda_interrupt(int, void *, struct pt_regs *);
56 static void au1k_tx_timeout(struct net_device *);
57 static struct net_device_stats *au1k_irda_stats(struct net_device *);
58 static int au1k_irda_ioctl(struct net_device *, struct ifreq *, int);
59 static int au1k_irda_set_speed(struct net_device *dev, int speed);
60
61 static void *dma_alloc(size_t, dma_addr_t *);
62 static void dma_free(void *, size_t);
63
64 static int qos_mtt_bits = 0x07;  /* 1 ms or more */
65 static struct net_device *ir_devs[NUM_IR_IFF];
66 static char version[] __devinitdata =
67     "au1k_ircc:1.2 ppopov@mvista.com\n";
68
69 #define RUN_AT(x) (jiffies + (x))
70
71 #if defined(CONFIG_MIPS_DB1000) || defined(CONFIG_MIPS_DB1100)
72 static BCSR * const bcsr = (BCSR *)0xAE000000;
73 #endif
74
75 static DEFINE_SPINLOCK(ir_lock);
76
77 /*
78  * IrDA peripheral bug. You have to read the register
79  * twice to get the right value.
80  */
81 u32 read_ir_reg(u32 addr) 
82
83         readl(addr);
84         return readl(addr);
85 }
86
87
88 /*
89  * Buffer allocation/deallocation routines. The buffer descriptor returned
90  * has the virtual and dma address of a buffer suitable for 
91  * both, receive and transmit operations.
92  */
93 static db_dest_t *GetFreeDB(struct au1k_private *aup)
94 {
95         db_dest_t *pDB;
96         pDB = aup->pDBfree;
97
98         if (pDB) {
99                 aup->pDBfree = pDB->pnext;
100         }
101         return pDB;
102 }
103
104 static void ReleaseDB(struct au1k_private *aup, db_dest_t *pDB)
105 {
106         db_dest_t *pDBfree = aup->pDBfree;
107         if (pDBfree)
108                 pDBfree->pnext = pDB;
109         aup->pDBfree = pDB;
110 }
111
112
113 /*
114   DMA memory allocation, derived from pci_alloc_consistent.
115   However, the Au1000 data cache is coherent (when programmed
116   so), therefore we return KSEG0 address, not KSEG1.
117 */
118 static void *dma_alloc(size_t size, dma_addr_t * dma_handle)
119 {
120         void *ret;
121         int gfp = GFP_ATOMIC | GFP_DMA;
122
123         ret = (void *) __get_free_pages(gfp, get_order(size));
124
125         if (ret != NULL) {
126                 memset(ret, 0, size);
127                 *dma_handle = virt_to_bus(ret);
128                 ret = (void *)KSEG0ADDR(ret);
129         }
130         return ret;
131 }
132
133
134 static void dma_free(void *vaddr, size_t size)
135 {
136         vaddr = (void *)KSEG0ADDR(vaddr);
137         free_pages((unsigned long) vaddr, get_order(size));
138 }
139
140
141 static void 
142 setup_hw_rings(struct au1k_private *aup, u32 rx_base, u32 tx_base)
143 {
144         int i;
145         for (i=0; i<NUM_IR_DESC; i++) {
146                 aup->rx_ring[i] = (volatile ring_dest_t *) 
147                         (rx_base + sizeof(ring_dest_t)*i);
148         }
149         for (i=0; i<NUM_IR_DESC; i++) {
150                 aup->tx_ring[i] = (volatile ring_dest_t *) 
151                         (tx_base + sizeof(ring_dest_t)*i);
152         }
153 }
154
155 static int au1k_irda_init(void)
156 {
157         static unsigned version_printed = 0;
158         struct au1k_private *aup;
159         struct net_device *dev;
160         int err;
161
162         if (version_printed++ == 0) printk(version);
163
164         dev = alloc_irdadev(sizeof(struct au1k_private));
165         if (!dev)
166                 return -ENOMEM;
167
168         dev->irq = AU1000_IRDA_RX_INT; /* TX has its own interrupt */
169         err = au1k_irda_net_init(dev);
170         if (err)
171                 goto out;
172         err = register_netdev(dev);
173         if (err)
174                 goto out1;
175         ir_devs[0] = dev;
176         printk(KERN_INFO "IrDA: Registered device %s\n", dev->name);
177         return 0;
178
179 out1:
180         aup = netdev_priv(dev);
181         dma_free((void *)aup->db[0].vaddr,
182                 MAX_BUF_SIZE * 2*NUM_IR_DESC);
183         dma_free((void *)aup->rx_ring[0],
184                 2 * MAX_NUM_IR_DESC*(sizeof(ring_dest_t)));
185         kfree(aup->rx_buff.head);
186 out:
187         free_netdev(dev);
188         return err;
189 }
190
191 static int au1k_irda_init_iobuf(iobuff_t *io, int size)
192 {
193         io->head = kmalloc(size, GFP_KERNEL);
194         if (io->head != NULL) {
195                 io->truesize = size;
196                 io->in_frame = FALSE;
197                 io->state    = OUTSIDE_FRAME;
198                 io->data     = io->head;
199         }
200         return io->head ? 0 : -ENOMEM;
201 }
202
203 static int au1k_irda_net_init(struct net_device *dev)
204 {
205         struct au1k_private *aup = netdev_priv(dev);
206         int i, retval = 0, err;
207         db_dest_t *pDB, *pDBfree;
208         dma_addr_t temp;
209
210         err = au1k_irda_init_iobuf(&aup->rx_buff, 14384);
211         if (err)
212                 goto out1;
213
214         dev->open = au1k_irda_start;
215         dev->hard_start_xmit = au1k_irda_hard_xmit;
216         dev->stop = au1k_irda_stop;
217         dev->get_stats = au1k_irda_stats;
218         dev->do_ioctl = au1k_irda_ioctl;
219         dev->tx_timeout = au1k_tx_timeout;
220
221         irda_init_max_qos_capabilies(&aup->qos);
222
223         /* The only value we must override it the baudrate */
224         aup->qos.baud_rate.bits = IR_9600|IR_19200|IR_38400|IR_57600|
225                 IR_115200|IR_576000 |(IR_4000000 << 8);
226         
227         aup->qos.min_turn_time.bits = qos_mtt_bits;
228         irda_qos_bits_to_value(&aup->qos);
229
230         retval = -ENOMEM;
231
232         /* Tx ring follows rx ring + 512 bytes */
233         /* we need a 1k aligned buffer */
234         aup->rx_ring[0] = (ring_dest_t *)
235                 dma_alloc(2*MAX_NUM_IR_DESC*(sizeof(ring_dest_t)), &temp);
236         if (!aup->rx_ring[0])
237                 goto out2;
238
239         /* allocate the data buffers */
240         aup->db[0].vaddr = 
241                 (void *)dma_alloc(MAX_BUF_SIZE * 2*NUM_IR_DESC, &temp);
242         if (!aup->db[0].vaddr)
243                 goto out3;
244
245         setup_hw_rings(aup, (u32)aup->rx_ring[0], (u32)aup->rx_ring[0] + 512);
246
247         pDBfree = NULL;
248         pDB = aup->db;
249         for (i=0; i<(2*NUM_IR_DESC); i++) {
250                 pDB->pnext = pDBfree;
251                 pDBfree = pDB;
252                 pDB->vaddr = 
253                         (u32 *)((unsigned)aup->db[0].vaddr + MAX_BUF_SIZE*i);
254                 pDB->dma_addr = (dma_addr_t)virt_to_bus(pDB->vaddr);
255                 pDB++;
256         }
257         aup->pDBfree = pDBfree;
258
259         /* attach a data buffer to each descriptor */
260         for (i=0; i<NUM_IR_DESC; i++) {
261                 pDB = GetFreeDB(aup);
262                 if (!pDB) goto out;
263                 aup->rx_ring[i]->addr_0 = (u8)(pDB->dma_addr & 0xff);
264                 aup->rx_ring[i]->addr_1 = (u8)((pDB->dma_addr>>8) & 0xff);
265                 aup->rx_ring[i]->addr_2 = (u8)((pDB->dma_addr>>16) & 0xff);
266                 aup->rx_ring[i]->addr_3 = (u8)((pDB->dma_addr>>24) & 0xff);
267                 aup->rx_db_inuse[i] = pDB;
268         }
269         for (i=0; i<NUM_IR_DESC; i++) {
270                 pDB = GetFreeDB(aup);
271                 if (!pDB) goto out;
272                 aup->tx_ring[i]->addr_0 = (u8)(pDB->dma_addr & 0xff);
273                 aup->tx_ring[i]->addr_1 = (u8)((pDB->dma_addr>>8) & 0xff);
274                 aup->tx_ring[i]->addr_2 = (u8)((pDB->dma_addr>>16) & 0xff);
275                 aup->tx_ring[i]->addr_3 = (u8)((pDB->dma_addr>>24) & 0xff);
276                 aup->tx_ring[i]->count_0 = 0;
277                 aup->tx_ring[i]->count_1 = 0;
278                 aup->tx_ring[i]->flags = 0;
279                 aup->tx_db_inuse[i] = pDB;
280         }
281
282 #if defined(CONFIG_MIPS_DB1000) || defined(CONFIG_MIPS_DB1100)
283         /* power on */
284         bcsr->resets &= ~BCSR_RESETS_IRDA_MODE_MASK;
285         bcsr->resets |= BCSR_RESETS_IRDA_MODE_FULL;
286         au_sync();
287 #endif
288
289         return 0;
290
291 out3:
292         dma_free((void *)aup->rx_ring[0],
293                 2 * MAX_NUM_IR_DESC*(sizeof(ring_dest_t)));
294 out2:
295         kfree(aup->rx_buff.head);
296 out1:
297         printk(KERN_ERR "au1k_init_module failed.  Returns %d\n", retval);
298         return retval;
299 }
300
301
302 static int au1k_init(struct net_device *dev)
303 {
304         struct au1k_private *aup = netdev_priv(dev);
305         int i;
306         u32 control;
307         u32 ring_address;
308
309         /* bring the device out of reset */
310         control = 0xe; /* coherent, clock enable, one half system clock */
311                           
312 #ifndef CONFIG_CPU_LITTLE_ENDIAN
313         control |= 1;
314 #endif
315         aup->tx_head = 0;
316         aup->tx_tail = 0;
317         aup->rx_head = 0;
318
319         for (i=0; i<NUM_IR_DESC; i++) {
320                 aup->rx_ring[i]->flags = AU_OWN;
321         }
322
323         writel(control, IR_INTERFACE_CONFIG);
324         au_sync_delay(10);
325
326         writel(read_ir_reg(IR_ENABLE) & ~0x8000, IR_ENABLE); /* disable PHY */
327         au_sync_delay(1);
328
329         writel(MAX_BUF_SIZE, IR_MAX_PKT_LEN);
330
331         ring_address = (u32)virt_to_phys((void *)aup->rx_ring[0]);
332         writel(ring_address >> 26, IR_RING_BASE_ADDR_H);
333         writel((ring_address >> 10) & 0xffff, IR_RING_BASE_ADDR_L);
334
335         writel(RING_SIZE_64<<8 | RING_SIZE_64<<12, IR_RING_SIZE);
336
337         writel(1<<2 | IR_ONE_PIN, IR_CONFIG_2); /* 48MHz */
338         writel(0, IR_RING_ADDR_CMPR);
339
340         au1k_irda_set_speed(dev, 9600);
341         return 0;
342 }
343
344 static int au1k_irda_start(struct net_device *dev)
345 {
346         int retval;
347         char hwname[32];
348         struct au1k_private *aup = netdev_priv(dev);
349
350         if ((retval = au1k_init(dev))) {
351                 printk(KERN_ERR "%s: error in au1k_init\n", dev->name);
352                 return retval;
353         }
354
355         if ((retval = request_irq(AU1000_IRDA_TX_INT, &au1k_irda_interrupt, 
356                                         0, dev->name, dev))) {
357                 printk(KERN_ERR "%s: unable to get IRQ %d\n", 
358                                 dev->name, dev->irq);
359                 return retval;
360         }
361         if ((retval = request_irq(AU1000_IRDA_RX_INT, &au1k_irda_interrupt, 
362                                         0, dev->name, dev))) {
363                 free_irq(AU1000_IRDA_TX_INT, dev);
364                 printk(KERN_ERR "%s: unable to get IRQ %d\n", 
365                                 dev->name, dev->irq);
366                 return retval;
367         }
368
369         /* Give self a hardware name */
370         sprintf(hwname, "Au1000 SIR/FIR");
371         aup->irlap = irlap_open(dev, &aup->qos, hwname);
372         netif_start_queue(dev);
373
374         writel(read_ir_reg(IR_CONFIG_2) | 1<<8, IR_CONFIG_2); /* int enable */
375
376         aup->timer.expires = RUN_AT((3*HZ)); 
377         aup->timer.data = (unsigned long)dev;
378         return 0;
379 }
380
381 static int au1k_irda_stop(struct net_device *dev)
382 {
383         struct au1k_private *aup = netdev_priv(dev);
384
385         /* disable interrupts */
386         writel(read_ir_reg(IR_CONFIG_2) & ~(1<<8), IR_CONFIG_2);
387         writel(0, IR_CONFIG_1); 
388         writel(0, IR_INTERFACE_CONFIG); /* disable clock */
389         au_sync();
390
391         if (aup->irlap) {
392                 irlap_close(aup->irlap);
393                 aup->irlap = NULL;
394         }
395
396         netif_stop_queue(dev);
397         del_timer(&aup->timer);
398
399         /* disable the interrupt */
400         free_irq(AU1000_IRDA_TX_INT, dev);
401         free_irq(AU1000_IRDA_RX_INT, dev);
402         return 0;
403 }
404
405 static void __exit au1k_irda_exit(void)
406 {
407         struct net_device *dev = ir_devs[0];
408         struct au1k_private *aup = netdev_priv(dev);
409
410         unregister_netdev(dev);
411
412         dma_free((void *)aup->db[0].vaddr,
413                 MAX_BUF_SIZE * 2*NUM_IR_DESC);
414         dma_free((void *)aup->rx_ring[0],
415                 2 * MAX_NUM_IR_DESC*(sizeof(ring_dest_t)));
416         kfree(aup->rx_buff.head);
417         free_netdev(dev);
418 }
419
420
421 static inline void 
422 update_tx_stats(struct net_device *dev, u32 status, u32 pkt_len)
423 {
424         struct au1k_private *aup = netdev_priv(dev);
425         struct net_device_stats *ps = &aup->stats;
426
427         ps->tx_packets++;
428         ps->tx_bytes += pkt_len;
429
430         if (status & IR_TX_ERROR) {
431                 ps->tx_errors++;
432                 ps->tx_aborted_errors++;
433         }
434 }
435
436
437 static void au1k_tx_ack(struct net_device *dev)
438 {
439         struct au1k_private *aup = netdev_priv(dev);
440         volatile ring_dest_t *ptxd;
441
442         ptxd = aup->tx_ring[aup->tx_tail];
443         while (!(ptxd->flags & AU_OWN) && (aup->tx_tail != aup->tx_head)) {
444                 update_tx_stats(dev, ptxd->flags, 
445                                 ptxd->count_1<<8 | ptxd->count_0);
446                 ptxd->count_0 = 0;
447                 ptxd->count_1 = 0;
448                 au_sync();
449
450                 aup->tx_tail = (aup->tx_tail + 1) & (NUM_IR_DESC - 1);
451                 ptxd = aup->tx_ring[aup->tx_tail];
452
453                 if (aup->tx_full) {
454                         aup->tx_full = 0;
455                         netif_wake_queue(dev);
456                 }
457         }
458
459         if (aup->tx_tail == aup->tx_head) {
460                 if (aup->newspeed) {
461                         au1k_irda_set_speed(dev, aup->newspeed);
462                         aup->newspeed = 0;
463                 }
464                 else {
465                         writel(read_ir_reg(IR_CONFIG_1) & ~IR_TX_ENABLE, 
466                                         IR_CONFIG_1); 
467                         au_sync();
468                         writel(read_ir_reg(IR_CONFIG_1) | IR_RX_ENABLE, 
469                                         IR_CONFIG_1); 
470                         writel(0, IR_RING_PROMPT);
471                         au_sync();
472                 }
473         }
474 }
475
476
477 /*
478  * Au1000 transmit routine.
479  */
480 static int au1k_irda_hard_xmit(struct sk_buff *skb, struct net_device *dev)
481 {
482         struct au1k_private *aup = netdev_priv(dev);
483         int speed = irda_get_next_speed(skb);
484         volatile ring_dest_t *ptxd;
485         u32 len;
486
487         u32 flags;
488         db_dest_t *pDB;
489
490         if (speed != aup->speed && speed != -1) {
491                 aup->newspeed = speed;
492         }
493
494         if ((skb->len == 0) && (aup->newspeed)) {
495                 if (aup->tx_tail == aup->tx_head) {
496                         au1k_irda_set_speed(dev, speed);
497                         aup->newspeed = 0;
498                 }
499                 dev_kfree_skb(skb);
500                 return 0;
501         }
502
503         ptxd = aup->tx_ring[aup->tx_head];
504         flags = ptxd->flags;
505
506         if (flags & AU_OWN) {
507                 printk(KERN_DEBUG "%s: tx_full\n", dev->name);
508                 netif_stop_queue(dev);
509                 aup->tx_full = 1;
510                 return 1;
511         }
512         else if (((aup->tx_head + 1) & (NUM_IR_DESC - 1)) == aup->tx_tail) {
513                 printk(KERN_DEBUG "%s: tx_full\n", dev->name);
514                 netif_stop_queue(dev);
515                 aup->tx_full = 1;
516                 return 1;
517         }
518
519         pDB = aup->tx_db_inuse[aup->tx_head];
520
521 #if 0
522         if (read_ir_reg(IR_RX_BYTE_CNT) != 0) {
523                 printk("tx warning: rx byte cnt %x\n", 
524                                 read_ir_reg(IR_RX_BYTE_CNT));
525         }
526 #endif
527         
528         if (aup->speed == 4000000) {
529                 /* FIR */
530                 memcpy((void *)pDB->vaddr, skb->data, skb->len);
531                 ptxd->count_0 = skb->len & 0xff;
532                 ptxd->count_1 = (skb->len >> 8) & 0xff;
533
534         }
535         else {
536                 /* SIR */
537                 len = async_wrap_skb(skb, (u8 *)pDB->vaddr, MAX_BUF_SIZE);
538                 ptxd->count_0 = len & 0xff;
539                 ptxd->count_1 = (len >> 8) & 0xff;
540                 ptxd->flags |= IR_DIS_CRC;
541                 au_writel(au_readl(0xae00000c) & ~(1<<13), 0xae00000c);
542         }
543         ptxd->flags |= AU_OWN;
544         au_sync();
545
546         writel(read_ir_reg(IR_CONFIG_1) | IR_TX_ENABLE, IR_CONFIG_1); 
547         writel(0, IR_RING_PROMPT);
548         au_sync();
549
550         dev_kfree_skb(skb);
551         aup->tx_head = (aup->tx_head + 1) & (NUM_IR_DESC - 1);
552         dev->trans_start = jiffies;
553         return 0;
554 }
555
556
557 static inline void 
558 update_rx_stats(struct net_device *dev, u32 status, u32 count)
559 {
560         struct au1k_private *aup = netdev_priv(dev);
561         struct net_device_stats *ps = &aup->stats;
562
563         ps->rx_packets++;
564
565         if (status & IR_RX_ERROR) {
566                 ps->rx_errors++;
567                 if (status & (IR_PHY_ERROR|IR_FIFO_OVER))
568                         ps->rx_missed_errors++;
569                 if (status & IR_MAX_LEN)
570                         ps->rx_length_errors++;
571                 if (status & IR_CRC_ERROR)
572                         ps->rx_crc_errors++;
573         }
574         else 
575                 ps->rx_bytes += count;
576 }
577
578 /*
579  * Au1000 receive routine.
580  */
581 static int au1k_irda_rx(struct net_device *dev)
582 {
583         struct au1k_private *aup = netdev_priv(dev);
584         struct sk_buff *skb;
585         volatile ring_dest_t *prxd;
586         u32 flags, count;
587         db_dest_t *pDB;
588
589         prxd = aup->rx_ring[aup->rx_head];
590         flags = prxd->flags;
591
592         while (!(flags & AU_OWN))  {
593                 pDB = aup->rx_db_inuse[aup->rx_head];
594                 count = prxd->count_1<<8 | prxd->count_0;
595                 if (!(flags & IR_RX_ERROR))  {
596                         /* good frame */
597                         update_rx_stats(dev, flags, count);
598                         skb=alloc_skb(count+1,GFP_ATOMIC);
599                         if (skb == NULL) {
600                                 aup->stats.rx_dropped++;
601                                 continue;
602                         }
603                         skb_reserve(skb, 1);
604                         if (aup->speed == 4000000)
605                                 skb_put(skb, count);
606                         else
607                                 skb_put(skb, count-2);
608                         memcpy(skb->data, (void *)pDB->vaddr, count-2);
609                         skb->dev = dev;
610                         skb->mac.raw = skb->data;
611                         skb->protocol = htons(ETH_P_IRDA);
612                         netif_rx(skb);
613                         prxd->count_0 = 0;
614                         prxd->count_1 = 0;
615                 }
616                 prxd->flags |= AU_OWN;
617                 aup->rx_head = (aup->rx_head + 1) & (NUM_IR_DESC - 1);
618                 writel(0, IR_RING_PROMPT);
619                 au_sync();
620
621                 /* next descriptor */
622                 prxd = aup->rx_ring[aup->rx_head];
623                 flags = prxd->flags;
624                 dev->last_rx = jiffies;
625
626         }
627         return 0;
628 }
629
630
631 void au1k_irda_interrupt(int irq, void *dev_id, struct pt_regs *regs)
632 {
633         struct net_device *dev = (struct net_device *) dev_id;
634
635         if (dev == NULL) {
636                 printk(KERN_ERR "%s: isr: null dev ptr\n", dev->name);
637                 return;
638         }
639
640         writel(0, IR_INT_CLEAR); /* ack irda interrupts */
641
642         au1k_irda_rx(dev);
643         au1k_tx_ack(dev);
644 }
645
646
647 /*
648  * The Tx ring has been full longer than the watchdog timeout
649  * value. The transmitter must be hung?
650  */
651 static void au1k_tx_timeout(struct net_device *dev)
652 {
653         u32 speed;
654         struct au1k_private *aup = netdev_priv(dev);
655
656         printk(KERN_ERR "%s: tx timeout\n", dev->name);
657         speed = aup->speed;
658         aup->speed = 0;
659         au1k_irda_set_speed(dev, speed);
660         aup->tx_full = 0;
661         netif_wake_queue(dev);
662 }
663
664
665 /*
666  * Set the IrDA communications speed.
667  */
668 static int 
669 au1k_irda_set_speed(struct net_device *dev, int speed)
670 {
671         unsigned long flags;
672         struct au1k_private *aup = netdev_priv(dev);
673         u32 control;
674         int ret = 0, timeout = 10, i;
675         volatile ring_dest_t *ptxd;
676 #if defined(CONFIG_MIPS_DB1000) || defined(CONFIG_MIPS_DB1100)
677         unsigned long irda_resets;
678 #endif
679
680         if (speed == aup->speed)
681                 return ret;
682
683         spin_lock_irqsave(&ir_lock, flags);
684
685         /* disable PHY first */
686         writel(read_ir_reg(IR_ENABLE) & ~0x8000, IR_ENABLE);
687
688         /* disable RX/TX */
689         writel(read_ir_reg(IR_CONFIG_1) & ~(IR_RX_ENABLE|IR_TX_ENABLE), 
690                         IR_CONFIG_1);
691         au_sync_delay(1);
692         while (read_ir_reg(IR_ENABLE) & (IR_RX_STATUS | IR_TX_STATUS)) {
693                 mdelay(1);
694                 if (!timeout--) {
695                         printk(KERN_ERR "%s: rx/tx disable timeout\n",
696                                         dev->name);
697                         break;
698                 }
699         }
700
701         /* disable DMA */
702         writel(read_ir_reg(IR_CONFIG_1) & ~IR_DMA_ENABLE, IR_CONFIG_1);
703         au_sync_delay(1);
704
705         /* 
706          *  After we disable tx/rx. the index pointers
707          * go back to zero.
708          */
709         aup->tx_head = aup->tx_tail = aup->rx_head = 0;
710         for (i=0; i<NUM_IR_DESC; i++) {
711                 ptxd = aup->tx_ring[i];
712                 ptxd->flags = 0;
713                 ptxd->count_0 = 0;
714                 ptxd->count_1 = 0;
715         }
716
717         for (i=0; i<NUM_IR_DESC; i++) {
718                 ptxd = aup->rx_ring[i];
719                 ptxd->count_0 = 0;
720                 ptxd->count_1 = 0;
721                 ptxd->flags = AU_OWN;
722         }
723
724         if (speed == 4000000) {
725 #if defined(CONFIG_MIPS_DB1000) || defined(CONFIG_MIPS_DB1100)
726                 bcsr->resets |= BCSR_RESETS_FIR_SEL;
727 #else /* Pb1000 and Pb1100 */
728                 writel(1<<13, CPLD_AUX1);
729 #endif
730         }
731         else {
732 #if defined(CONFIG_MIPS_DB1000) || defined(CONFIG_MIPS_DB1100)
733                 bcsr->resets &= ~BCSR_RESETS_FIR_SEL;
734 #else /* Pb1000 and Pb1100 */
735                 writel(readl(CPLD_AUX1) & ~(1<<13), CPLD_AUX1);
736 #endif
737         }
738
739         switch (speed) {
740         case 9600:      
741                 writel(11<<10 | 12<<5, IR_WRITE_PHY_CONFIG); 
742                 writel(IR_SIR_MODE, IR_CONFIG_1); 
743                 break;
744         case 19200:     
745                 writel(5<<10 | 12<<5, IR_WRITE_PHY_CONFIG); 
746                 writel(IR_SIR_MODE, IR_CONFIG_1); 
747                 break;
748         case 38400:
749                 writel(2<<10 | 12<<5, IR_WRITE_PHY_CONFIG); 
750                 writel(IR_SIR_MODE, IR_CONFIG_1); 
751                 break;
752         case 57600:     
753                 writel(1<<10 | 12<<5, IR_WRITE_PHY_CONFIG); 
754                 writel(IR_SIR_MODE, IR_CONFIG_1); 
755                 break;
756         case 115200: 
757                 writel(12<<5, IR_WRITE_PHY_CONFIG); 
758                 writel(IR_SIR_MODE, IR_CONFIG_1); 
759                 break;
760         case 4000000:
761                 writel(0xF, IR_WRITE_PHY_CONFIG);
762                 writel(IR_FIR|IR_DMA_ENABLE|IR_RX_ENABLE, IR_CONFIG_1); 
763                 break;
764         default:
765                 printk(KERN_ERR "%s unsupported speed %x\n", dev->name, speed);
766                 ret = -EINVAL;
767                 break;
768         }
769
770         aup->speed = speed;
771         writel(read_ir_reg(IR_ENABLE) | 0x8000, IR_ENABLE);
772         au_sync();
773
774         control = read_ir_reg(IR_ENABLE);
775         writel(0, IR_RING_PROMPT);
776         au_sync();
777
778         if (control & (1<<14)) {
779                 printk(KERN_ERR "%s: configuration error\n", dev->name);
780         }
781         else {
782                 if (control & (1<<11))
783                         printk(KERN_DEBUG "%s Valid SIR config\n", dev->name);
784                 if (control & (1<<12))
785                         printk(KERN_DEBUG "%s Valid MIR config\n", dev->name);
786                 if (control & (1<<13))
787                         printk(KERN_DEBUG "%s Valid FIR config\n", dev->name);
788                 if (control & (1<<10))
789                         printk(KERN_DEBUG "%s TX enabled\n", dev->name);
790                 if (control & (1<<9))
791                         printk(KERN_DEBUG "%s RX enabled\n", dev->name);
792         }
793
794         spin_unlock_irqrestore(&ir_lock, flags);
795         return ret;
796 }
797
798 static int 
799 au1k_irda_ioctl(struct net_device *dev, struct ifreq *ifreq, int cmd)
800 {
801         struct if_irda_req *rq = (struct if_irda_req *)ifreq;
802         struct au1k_private *aup = netdev_priv(dev);
803         int ret = -EOPNOTSUPP;
804
805         switch (cmd) {
806         case SIOCSBANDWIDTH:
807                 if (capable(CAP_NET_ADMIN)) {
808                         /*
809                          * We are unable to set the speed if the
810                          * device is not running.
811                          */
812                         if (aup->open)
813                                 ret = au1k_irda_set_speed(dev,
814                                                 rq->ifr_baudrate);
815                         else {
816                                 printk(KERN_ERR "%s ioctl: !netif_running\n",
817                                                 dev->name);
818                                 ret = 0;
819                         }
820                 }
821                 break;
822
823         case SIOCSMEDIABUSY:
824                 ret = -EPERM;
825                 if (capable(CAP_NET_ADMIN)) {
826                         irda_device_set_media_busy(dev, TRUE);
827                         ret = 0;
828                 }
829                 break;
830
831         case SIOCGRECEIVING:
832                 rq->ifr_receiving = 0;
833                 break;
834         default:
835                 break;
836         }
837         return ret;
838 }
839
840
841 static struct net_device_stats *au1k_irda_stats(struct net_device *dev)
842 {
843         struct au1k_private *aup = netdev_priv(dev);
844         return &aup->stats;
845 }
846
847 MODULE_AUTHOR("Pete Popov <ppopov@mvista.com>");
848 MODULE_DESCRIPTION("Au1000 IrDA Device Driver");
849
850 module_init(au1k_irda_init);
851 module_exit(au1k_irda_exit);