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