Merge branch 'spi/merge' of git://git.secretlab.ca/git/linux-2.6
[pandora-kernel.git] / drivers / net / can / at91_can.c
1 /*
2  * at91_can.c - CAN network driver for AT91 SoC CAN controller
3  *
4  * (C) 2007 by Hans J. Koch <hjk@hansjkoch.de>
5  * (C) 2008, 2009, 2010, 2011 by Marc Kleine-Budde <kernel@pengutronix.de>
6  *
7  * This software may be distributed under the terms of the GNU General
8  * Public License ("GPL") version 2 as distributed in the 'COPYING'
9  * file from the main directory of the linux kernel source.
10  *
11  * Send feedback to <socketcan-users@lists.berlios.de>
12  *
13  *
14  * Your platform definition file should specify something like:
15  *
16  * static struct at91_can_data ek_can_data = {
17  *      transceiver_switch = sam9263ek_transceiver_switch,
18  * };
19  *
20  * at91_add_device_can(&ek_can_data);
21  *
22  */
23
24 #include <linux/clk.h>
25 #include <linux/errno.h>
26 #include <linux/if_arp.h>
27 #include <linux/init.h>
28 #include <linux/interrupt.h>
29 #include <linux/kernel.h>
30 #include <linux/module.h>
31 #include <linux/netdevice.h>
32 #include <linux/platform_device.h>
33 #include <linux/rtnetlink.h>
34 #include <linux/skbuff.h>
35 #include <linux/spinlock.h>
36 #include <linux/string.h>
37 #include <linux/types.h>
38
39 #include <linux/can/dev.h>
40 #include <linux/can/error.h>
41
42 #include <mach/board.h>
43
44 #define AT91_NAPI_WEIGHT        11
45
46 /*
47  * RX/TX Mailbox split
48  * don't dare to touch
49  */
50 #define AT91_MB_RX_NUM          11
51 #define AT91_MB_TX_SHIFT        2
52
53 #define AT91_MB_RX_FIRST        1
54 #define AT91_MB_RX_LAST         (AT91_MB_RX_FIRST + AT91_MB_RX_NUM - 1)
55
56 #define AT91_MB_RX_MASK(i)      ((1 << (i)) - 1)
57 #define AT91_MB_RX_SPLIT        8
58 #define AT91_MB_RX_LOW_LAST     (AT91_MB_RX_SPLIT - 1)
59 #define AT91_MB_RX_LOW_MASK     (AT91_MB_RX_MASK(AT91_MB_RX_SPLIT) & \
60                                  ~AT91_MB_RX_MASK(AT91_MB_RX_FIRST))
61
62 #define AT91_MB_TX_NUM          (1 << AT91_MB_TX_SHIFT)
63 #define AT91_MB_TX_FIRST        (AT91_MB_RX_LAST + 1)
64 #define AT91_MB_TX_LAST         (AT91_MB_TX_FIRST + AT91_MB_TX_NUM - 1)
65
66 #define AT91_NEXT_PRIO_SHIFT    (AT91_MB_TX_SHIFT)
67 #define AT91_NEXT_PRIO_MASK     (0xf << AT91_MB_TX_SHIFT)
68 #define AT91_NEXT_MB_MASK       (AT91_MB_TX_NUM - 1)
69 #define AT91_NEXT_MASK          ((AT91_MB_TX_NUM - 1) | AT91_NEXT_PRIO_MASK)
70
71 /* Common registers */
72 enum at91_reg {
73         AT91_MR         = 0x000,
74         AT91_IER        = 0x004,
75         AT91_IDR        = 0x008,
76         AT91_IMR        = 0x00C,
77         AT91_SR         = 0x010,
78         AT91_BR         = 0x014,
79         AT91_TIM        = 0x018,
80         AT91_TIMESTP    = 0x01C,
81         AT91_ECR        = 0x020,
82         AT91_TCR        = 0x024,
83         AT91_ACR        = 0x028,
84 };
85
86 /* Mailbox registers (0 <= i <= 15) */
87 #define AT91_MMR(i)             (enum at91_reg)(0x200 + ((i) * 0x20))
88 #define AT91_MAM(i)             (enum at91_reg)(0x204 + ((i) * 0x20))
89 #define AT91_MID(i)             (enum at91_reg)(0x208 + ((i) * 0x20))
90 #define AT91_MFID(i)            (enum at91_reg)(0x20C + ((i) * 0x20))
91 #define AT91_MSR(i)             (enum at91_reg)(0x210 + ((i) * 0x20))
92 #define AT91_MDL(i)             (enum at91_reg)(0x214 + ((i) * 0x20))
93 #define AT91_MDH(i)             (enum at91_reg)(0x218 + ((i) * 0x20))
94 #define AT91_MCR(i)             (enum at91_reg)(0x21C + ((i) * 0x20))
95
96 /* Register bits */
97 #define AT91_MR_CANEN           BIT(0)
98 #define AT91_MR_LPM             BIT(1)
99 #define AT91_MR_ABM             BIT(2)
100 #define AT91_MR_OVL             BIT(3)
101 #define AT91_MR_TEOF            BIT(4)
102 #define AT91_MR_TTM             BIT(5)
103 #define AT91_MR_TIMFRZ          BIT(6)
104 #define AT91_MR_DRPT            BIT(7)
105
106 #define AT91_SR_RBSY            BIT(29)
107
108 #define AT91_MMR_PRIO_SHIFT     (16)
109
110 #define AT91_MID_MIDE           BIT(29)
111
112 #define AT91_MSR_MRTR           BIT(20)
113 #define AT91_MSR_MABT           BIT(22)
114 #define AT91_MSR_MRDY           BIT(23)
115 #define AT91_MSR_MMI            BIT(24)
116
117 #define AT91_MCR_MRTR           BIT(20)
118 #define AT91_MCR_MTCR           BIT(23)
119
120 /* Mailbox Modes */
121 enum at91_mb_mode {
122         AT91_MB_MODE_DISABLED   = 0,
123         AT91_MB_MODE_RX         = 1,
124         AT91_MB_MODE_RX_OVRWR   = 2,
125         AT91_MB_MODE_TX         = 3,
126         AT91_MB_MODE_CONSUMER   = 4,
127         AT91_MB_MODE_PRODUCER   = 5,
128 };
129
130 /* Interrupt mask bits */
131 #define AT91_IRQ_MB_RX          ((1 << (AT91_MB_RX_LAST + 1)) \
132                                  - (1 << AT91_MB_RX_FIRST))
133 #define AT91_IRQ_MB_TX          ((1 << (AT91_MB_TX_LAST + 1)) \
134                                  - (1 << AT91_MB_TX_FIRST))
135 #define AT91_IRQ_MB_ALL         (AT91_IRQ_MB_RX | AT91_IRQ_MB_TX)
136
137 #define AT91_IRQ_ERRA           (1 << 16)
138 #define AT91_IRQ_WARN           (1 << 17)
139 #define AT91_IRQ_ERRP           (1 << 18)
140 #define AT91_IRQ_BOFF           (1 << 19)
141 #define AT91_IRQ_SLEEP          (1 << 20)
142 #define AT91_IRQ_WAKEUP         (1 << 21)
143 #define AT91_IRQ_TOVF           (1 << 22)
144 #define AT91_IRQ_TSTP           (1 << 23)
145 #define AT91_IRQ_CERR           (1 << 24)
146 #define AT91_IRQ_SERR           (1 << 25)
147 #define AT91_IRQ_AERR           (1 << 26)
148 #define AT91_IRQ_FERR           (1 << 27)
149 #define AT91_IRQ_BERR           (1 << 28)
150
151 #define AT91_IRQ_ERR_ALL        (0x1fff0000)
152 #define AT91_IRQ_ERR_FRAME      (AT91_IRQ_CERR | AT91_IRQ_SERR | \
153                                  AT91_IRQ_AERR | AT91_IRQ_FERR | AT91_IRQ_BERR)
154 #define AT91_IRQ_ERR_LINE       (AT91_IRQ_ERRA | AT91_IRQ_WARN | \
155                                  AT91_IRQ_ERRP | AT91_IRQ_BOFF)
156
157 #define AT91_IRQ_ALL            (0x1fffffff)
158
159 struct at91_priv {
160         struct can_priv         can;       /* must be the first member! */
161         struct net_device       *dev;
162         struct napi_struct      napi;
163
164         void __iomem            *reg_base;
165
166         u32                     reg_sr;
167         unsigned int            tx_next;
168         unsigned int            tx_echo;
169         unsigned int            rx_next;
170
171         struct clk              *clk;
172         struct at91_can_data    *pdata;
173
174         canid_t                 mb0_id;
175 };
176
177 static struct can_bittiming_const at91_bittiming_const = {
178         .name           = KBUILD_MODNAME,
179         .tseg1_min      = 4,
180         .tseg1_max      = 16,
181         .tseg2_min      = 2,
182         .tseg2_max      = 8,
183         .sjw_max        = 4,
184         .brp_min        = 2,
185         .brp_max        = 128,
186         .brp_inc        = 1,
187 };
188
189 static inline int get_tx_next_mb(const struct at91_priv *priv)
190 {
191         return (priv->tx_next & AT91_NEXT_MB_MASK) + AT91_MB_TX_FIRST;
192 }
193
194 static inline int get_tx_next_prio(const struct at91_priv *priv)
195 {
196         return (priv->tx_next >> AT91_NEXT_PRIO_SHIFT) & 0xf;
197 }
198
199 static inline int get_tx_echo_mb(const struct at91_priv *priv)
200 {
201         return (priv->tx_echo & AT91_NEXT_MB_MASK) + AT91_MB_TX_FIRST;
202 }
203
204 static inline u32 at91_read(const struct at91_priv *priv, enum at91_reg reg)
205 {
206         return __raw_readl(priv->reg_base + reg);
207 }
208
209 static inline void at91_write(const struct at91_priv *priv, enum at91_reg reg,
210                 u32 value)
211 {
212         __raw_writel(value, priv->reg_base + reg);
213 }
214
215 static inline void set_mb_mode_prio(const struct at91_priv *priv,
216                 unsigned int mb, enum at91_mb_mode mode, int prio)
217 {
218         at91_write(priv, AT91_MMR(mb), (mode << 24) | (prio << 16));
219 }
220
221 static inline void set_mb_mode(const struct at91_priv *priv, unsigned int mb,
222                 enum at91_mb_mode mode)
223 {
224         set_mb_mode_prio(priv, mb, mode, 0);
225 }
226
227 static inline u32 at91_can_id_to_reg_mid(canid_t can_id)
228 {
229         u32 reg_mid;
230
231         if (can_id & CAN_EFF_FLAG)
232                 reg_mid = (can_id & CAN_EFF_MASK) | AT91_MID_MIDE;
233         else
234                 reg_mid = (can_id & CAN_SFF_MASK) << 18;
235
236         return reg_mid;
237 }
238
239 /*
240  * Swtich transceiver on or off
241  */
242 static void at91_transceiver_switch(const struct at91_priv *priv, int on)
243 {
244         if (priv->pdata && priv->pdata->transceiver_switch)
245                 priv->pdata->transceiver_switch(on);
246 }
247
248 static void at91_setup_mailboxes(struct net_device *dev)
249 {
250         struct at91_priv *priv = netdev_priv(dev);
251         unsigned int i;
252         u32 reg_mid;
253
254         /*
255          * Due to a chip bug (errata 50.2.6.3 & 50.3.5.3) the first
256          * mailbox is disabled. The next 11 mailboxes are used as a
257          * reception FIFO. The last mailbox is configured with
258          * overwrite option. The overwrite flag indicates a FIFO
259          * overflow.
260          */
261         reg_mid = at91_can_id_to_reg_mid(priv->mb0_id);
262         for (i = 0; i < AT91_MB_RX_FIRST; i++) {
263                 set_mb_mode(priv, i, AT91_MB_MODE_DISABLED);
264                 at91_write(priv, AT91_MID(i), reg_mid);
265                 at91_write(priv, AT91_MCR(i), 0x0);     /* clear dlc */
266         }
267
268         for (i = AT91_MB_RX_FIRST; i < AT91_MB_RX_LAST; i++)
269                 set_mb_mode(priv, i, AT91_MB_MODE_RX);
270         set_mb_mode(priv, AT91_MB_RX_LAST, AT91_MB_MODE_RX_OVRWR);
271
272         /* reset acceptance mask and id register */
273         for (i = AT91_MB_RX_FIRST; i <= AT91_MB_RX_LAST; i++) {
274                 at91_write(priv, AT91_MAM(i), 0x0 );
275                 at91_write(priv, AT91_MID(i), AT91_MID_MIDE);
276         }
277
278         /* The last 4 mailboxes are used for transmitting. */
279         for (i = AT91_MB_TX_FIRST; i <= AT91_MB_TX_LAST; i++)
280                 set_mb_mode_prio(priv, i, AT91_MB_MODE_TX, 0);
281
282         /* Reset tx and rx helper pointers */
283         priv->tx_next = priv->tx_echo = 0;
284         priv->rx_next = AT91_MB_RX_FIRST;
285 }
286
287 static int at91_set_bittiming(struct net_device *dev)
288 {
289         const struct at91_priv *priv = netdev_priv(dev);
290         const struct can_bittiming *bt = &priv->can.bittiming;
291         u32 reg_br;
292
293         reg_br = ((priv->can.ctrlmode & CAN_CTRLMODE_3_SAMPLES) ? 1 << 24 : 0) |
294                 ((bt->brp - 1) << 16) | ((bt->sjw - 1) << 12) |
295                 ((bt->prop_seg - 1) << 8) | ((bt->phase_seg1 - 1) << 4) |
296                 ((bt->phase_seg2 - 1) << 0);
297
298         netdev_info(dev, "writing AT91_BR: 0x%08x\n", reg_br);
299
300         at91_write(priv, AT91_BR, reg_br);
301
302         return 0;
303 }
304
305 static int at91_get_berr_counter(const struct net_device *dev,
306                 struct can_berr_counter *bec)
307 {
308         const struct at91_priv *priv = netdev_priv(dev);
309         u32 reg_ecr = at91_read(priv, AT91_ECR);
310
311         bec->rxerr = reg_ecr & 0xff;
312         bec->txerr = reg_ecr >> 16;
313
314         return 0;
315 }
316
317 static void at91_chip_start(struct net_device *dev)
318 {
319         struct at91_priv *priv = netdev_priv(dev);
320         u32 reg_mr, reg_ier;
321
322         /* disable interrupts */
323         at91_write(priv, AT91_IDR, AT91_IRQ_ALL);
324
325         /* disable chip */
326         reg_mr = at91_read(priv, AT91_MR);
327         at91_write(priv, AT91_MR, reg_mr & ~AT91_MR_CANEN);
328
329         at91_set_bittiming(dev);
330         at91_setup_mailboxes(dev);
331         at91_transceiver_switch(priv, 1);
332
333         /* enable chip */
334         at91_write(priv, AT91_MR, AT91_MR_CANEN);
335
336         priv->can.state = CAN_STATE_ERROR_ACTIVE;
337
338         /* Enable interrupts */
339         reg_ier = AT91_IRQ_MB_RX | AT91_IRQ_ERRP | AT91_IRQ_ERR_FRAME;
340         at91_write(priv, AT91_IDR, AT91_IRQ_ALL);
341         at91_write(priv, AT91_IER, reg_ier);
342 }
343
344 static void at91_chip_stop(struct net_device *dev, enum can_state state)
345 {
346         struct at91_priv *priv = netdev_priv(dev);
347         u32 reg_mr;
348
349         /* disable interrupts */
350         at91_write(priv, AT91_IDR, AT91_IRQ_ALL);
351
352         reg_mr = at91_read(priv, AT91_MR);
353         at91_write(priv, AT91_MR, reg_mr & ~AT91_MR_CANEN);
354
355         at91_transceiver_switch(priv, 0);
356         priv->can.state = state;
357 }
358
359 /*
360  * theory of operation:
361  *
362  * According to the datasheet priority 0 is the highest priority, 15
363  * is the lowest. If two mailboxes have the same priority level the
364  * message of the mailbox with the lowest number is sent first.
365  *
366  * We use the first TX mailbox (AT91_MB_TX_FIRST) with prio 0, then
367  * the next mailbox with prio 0, and so on, until all mailboxes are
368  * used. Then we start from the beginning with mailbox
369  * AT91_MB_TX_FIRST, but with prio 1, mailbox AT91_MB_TX_FIRST + 1
370  * prio 1. When we reach the last mailbox with prio 15, we have to
371  * stop sending, waiting for all messages to be delivered, then start
372  * again with mailbox AT91_MB_TX_FIRST prio 0.
373  *
374  * We use the priv->tx_next as counter for the next transmission
375  * mailbox, but without the offset AT91_MB_TX_FIRST. The lower bits
376  * encode the mailbox number, the upper 4 bits the mailbox priority:
377  *
378  * priv->tx_next = (prio << AT91_NEXT_PRIO_SHIFT) ||
379  *                 (mb - AT91_MB_TX_FIRST);
380  *
381  */
382 static netdev_tx_t at91_start_xmit(struct sk_buff *skb, struct net_device *dev)
383 {
384         struct at91_priv *priv = netdev_priv(dev);
385         struct net_device_stats *stats = &dev->stats;
386         struct can_frame *cf = (struct can_frame *)skb->data;
387         unsigned int mb, prio;
388         u32 reg_mid, reg_mcr;
389
390         if (can_dropped_invalid_skb(dev, skb))
391                 return NETDEV_TX_OK;
392
393         mb = get_tx_next_mb(priv);
394         prio = get_tx_next_prio(priv);
395
396         if (unlikely(!(at91_read(priv, AT91_MSR(mb)) & AT91_MSR_MRDY))) {
397                 netif_stop_queue(dev);
398
399                 netdev_err(dev, "BUG! TX buffer full when queue awake!\n");
400                 return NETDEV_TX_BUSY;
401         }
402         reg_mid = at91_can_id_to_reg_mid(cf->can_id);
403         reg_mcr = ((cf->can_id & CAN_RTR_FLAG) ? AT91_MCR_MRTR : 0) |
404                 (cf->can_dlc << 16) | AT91_MCR_MTCR;
405
406         /* disable MB while writing ID (see datasheet) */
407         set_mb_mode(priv, mb, AT91_MB_MODE_DISABLED);
408         at91_write(priv, AT91_MID(mb), reg_mid);
409         set_mb_mode_prio(priv, mb, AT91_MB_MODE_TX, prio);
410
411         at91_write(priv, AT91_MDL(mb), *(u32 *)(cf->data + 0));
412         at91_write(priv, AT91_MDH(mb), *(u32 *)(cf->data + 4));
413
414         /* This triggers transmission */
415         at91_write(priv, AT91_MCR(mb), reg_mcr);
416
417         stats->tx_bytes += cf->can_dlc;
418
419         /* _NOTE_: substract AT91_MB_TX_FIRST offset from mb! */
420         can_put_echo_skb(skb, dev, mb - AT91_MB_TX_FIRST);
421
422         /*
423          * we have to stop the queue and deliver all messages in case
424          * of a prio+mb counter wrap around. This is the case if
425          * tx_next buffer prio and mailbox equals 0.
426          *
427          * also stop the queue if next buffer is still in use
428          * (== not ready)
429          */
430         priv->tx_next++;
431         if (!(at91_read(priv, AT91_MSR(get_tx_next_mb(priv))) &
432               AT91_MSR_MRDY) ||
433             (priv->tx_next & AT91_NEXT_MASK) == 0)
434                 netif_stop_queue(dev);
435
436         /* Enable interrupt for this mailbox */
437         at91_write(priv, AT91_IER, 1 << mb);
438
439         return NETDEV_TX_OK;
440 }
441
442 /**
443  * at91_activate_rx_low - activate lower rx mailboxes
444  * @priv: a91 context
445  *
446  * Reenables the lower mailboxes for reception of new CAN messages
447  */
448 static inline void at91_activate_rx_low(const struct at91_priv *priv)
449 {
450         u32 mask = AT91_MB_RX_LOW_MASK;
451         at91_write(priv, AT91_TCR, mask);
452 }
453
454 /**
455  * at91_activate_rx_mb - reactive single rx mailbox
456  * @priv: a91 context
457  * @mb: mailbox to reactivate
458  *
459  * Reenables given mailbox for reception of new CAN messages
460  */
461 static inline void at91_activate_rx_mb(const struct at91_priv *priv,
462                 unsigned int mb)
463 {
464         u32 mask = 1 << mb;
465         at91_write(priv, AT91_TCR, mask);
466 }
467
468 /**
469  * at91_rx_overflow_err - send error frame due to rx overflow
470  * @dev: net device
471  */
472 static void at91_rx_overflow_err(struct net_device *dev)
473 {
474         struct net_device_stats *stats = &dev->stats;
475         struct sk_buff *skb;
476         struct can_frame *cf;
477
478         netdev_dbg(dev, "RX buffer overflow\n");
479         stats->rx_over_errors++;
480         stats->rx_errors++;
481
482         skb = alloc_can_err_skb(dev, &cf);
483         if (unlikely(!skb))
484                 return;
485
486         cf->can_id |= CAN_ERR_CRTL;
487         cf->data[1] = CAN_ERR_CRTL_RX_OVERFLOW;
488         netif_receive_skb(skb);
489
490         stats->rx_packets++;
491         stats->rx_bytes += cf->can_dlc;
492 }
493
494 /**
495  * at91_read_mb - read CAN msg from mailbox (lowlevel impl)
496  * @dev: net device
497  * @mb: mailbox number to read from
498  * @cf: can frame where to store message
499  *
500  * Reads a CAN message from the given mailbox and stores data into
501  * given can frame. "mb" and "cf" must be valid.
502  */
503 static void at91_read_mb(struct net_device *dev, unsigned int mb,
504                 struct can_frame *cf)
505 {
506         const struct at91_priv *priv = netdev_priv(dev);
507         u32 reg_msr, reg_mid;
508
509         reg_mid = at91_read(priv, AT91_MID(mb));
510         if (reg_mid & AT91_MID_MIDE)
511                 cf->can_id = ((reg_mid >> 0) & CAN_EFF_MASK) | CAN_EFF_FLAG;
512         else
513                 cf->can_id = (reg_mid >> 18) & CAN_SFF_MASK;
514
515         reg_msr = at91_read(priv, AT91_MSR(mb));
516         if (reg_msr & AT91_MSR_MRTR)
517                 cf->can_id |= CAN_RTR_FLAG;
518         cf->can_dlc = get_can_dlc((reg_msr >> 16) & 0xf);
519
520         *(u32 *)(cf->data + 0) = at91_read(priv, AT91_MDL(mb));
521         *(u32 *)(cf->data + 4) = at91_read(priv, AT91_MDH(mb));
522
523         /* allow RX of extended frames */
524         at91_write(priv, AT91_MID(mb), AT91_MID_MIDE);
525
526         if (unlikely(mb == AT91_MB_RX_LAST && reg_msr & AT91_MSR_MMI))
527                 at91_rx_overflow_err(dev);
528 }
529
530 /**
531  * at91_read_msg - read CAN message from mailbox
532  * @dev: net device
533  * @mb: mail box to read from
534  *
535  * Reads a CAN message from given mailbox, and put into linux network
536  * RX queue, does all housekeeping chores (stats, ...)
537  */
538 static void at91_read_msg(struct net_device *dev, unsigned int mb)
539 {
540         struct net_device_stats *stats = &dev->stats;
541         struct can_frame *cf;
542         struct sk_buff *skb;
543
544         skb = alloc_can_skb(dev, &cf);
545         if (unlikely(!skb)) {
546                 stats->rx_dropped++;
547                 return;
548         }
549
550         at91_read_mb(dev, mb, cf);
551         netif_receive_skb(skb);
552
553         stats->rx_packets++;
554         stats->rx_bytes += cf->can_dlc;
555 }
556
557 /**
558  * at91_poll_rx - read multiple CAN messages from mailboxes
559  * @dev: net device
560  * @quota: max number of pkgs we're allowed to receive
561  *
562  * Theory of Operation:
563  *
564  * 11 of the 16 mailboxes on the chip are reserved for RX. we split
565  * them into 2 groups. The lower group holds 7 and upper 4 mailboxes.
566  *
567  * Like it or not, but the chip always saves a received CAN message
568  * into the first free mailbox it finds (starting with the
569  * lowest). This makes it very difficult to read the messages in the
570  * right order from the chip. This is how we work around that problem:
571  *
572  * The first message goes into mb nr. 1 and issues an interrupt. All
573  * rx ints are disabled in the interrupt handler and a napi poll is
574  * scheduled. We read the mailbox, but do _not_ reenable the mb (to
575  * receive another message).
576  *
577  *    lower mbxs      upper
578  *     ____^______    __^__
579  *    /           \  /     \
580  * +-+-+-+-+-+-+-+-++-+-+-+-+
581  * | |x|x|x|x|x|x|x|| | | | |
582  * +-+-+-+-+-+-+-+-++-+-+-+-+
583  *  0 0 0 0 0 0  0 0 0 0 1 1  \ mail
584  *  0 1 2 3 4 5  6 7 8 9 0 1  / box
585  *  ^
586  *  |
587  *   \
588  *     unused, due to chip bug
589  *
590  * The variable priv->rx_next points to the next mailbox to read a
591  * message from. As long we're in the lower mailboxes we just read the
592  * mailbox but not reenable it.
593  *
594  * With completion of the last of the lower mailboxes, we reenable the
595  * whole first group, but continue to look for filled mailboxes in the
596  * upper mailboxes. Imagine the second group like overflow mailboxes,
597  * which takes CAN messages if the lower goup is full. While in the
598  * upper group we reenable the mailbox right after reading it. Giving
599  * the chip more room to store messages.
600  *
601  * After finishing we look again in the lower group if we've still
602  * quota.
603  *
604  */
605 static int at91_poll_rx(struct net_device *dev, int quota)
606 {
607         struct at91_priv *priv = netdev_priv(dev);
608         u32 reg_sr = at91_read(priv, AT91_SR);
609         const unsigned long *addr = (unsigned long *)&reg_sr;
610         unsigned int mb;
611         int received = 0;
612
613         if (priv->rx_next > AT91_MB_RX_LOW_LAST &&
614             reg_sr & AT91_MB_RX_LOW_MASK)
615                 netdev_info(dev,
616                         "order of incoming frames cannot be guaranteed\n");
617
618  again:
619         for (mb = find_next_bit(addr, AT91_MB_RX_LAST + 1, priv->rx_next);
620              mb < AT91_MB_RX_LAST + 1 && quota > 0;
621              reg_sr = at91_read(priv, AT91_SR),
622              mb = find_next_bit(addr, AT91_MB_RX_LAST + 1, ++priv->rx_next)) {
623                 at91_read_msg(dev, mb);
624
625                 /* reactivate mailboxes */
626                 if (mb == AT91_MB_RX_LOW_LAST)
627                         /* all lower mailboxed, if just finished it */
628                         at91_activate_rx_low(priv);
629                 else if (mb > AT91_MB_RX_LOW_LAST)
630                         /* only the mailbox we read */
631                         at91_activate_rx_mb(priv, mb);
632
633                 received++;
634                 quota--;
635         }
636
637         /* upper group completed, look again in lower */
638         if (priv->rx_next > AT91_MB_RX_LOW_LAST &&
639             quota > 0 && mb > AT91_MB_RX_LAST) {
640                 priv->rx_next = AT91_MB_RX_FIRST;
641                 goto again;
642         }
643
644         return received;
645 }
646
647 static void at91_poll_err_frame(struct net_device *dev,
648                 struct can_frame *cf, u32 reg_sr)
649 {
650         struct at91_priv *priv = netdev_priv(dev);
651
652         /* CRC error */
653         if (reg_sr & AT91_IRQ_CERR) {
654                 netdev_dbg(dev, "CERR irq\n");
655                 dev->stats.rx_errors++;
656                 priv->can.can_stats.bus_error++;
657                 cf->can_id |= CAN_ERR_PROT | CAN_ERR_BUSERROR;
658         }
659
660         /* Stuffing Error */
661         if (reg_sr & AT91_IRQ_SERR) {
662                 netdev_dbg(dev, "SERR irq\n");
663                 dev->stats.rx_errors++;
664                 priv->can.can_stats.bus_error++;
665                 cf->can_id |= CAN_ERR_PROT | CAN_ERR_BUSERROR;
666                 cf->data[2] |= CAN_ERR_PROT_STUFF;
667         }
668
669         /* Acknowledgement Error */
670         if (reg_sr & AT91_IRQ_AERR) {
671                 netdev_dbg(dev, "AERR irq\n");
672                 dev->stats.tx_errors++;
673                 cf->can_id |= CAN_ERR_ACK;
674         }
675
676         /* Form error */
677         if (reg_sr & AT91_IRQ_FERR) {
678                 netdev_dbg(dev, "FERR irq\n");
679                 dev->stats.rx_errors++;
680                 priv->can.can_stats.bus_error++;
681                 cf->can_id |= CAN_ERR_PROT | CAN_ERR_BUSERROR;
682                 cf->data[2] |= CAN_ERR_PROT_FORM;
683         }
684
685         /* Bit Error */
686         if (reg_sr & AT91_IRQ_BERR) {
687                 netdev_dbg(dev, "BERR irq\n");
688                 dev->stats.tx_errors++;
689                 priv->can.can_stats.bus_error++;
690                 cf->can_id |= CAN_ERR_PROT | CAN_ERR_BUSERROR;
691                 cf->data[2] |= CAN_ERR_PROT_BIT;
692         }
693 }
694
695 static int at91_poll_err(struct net_device *dev, int quota, u32 reg_sr)
696 {
697         struct sk_buff *skb;
698         struct can_frame *cf;
699
700         if (quota == 0)
701                 return 0;
702
703         skb = alloc_can_err_skb(dev, &cf);
704         if (unlikely(!skb))
705                 return 0;
706
707         at91_poll_err_frame(dev, cf, reg_sr);
708         netif_receive_skb(skb);
709
710         dev->stats.rx_packets++;
711         dev->stats.rx_bytes += cf->can_dlc;
712
713         return 1;
714 }
715
716 static int at91_poll(struct napi_struct *napi, int quota)
717 {
718         struct net_device *dev = napi->dev;
719         const struct at91_priv *priv = netdev_priv(dev);
720         u32 reg_sr = at91_read(priv, AT91_SR);
721         int work_done = 0;
722
723         if (reg_sr & AT91_IRQ_MB_RX)
724                 work_done += at91_poll_rx(dev, quota - work_done);
725
726         /*
727          * The error bits are clear on read,
728          * so use saved value from irq handler.
729          */
730         reg_sr |= priv->reg_sr;
731         if (reg_sr & AT91_IRQ_ERR_FRAME)
732                 work_done += at91_poll_err(dev, quota - work_done, reg_sr);
733
734         if (work_done < quota) {
735                 /* enable IRQs for frame errors and all mailboxes >= rx_next */
736                 u32 reg_ier = AT91_IRQ_ERR_FRAME;
737                 reg_ier |= AT91_IRQ_MB_RX & ~AT91_MB_RX_MASK(priv->rx_next);
738
739                 napi_complete(napi);
740                 at91_write(priv, AT91_IER, reg_ier);
741         }
742
743         return work_done;
744 }
745
746 /*
747  * theory of operation:
748  *
749  * priv->tx_echo holds the number of the oldest can_frame put for
750  * transmission into the hardware, but not yet ACKed by the CAN tx
751  * complete IRQ.
752  *
753  * We iterate from priv->tx_echo to priv->tx_next and check if the
754  * packet has been transmitted, echo it back to the CAN framework. If
755  * we discover a not yet transmitted package, stop looking for more.
756  *
757  */
758 static void at91_irq_tx(struct net_device *dev, u32 reg_sr)
759 {
760         struct at91_priv *priv = netdev_priv(dev);
761         u32 reg_msr;
762         unsigned int mb;
763
764         /* masking of reg_sr not needed, already done by at91_irq */
765
766         for (/* nix */; (priv->tx_next - priv->tx_echo) > 0; priv->tx_echo++) {
767                 mb = get_tx_echo_mb(priv);
768
769                 /* no event in mailbox? */
770                 if (!(reg_sr & (1 << mb)))
771                         break;
772
773                 /* Disable irq for this TX mailbox */
774                 at91_write(priv, AT91_IDR, 1 << mb);
775
776                 /*
777                  * only echo if mailbox signals us a transfer
778                  * complete (MSR_MRDY). Otherwise it's a tansfer
779                  * abort. "can_bus_off()" takes care about the skbs
780                  * parked in the echo queue.
781                  */
782                 reg_msr = at91_read(priv, AT91_MSR(mb));
783                 if (likely(reg_msr & AT91_MSR_MRDY &&
784                            ~reg_msr & AT91_MSR_MABT)) {
785                         /* _NOTE_: substract AT91_MB_TX_FIRST offset from mb! */
786                         can_get_echo_skb(dev, mb - AT91_MB_TX_FIRST);
787                         dev->stats.tx_packets++;
788                 }
789         }
790
791         /*
792          * restart queue if we don't have a wrap around but restart if
793          * we get a TX int for the last can frame directly before a
794          * wrap around.
795          */
796         if ((priv->tx_next & AT91_NEXT_MASK) != 0 ||
797             (priv->tx_echo & AT91_NEXT_MASK) == 0)
798                 netif_wake_queue(dev);
799 }
800
801 static void at91_irq_err_state(struct net_device *dev,
802                 struct can_frame *cf, enum can_state new_state)
803 {
804         struct at91_priv *priv = netdev_priv(dev);
805         u32 reg_idr = 0, reg_ier = 0;
806         struct can_berr_counter bec;
807
808         at91_get_berr_counter(dev, &bec);
809
810         switch (priv->can.state) {
811         case CAN_STATE_ERROR_ACTIVE:
812                 /*
813                  * from: ERROR_ACTIVE
814                  * to  : ERROR_WARNING, ERROR_PASSIVE, BUS_OFF
815                  * =>  : there was a warning int
816                  */
817                 if (new_state >= CAN_STATE_ERROR_WARNING &&
818                     new_state <= CAN_STATE_BUS_OFF) {
819                         netdev_dbg(dev, "Error Warning IRQ\n");
820                         priv->can.can_stats.error_warning++;
821
822                         cf->can_id |= CAN_ERR_CRTL;
823                         cf->data[1] = (bec.txerr > bec.rxerr) ?
824                                 CAN_ERR_CRTL_TX_WARNING :
825                                 CAN_ERR_CRTL_RX_WARNING;
826                 }
827         case CAN_STATE_ERROR_WARNING:   /* fallthrough */
828                 /*
829                  * from: ERROR_ACTIVE, ERROR_WARNING
830                  * to  : ERROR_PASSIVE, BUS_OFF
831                  * =>  : error passive int
832                  */
833                 if (new_state >= CAN_STATE_ERROR_PASSIVE &&
834                     new_state <= CAN_STATE_BUS_OFF) {
835                         netdev_dbg(dev, "Error Passive IRQ\n");
836                         priv->can.can_stats.error_passive++;
837
838                         cf->can_id |= CAN_ERR_CRTL;
839                         cf->data[1] = (bec.txerr > bec.rxerr) ?
840                                 CAN_ERR_CRTL_TX_PASSIVE :
841                                 CAN_ERR_CRTL_RX_PASSIVE;
842                 }
843                 break;
844         case CAN_STATE_BUS_OFF:
845                 /*
846                  * from: BUS_OFF
847                  * to  : ERROR_ACTIVE, ERROR_WARNING, ERROR_PASSIVE
848                  */
849                 if (new_state <= CAN_STATE_ERROR_PASSIVE) {
850                         cf->can_id |= CAN_ERR_RESTARTED;
851
852                         netdev_dbg(dev, "restarted\n");
853                         priv->can.can_stats.restarts++;
854
855                         netif_carrier_on(dev);
856                         netif_wake_queue(dev);
857                 }
858                 break;
859         default:
860                 break;
861         }
862
863
864         /* process state changes depending on the new state */
865         switch (new_state) {
866         case CAN_STATE_ERROR_ACTIVE:
867                 /*
868                  * actually we want to enable AT91_IRQ_WARN here, but
869                  * it screws up the system under certain
870                  * circumstances. so just enable AT91_IRQ_ERRP, thus
871                  * the "fallthrough"
872                  */
873                 netdev_dbg(dev, "Error Active\n");
874                 cf->can_id |= CAN_ERR_PROT;
875                 cf->data[2] = CAN_ERR_PROT_ACTIVE;
876         case CAN_STATE_ERROR_WARNING:   /* fallthrough */
877                 reg_idr = AT91_IRQ_ERRA | AT91_IRQ_WARN | AT91_IRQ_BOFF;
878                 reg_ier = AT91_IRQ_ERRP;
879                 break;
880         case CAN_STATE_ERROR_PASSIVE:
881                 reg_idr = AT91_IRQ_ERRA | AT91_IRQ_WARN | AT91_IRQ_ERRP;
882                 reg_ier = AT91_IRQ_BOFF;
883                 break;
884         case CAN_STATE_BUS_OFF:
885                 reg_idr = AT91_IRQ_ERRA | AT91_IRQ_ERRP |
886                         AT91_IRQ_WARN | AT91_IRQ_BOFF;
887                 reg_ier = 0;
888
889                 cf->can_id |= CAN_ERR_BUSOFF;
890
891                 netdev_dbg(dev, "bus-off\n");
892                 netif_carrier_off(dev);
893                 priv->can.can_stats.bus_off++;
894
895                 /* turn off chip, if restart is disabled */
896                 if (!priv->can.restart_ms) {
897                         at91_chip_stop(dev, CAN_STATE_BUS_OFF);
898                         return;
899                 }
900                 break;
901         default:
902                 break;
903         }
904
905         at91_write(priv, AT91_IDR, reg_idr);
906         at91_write(priv, AT91_IER, reg_ier);
907 }
908
909 static void at91_irq_err(struct net_device *dev)
910 {
911         struct at91_priv *priv = netdev_priv(dev);
912         struct sk_buff *skb;
913         struct can_frame *cf;
914         enum can_state new_state;
915         u32 reg_sr;
916
917         reg_sr = at91_read(priv, AT91_SR);
918
919         /* we need to look at the unmasked reg_sr */
920         if (unlikely(reg_sr & AT91_IRQ_BOFF))
921                 new_state = CAN_STATE_BUS_OFF;
922         else if (unlikely(reg_sr & AT91_IRQ_ERRP))
923                 new_state = CAN_STATE_ERROR_PASSIVE;
924         else if (unlikely(reg_sr & AT91_IRQ_WARN))
925                 new_state = CAN_STATE_ERROR_WARNING;
926         else if (likely(reg_sr & AT91_IRQ_ERRA))
927                 new_state = CAN_STATE_ERROR_ACTIVE;
928         else {
929                 netdev_err(dev, "BUG! hardware in undefined state\n");
930                 return;
931         }
932
933         /* state hasn't changed */
934         if (likely(new_state == priv->can.state))
935                 return;
936
937         skb = alloc_can_err_skb(dev, &cf);
938         if (unlikely(!skb))
939                 return;
940
941         at91_irq_err_state(dev, cf, new_state);
942         netif_rx(skb);
943
944         dev->stats.rx_packets++;
945         dev->stats.rx_bytes += cf->can_dlc;
946
947         priv->can.state = new_state;
948 }
949
950 /*
951  * interrupt handler
952  */
953 static irqreturn_t at91_irq(int irq, void *dev_id)
954 {
955         struct net_device *dev = dev_id;
956         struct at91_priv *priv = netdev_priv(dev);
957         irqreturn_t handled = IRQ_NONE;
958         u32 reg_sr, reg_imr;
959
960         reg_sr = at91_read(priv, AT91_SR);
961         reg_imr = at91_read(priv, AT91_IMR);
962
963         /* Ignore masked interrupts */
964         reg_sr &= reg_imr;
965         if (!reg_sr)
966                 goto exit;
967
968         handled = IRQ_HANDLED;
969
970         /* Receive or error interrupt? -> napi */
971         if (reg_sr & (AT91_IRQ_MB_RX | AT91_IRQ_ERR_FRAME)) {
972                 /*
973                  * The error bits are clear on read,
974                  * save for later use.
975                  */
976                 priv->reg_sr = reg_sr;
977                 at91_write(priv, AT91_IDR,
978                            AT91_IRQ_MB_RX | AT91_IRQ_ERR_FRAME);
979                 napi_schedule(&priv->napi);
980         }
981
982         /* Transmission complete interrupt */
983         if (reg_sr & AT91_IRQ_MB_TX)
984                 at91_irq_tx(dev, reg_sr);
985
986         at91_irq_err(dev);
987
988  exit:
989         return handled;
990 }
991
992 static int at91_open(struct net_device *dev)
993 {
994         struct at91_priv *priv = netdev_priv(dev);
995         int err;
996
997         clk_enable(priv->clk);
998
999         /* check or determine and set bittime */
1000         err = open_candev(dev);
1001         if (err)
1002                 goto out;
1003
1004         /* register interrupt handler */
1005         if (request_irq(dev->irq, at91_irq, IRQF_SHARED,
1006                         dev->name, dev)) {
1007                 err = -EAGAIN;
1008                 goto out_close;
1009         }
1010
1011         /* start chip and queuing */
1012         at91_chip_start(dev);
1013         napi_enable(&priv->napi);
1014         netif_start_queue(dev);
1015
1016         return 0;
1017
1018  out_close:
1019         close_candev(dev);
1020  out:
1021         clk_disable(priv->clk);
1022
1023         return err;
1024 }
1025
1026 /*
1027  * stop CAN bus activity
1028  */
1029 static int at91_close(struct net_device *dev)
1030 {
1031         struct at91_priv *priv = netdev_priv(dev);
1032
1033         netif_stop_queue(dev);
1034         napi_disable(&priv->napi);
1035         at91_chip_stop(dev, CAN_STATE_STOPPED);
1036
1037         free_irq(dev->irq, dev);
1038         clk_disable(priv->clk);
1039
1040         close_candev(dev);
1041
1042         return 0;
1043 }
1044
1045 static int at91_set_mode(struct net_device *dev, enum can_mode mode)
1046 {
1047         switch (mode) {
1048         case CAN_MODE_START:
1049                 at91_chip_start(dev);
1050                 netif_wake_queue(dev);
1051                 break;
1052
1053         default:
1054                 return -EOPNOTSUPP;
1055         }
1056
1057         return 0;
1058 }
1059
1060 static const struct net_device_ops at91_netdev_ops = {
1061         .ndo_open       = at91_open,
1062         .ndo_stop       = at91_close,
1063         .ndo_start_xmit = at91_start_xmit,
1064 };
1065
1066 static ssize_t at91_sysfs_show_mb0_id(struct device *dev,
1067                 struct device_attribute *attr, char *buf)
1068 {
1069         struct at91_priv *priv = netdev_priv(to_net_dev(dev));
1070
1071         if (priv->mb0_id & CAN_EFF_FLAG)
1072                 return snprintf(buf, PAGE_SIZE, "0x%08x\n", priv->mb0_id);
1073         else
1074                 return snprintf(buf, PAGE_SIZE, "0x%03x\n", priv->mb0_id);
1075 }
1076
1077 static ssize_t at91_sysfs_set_mb0_id(struct device *dev,
1078                 struct device_attribute *attr, const char *buf, size_t count)
1079 {
1080         struct net_device *ndev = to_net_dev(dev);
1081         struct at91_priv *priv = netdev_priv(ndev);
1082         unsigned long can_id;
1083         ssize_t ret;
1084         int err;
1085
1086         rtnl_lock();
1087
1088         if (ndev->flags & IFF_UP) {
1089                 ret = -EBUSY;
1090                 goto out;
1091         }
1092
1093         err = strict_strtoul(buf, 0, &can_id);
1094         if (err) {
1095                 ret = err;
1096                 goto out;
1097         }
1098
1099         if (can_id & CAN_EFF_FLAG)
1100                 can_id &= CAN_EFF_MASK | CAN_EFF_FLAG;
1101         else
1102                 can_id &= CAN_SFF_MASK;
1103
1104         priv->mb0_id = can_id;
1105         ret = count;
1106
1107  out:
1108         rtnl_unlock();
1109         return ret;
1110 }
1111
1112 static DEVICE_ATTR(mb0_id, S_IWUSR | S_IRUGO,
1113         at91_sysfs_show_mb0_id, at91_sysfs_set_mb0_id);
1114
1115 static struct attribute *at91_sysfs_attrs[] = {
1116         &dev_attr_mb0_id.attr,
1117         NULL,
1118 };
1119
1120 static struct attribute_group at91_sysfs_attr_group = {
1121         .attrs = at91_sysfs_attrs,
1122 };
1123
1124 static int __devinit at91_can_probe(struct platform_device *pdev)
1125 {
1126         struct net_device *dev;
1127         struct at91_priv *priv;
1128         struct resource *res;
1129         struct clk *clk;
1130         void __iomem *addr;
1131         int err, irq;
1132
1133         clk = clk_get(&pdev->dev, "can_clk");
1134         if (IS_ERR(clk)) {
1135                 dev_err(&pdev->dev, "no clock defined\n");
1136                 err = -ENODEV;
1137                 goto exit;
1138         }
1139
1140         res = platform_get_resource(pdev, IORESOURCE_MEM, 0);
1141         irq = platform_get_irq(pdev, 0);
1142         if (!res || irq <= 0) {
1143                 err = -ENODEV;
1144                 goto exit_put;
1145         }
1146
1147         if (!request_mem_region(res->start,
1148                                 resource_size(res),
1149                                 pdev->name)) {
1150                 err = -EBUSY;
1151                 goto exit_put;
1152         }
1153
1154         addr = ioremap_nocache(res->start, resource_size(res));
1155         if (!addr) {
1156                 err = -ENOMEM;
1157                 goto exit_release;
1158         }
1159
1160         dev = alloc_candev(sizeof(struct at91_priv), AT91_MB_TX_NUM);
1161         if (!dev) {
1162                 err = -ENOMEM;
1163                 goto exit_iounmap;
1164         }
1165
1166         dev->netdev_ops = &at91_netdev_ops;
1167         dev->irq = irq;
1168         dev->flags |= IFF_ECHO;
1169         dev->sysfs_groups[0] = &at91_sysfs_attr_group;
1170
1171         priv = netdev_priv(dev);
1172         priv->can.clock.freq = clk_get_rate(clk);
1173         priv->can.bittiming_const = &at91_bittiming_const;
1174         priv->can.do_set_mode = at91_set_mode;
1175         priv->can.do_get_berr_counter = at91_get_berr_counter;
1176         priv->can.ctrlmode_supported = CAN_CTRLMODE_3_SAMPLES;
1177         priv->reg_base = addr;
1178         priv->dev = dev;
1179         priv->clk = clk;
1180         priv->pdata = pdev->dev.platform_data;
1181         priv->mb0_id = 0x7ff;
1182
1183         netif_napi_add(dev, &priv->napi, at91_poll, AT91_NAPI_WEIGHT);
1184
1185         dev_set_drvdata(&pdev->dev, dev);
1186         SET_NETDEV_DEV(dev, &pdev->dev);
1187
1188         err = register_candev(dev);
1189         if (err) {
1190                 dev_err(&pdev->dev, "registering netdev failed\n");
1191                 goto exit_free;
1192         }
1193
1194         dev_info(&pdev->dev, "device registered (reg_base=%p, irq=%d)\n",
1195                  priv->reg_base, dev->irq);
1196
1197         return 0;
1198
1199  exit_free:
1200         free_candev(dev);
1201  exit_iounmap:
1202         iounmap(addr);
1203  exit_release:
1204         release_mem_region(res->start, resource_size(res));
1205  exit_put:
1206         clk_put(clk);
1207  exit:
1208         return err;
1209 }
1210
1211 static int __devexit at91_can_remove(struct platform_device *pdev)
1212 {
1213         struct net_device *dev = platform_get_drvdata(pdev);
1214         struct at91_priv *priv = netdev_priv(dev);
1215         struct resource *res;
1216
1217         unregister_netdev(dev);
1218
1219         platform_set_drvdata(pdev, NULL);
1220
1221         iounmap(priv->reg_base);
1222
1223         res = platform_get_resource(pdev, IORESOURCE_MEM, 0);
1224         release_mem_region(res->start, resource_size(res));
1225
1226         clk_put(priv->clk);
1227
1228         free_candev(dev);
1229
1230         return 0;
1231 }
1232
1233 static struct platform_driver at91_can_driver = {
1234         .probe          = at91_can_probe,
1235         .remove         = __devexit_p(at91_can_remove),
1236         .driver         = {
1237                 .name   = KBUILD_MODNAME,
1238                 .owner  = THIS_MODULE,
1239         },
1240 };
1241
1242 static int __init at91_can_module_init(void)
1243 {
1244         return platform_driver_register(&at91_can_driver);
1245 }
1246
1247 static void __exit at91_can_module_exit(void)
1248 {
1249         platform_driver_unregister(&at91_can_driver);
1250 }
1251
1252 module_init(at91_can_module_init);
1253 module_exit(at91_can_module_exit);
1254
1255 MODULE_AUTHOR("Marc Kleine-Budde <mkl@pengutronix.de>");
1256 MODULE_LICENSE("GPL v2");
1257 MODULE_DESCRIPTION(KBUILD_MODNAME " CAN netdevice driver");