Merge branch 'linus' into core/rodata
[linux-2.6] / drivers / serial / sb1250-duart.c
1 /*
2  *      drivers/serial/sb1250-duart.c
3  *
4  *      Support for the asynchronous serial interface (DUART) included
5  *      in the BCM1250 and derived System-On-a-Chip (SOC) devices.
6  *
7  *      Copyright (c) 2007  Maciej W. Rozycki
8  *
9  *      Derived from drivers/char/sb1250_duart.c for which the following
10  *      copyright applies:
11  *
12  *      Copyright (c) 2000, 2001, 2002, 2003, 2004  Broadcom Corporation
13  *
14  *      This program is free software; you can redistribute it and/or
15  *      modify it under the terms of the GNU General Public License
16  *      as published by the Free Software Foundation; either version
17  *      2 of the License, or (at your option) any later version.
18  *
19  *      References:
20  *
21  *      "BCM1250/BCM1125/BCM1125H User Manual", Broadcom Corporation
22  */
23
24 #if defined(CONFIG_SERIAL_SB1250_DUART_CONSOLE) && defined(CONFIG_MAGIC_SYSRQ)
25 #define SUPPORT_SYSRQ
26 #endif
27
28 #include <linux/compiler.h>
29 #include <linux/console.h>
30 #include <linux/delay.h>
31 #include <linux/errno.h>
32 #include <linux/init.h>
33 #include <linux/interrupt.h>
34 #include <linux/ioport.h>
35 #include <linux/kernel.h>
36 #include <linux/major.h>
37 #include <linux/serial.h>
38 #include <linux/serial_core.h>
39 #include <linux/spinlock.h>
40 #include <linux/sysrq.h>
41 #include <linux/tty.h>
42 #include <linux/types.h>
43
44 #include <asm/atomic.h>
45 #include <asm/io.h>
46 #include <asm/war.h>
47
48 #include <asm/sibyte/sb1250.h>
49 #include <asm/sibyte/sb1250_uart.h>
50 #include <asm/sibyte/swarm.h>
51
52
53 #if defined(CONFIG_SIBYTE_BCM1x55) || defined(CONFIG_SIBYTE_BCM1x80)
54 #include <asm/sibyte/bcm1480_regs.h>
55 #include <asm/sibyte/bcm1480_int.h>
56
57 #define SBD_CHANREGS(line)      A_BCM1480_DUART_CHANREG((line), 0)
58 #define SBD_CTRLREGS(line)      A_BCM1480_DUART_CTRLREG((line), 0)
59 #define SBD_INT(line)           (K_BCM1480_INT_UART_0 + (line))
60
61 #define DUART_CHANREG_SPACING   BCM1480_DUART_CHANREG_SPACING
62
63 #define R_DUART_IMRREG(line)    R_BCM1480_DUART_IMRREG(line)
64 #define R_DUART_INCHREG(line)   R_BCM1480_DUART_INCHREG(line)
65 #define R_DUART_ISRREG(line)    R_BCM1480_DUART_ISRREG(line)
66
67 #elif defined(CONFIG_SIBYTE_SB1250) || defined(CONFIG_SIBYTE_BCM112X)
68 #include <asm/sibyte/sb1250_regs.h>
69 #include <asm/sibyte/sb1250_int.h>
70
71 #define SBD_CHANREGS(line)      A_DUART_CHANREG((line), 0)
72 #define SBD_CTRLREGS(line)      A_DUART_CTRLREG(0)
73 #define SBD_INT(line)           (K_INT_UART_0 + (line))
74
75 #else
76 #error invalid SB1250 UART configuration
77
78 #endif
79
80
81 MODULE_AUTHOR("Maciej W. Rozycki <macro@linux-mips.org>");
82 MODULE_DESCRIPTION("BCM1xxx on-chip DUART serial driver");
83 MODULE_LICENSE("GPL");
84
85
86 #define DUART_MAX_CHIP 2
87 #define DUART_MAX_SIDE 2
88
89 /*
90  * Per-port state.
91  */
92 struct sbd_port {
93         struct sbd_duart        *duart;
94         struct uart_port        port;
95         unsigned char __iomem   *memctrl;
96         int                     tx_stopped;
97         int                     initialised;
98 };
99
100 /*
101  * Per-DUART state for the shared register space.
102  */
103 struct sbd_duart {
104         struct sbd_port         sport[2];
105         unsigned long           mapctrl;
106         atomic_t                map_guard;
107 };
108
109 #define to_sport(uport) container_of(uport, struct sbd_port, port)
110
111 static struct sbd_duart sbd_duarts[DUART_MAX_CHIP];
112
113
114 /*
115  * Reading and writing SB1250 DUART registers.
116  *
117  * There are three register spaces: two per-channel ones and
118  * a shared one.  We have to define accessors appropriately.
119  * All registers are 64-bit and all but the Baud Rate Clock
120  * registers only define 8 least significant bits.  There is
121  * also a workaround to take into account.  Raw accessors use
122  * the full register width, but cooked ones truncate it
123  * intentionally so that the rest of the driver does not care.
124  */
125 static u64 __read_sbdchn(struct sbd_port *sport, int reg)
126 {
127         void __iomem *csr = sport->port.membase + reg;
128
129         return __raw_readq(csr);
130 }
131
132 static u64 __read_sbdshr(struct sbd_port *sport, int reg)
133 {
134         void __iomem *csr = sport->memctrl + reg;
135
136         return __raw_readq(csr);
137 }
138
139 static void __write_sbdchn(struct sbd_port *sport, int reg, u64 value)
140 {
141         void __iomem *csr = sport->port.membase + reg;
142
143         __raw_writeq(value, csr);
144 }
145
146 static void __write_sbdshr(struct sbd_port *sport, int reg, u64 value)
147 {
148         void __iomem *csr = sport->memctrl + reg;
149
150         __raw_writeq(value, csr);
151 }
152
153 /*
154  * In bug 1956, we get glitches that can mess up uart registers.  This
155  * "read-mode-reg after any register access" is an accepted workaround.
156  */
157 static void __war_sbd1956(struct sbd_port *sport)
158 {
159         __read_sbdchn(sport, R_DUART_MODE_REG_1);
160         __read_sbdchn(sport, R_DUART_MODE_REG_2);
161 }
162
163 static unsigned char read_sbdchn(struct sbd_port *sport, int reg)
164 {
165         unsigned char retval;
166
167         retval = __read_sbdchn(sport, reg);
168         if (SIBYTE_1956_WAR)
169                 __war_sbd1956(sport);
170         return retval;
171 }
172
173 static unsigned char read_sbdshr(struct sbd_port *sport, int reg)
174 {
175         unsigned char retval;
176
177         retval = __read_sbdshr(sport, reg);
178         if (SIBYTE_1956_WAR)
179                 __war_sbd1956(sport);
180         return retval;
181 }
182
183 static void write_sbdchn(struct sbd_port *sport, int reg, unsigned int value)
184 {
185         __write_sbdchn(sport, reg, value);
186         if (SIBYTE_1956_WAR)
187                 __war_sbd1956(sport);
188 }
189
190 static void write_sbdshr(struct sbd_port *sport, int reg, unsigned int value)
191 {
192         __write_sbdshr(sport, reg, value);
193         if (SIBYTE_1956_WAR)
194                 __war_sbd1956(sport);
195 }
196
197
198 static int sbd_receive_ready(struct sbd_port *sport)
199 {
200         return read_sbdchn(sport, R_DUART_STATUS) & M_DUART_RX_RDY;
201 }
202
203 static int sbd_receive_drain(struct sbd_port *sport)
204 {
205         int loops = 10000;
206
207         while (sbd_receive_ready(sport) && loops--)
208                 read_sbdchn(sport, R_DUART_RX_HOLD);
209         return loops;
210 }
211
212 static int __maybe_unused sbd_transmit_ready(struct sbd_port *sport)
213 {
214         return read_sbdchn(sport, R_DUART_STATUS) & M_DUART_TX_RDY;
215 }
216
217 static int __maybe_unused sbd_transmit_drain(struct sbd_port *sport)
218 {
219         int loops = 10000;
220
221         while (!sbd_transmit_ready(sport) && loops--)
222                 udelay(2);
223         return loops;
224 }
225
226 static int sbd_transmit_empty(struct sbd_port *sport)
227 {
228         return read_sbdchn(sport, R_DUART_STATUS) & M_DUART_TX_EMT;
229 }
230
231 static int sbd_line_drain(struct sbd_port *sport)
232 {
233         int loops = 10000;
234
235         while (!sbd_transmit_empty(sport) && loops--)
236                 udelay(2);
237         return loops;
238 }
239
240
241 static unsigned int sbd_tx_empty(struct uart_port *uport)
242 {
243         struct sbd_port *sport = to_sport(uport);
244
245         return sbd_transmit_empty(sport) ? TIOCSER_TEMT : 0;
246 }
247
248 static unsigned int sbd_get_mctrl(struct uart_port *uport)
249 {
250         struct sbd_port *sport = to_sport(uport);
251         unsigned int mctrl, status;
252
253         status = read_sbdshr(sport, R_DUART_IN_PORT);
254         status >>= (uport->line) % 2;
255         mctrl = (!(status & M_DUART_IN_PIN0_VAL) ? TIOCM_CTS : 0) |
256                 (!(status & M_DUART_IN_PIN4_VAL) ? TIOCM_CAR : 0) |
257                 (!(status & M_DUART_RIN0_PIN) ? TIOCM_RNG : 0) |
258                 (!(status & M_DUART_IN_PIN2_VAL) ? TIOCM_DSR : 0);
259         return mctrl;
260 }
261
262 static void sbd_set_mctrl(struct uart_port *uport, unsigned int mctrl)
263 {
264         struct sbd_port *sport = to_sport(uport);
265         unsigned int clr = 0, set = 0, mode2;
266
267         if (mctrl & TIOCM_DTR)
268                 set |= M_DUART_SET_OPR2;
269         else
270                 clr |= M_DUART_CLR_OPR2;
271         if (mctrl & TIOCM_RTS)
272                 set |= M_DUART_SET_OPR0;
273         else
274                 clr |= M_DUART_CLR_OPR0;
275         clr <<= (uport->line) % 2;
276         set <<= (uport->line) % 2;
277
278         mode2 = read_sbdchn(sport, R_DUART_MODE_REG_2);
279         mode2 &= ~M_DUART_CHAN_MODE;
280         if (mctrl & TIOCM_LOOP)
281                 mode2 |= V_DUART_CHAN_MODE_LCL_LOOP;
282         else
283                 mode2 |= V_DUART_CHAN_MODE_NORMAL;
284
285         write_sbdshr(sport, R_DUART_CLEAR_OPR, clr);
286         write_sbdshr(sport, R_DUART_SET_OPR, set);
287         write_sbdchn(sport, R_DUART_MODE_REG_2, mode2);
288 }
289
290 static void sbd_stop_tx(struct uart_port *uport)
291 {
292         struct sbd_port *sport = to_sport(uport);
293
294         write_sbdchn(sport, R_DUART_CMD, M_DUART_TX_DIS);
295         sport->tx_stopped = 1;
296 };
297
298 static void sbd_start_tx(struct uart_port *uport)
299 {
300         struct sbd_port *sport = to_sport(uport);
301         unsigned int mask;
302
303         /* Enable tx interrupts.  */
304         mask = read_sbdshr(sport, R_DUART_IMRREG((uport->line) % 2));
305         mask |= M_DUART_IMR_TX;
306         write_sbdshr(sport, R_DUART_IMRREG((uport->line) % 2), mask);
307
308         /* Go!, go!, go!...  */
309         write_sbdchn(sport, R_DUART_CMD, M_DUART_TX_EN);
310         sport->tx_stopped = 0;
311 };
312
313 static void sbd_stop_rx(struct uart_port *uport)
314 {
315         struct sbd_port *sport = to_sport(uport);
316
317         write_sbdshr(sport, R_DUART_IMRREG((uport->line) % 2), 0);
318 };
319
320 static void sbd_enable_ms(struct uart_port *uport)
321 {
322         struct sbd_port *sport = to_sport(uport);
323
324         write_sbdchn(sport, R_DUART_AUXCTL_X,
325                      M_DUART_CIN_CHNG_ENA | M_DUART_CTS_CHNG_ENA);
326 }
327
328 static void sbd_break_ctl(struct uart_port *uport, int break_state)
329 {
330         struct sbd_port *sport = to_sport(uport);
331
332         if (break_state == -1)
333                 write_sbdchn(sport, R_DUART_CMD, V_DUART_MISC_CMD_START_BREAK);
334         else
335                 write_sbdchn(sport, R_DUART_CMD, V_DUART_MISC_CMD_STOP_BREAK);
336 }
337
338
339 static void sbd_receive_chars(struct sbd_port *sport)
340 {
341         struct uart_port *uport = &sport->port;
342         struct uart_icount *icount;
343         unsigned int status, ch, flag;
344         int count;
345
346         for (count = 16; count; count--) {
347                 status = read_sbdchn(sport, R_DUART_STATUS);
348                 if (!(status & M_DUART_RX_RDY))
349                         break;
350
351                 ch = read_sbdchn(sport, R_DUART_RX_HOLD);
352
353                 flag = TTY_NORMAL;
354
355                 icount = &uport->icount;
356                 icount->rx++;
357
358                 if (unlikely(status &
359                              (M_DUART_RCVD_BRK | M_DUART_FRM_ERR |
360                               M_DUART_PARITY_ERR | M_DUART_OVRUN_ERR))) {
361                         if (status & M_DUART_RCVD_BRK) {
362                                 icount->brk++;
363                                 if (uart_handle_break(uport))
364                                         continue;
365                         } else if (status & M_DUART_FRM_ERR)
366                                 icount->frame++;
367                         else if (status & M_DUART_PARITY_ERR)
368                                 icount->parity++;
369                         if (status & M_DUART_OVRUN_ERR)
370                                 icount->overrun++;
371
372                         status &= uport->read_status_mask;
373                         if (status & M_DUART_RCVD_BRK)
374                                 flag = TTY_BREAK;
375                         else if (status & M_DUART_FRM_ERR)
376                                 flag = TTY_FRAME;
377                         else if (status & M_DUART_PARITY_ERR)
378                                 flag = TTY_PARITY;
379                 }
380
381                 if (uart_handle_sysrq_char(uport, ch))
382                         continue;
383
384                 uart_insert_char(uport, status, M_DUART_OVRUN_ERR, ch, flag);
385         }
386
387         tty_flip_buffer_push(uport->info->tty);
388 }
389
390 static void sbd_transmit_chars(struct sbd_port *sport)
391 {
392         struct uart_port *uport = &sport->port;
393         struct circ_buf *xmit = &sport->port.info->xmit;
394         unsigned int mask;
395         int stop_tx;
396
397         /* XON/XOFF chars.  */
398         if (sport->port.x_char) {
399                 write_sbdchn(sport, R_DUART_TX_HOLD, sport->port.x_char);
400                 sport->port.icount.tx++;
401                 sport->port.x_char = 0;
402                 return;
403         }
404
405         /* If nothing to do or stopped or hardware stopped.  */
406         stop_tx = (uart_circ_empty(xmit) || uart_tx_stopped(&sport->port));
407
408         /* Send char.  */
409         if (!stop_tx) {
410                 write_sbdchn(sport, R_DUART_TX_HOLD, xmit->buf[xmit->tail]);
411                 xmit->tail = (xmit->tail + 1) & (UART_XMIT_SIZE - 1);
412                 sport->port.icount.tx++;
413
414                 if (uart_circ_chars_pending(xmit) < WAKEUP_CHARS)
415                         uart_write_wakeup(&sport->port);
416         }
417
418         /* Are we are done?  */
419         if (stop_tx || uart_circ_empty(xmit)) {
420                 /* Disable tx interrupts.  */
421                 mask = read_sbdshr(sport, R_DUART_IMRREG((uport->line) % 2));
422                 mask &= ~M_DUART_IMR_TX;
423                 write_sbdshr(sport, R_DUART_IMRREG((uport->line) % 2), mask);
424         }
425 }
426
427 static void sbd_status_handle(struct sbd_port *sport)
428 {
429         struct uart_port *uport = &sport->port;
430         unsigned int delta;
431
432         delta = read_sbdshr(sport, R_DUART_INCHREG((uport->line) % 2));
433         delta >>= (uport->line) % 2;
434
435         if (delta & (M_DUART_IN_PIN0_VAL << S_DUART_IN_PIN_CHNG))
436                 uart_handle_cts_change(uport, !(delta & M_DUART_IN_PIN0_VAL));
437
438         if (delta & (M_DUART_IN_PIN2_VAL << S_DUART_IN_PIN_CHNG))
439                 uport->icount.dsr++;
440
441         if (delta & ((M_DUART_IN_PIN2_VAL | M_DUART_IN_PIN0_VAL) <<
442                      S_DUART_IN_PIN_CHNG))
443                 wake_up_interruptible(&uport->info->delta_msr_wait);
444 }
445
446 static irqreturn_t sbd_interrupt(int irq, void *dev_id)
447 {
448         struct sbd_port *sport = dev_id;
449         struct uart_port *uport = &sport->port;
450         irqreturn_t status = IRQ_NONE;
451         unsigned int intstat;
452         int count;
453
454         for (count = 16; count; count--) {
455                 intstat = read_sbdshr(sport,
456                                       R_DUART_ISRREG((uport->line) % 2));
457                 intstat &= read_sbdshr(sport,
458                                        R_DUART_IMRREG((uport->line) % 2));
459                 intstat &= M_DUART_ISR_ALL;
460                 if (!intstat)
461                         break;
462
463                 if (intstat & M_DUART_ISR_RX)
464                         sbd_receive_chars(sport);
465                 if (intstat & M_DUART_ISR_IN)
466                         sbd_status_handle(sport);
467                 if (intstat & M_DUART_ISR_TX)
468                         sbd_transmit_chars(sport);
469
470                 status = IRQ_HANDLED;
471         }
472
473         return status;
474 }
475
476
477 static int sbd_startup(struct uart_port *uport)
478 {
479         struct sbd_port *sport = to_sport(uport);
480         unsigned int mode1;
481         int ret;
482
483         ret = request_irq(sport->port.irq, sbd_interrupt,
484                           IRQF_SHARED, "sb1250-duart", sport);
485         if (ret)
486                 return ret;
487
488         /* Clear the receive FIFO.  */
489         sbd_receive_drain(sport);
490
491         /* Clear the interrupt registers.  */
492         write_sbdchn(sport, R_DUART_CMD, V_DUART_MISC_CMD_RESET_BREAK_INT);
493         read_sbdshr(sport, R_DUART_INCHREG((uport->line) % 2));
494
495         /* Set rx/tx interrupt to FIFO available.  */
496         mode1 = read_sbdchn(sport, R_DUART_MODE_REG_1);
497         mode1 &= ~(M_DUART_RX_IRQ_SEL_RXFULL | M_DUART_TX_IRQ_SEL_TXEMPT);
498         write_sbdchn(sport, R_DUART_MODE_REG_1, mode1);
499
500         /* Disable tx, enable rx.  */
501         write_sbdchn(sport, R_DUART_CMD, M_DUART_TX_DIS | M_DUART_RX_EN);
502         sport->tx_stopped = 1;
503
504         /* Enable interrupts.  */
505         write_sbdshr(sport, R_DUART_IMRREG((uport->line) % 2),
506                      M_DUART_IMR_IN | M_DUART_IMR_RX);
507
508         return 0;
509 }
510
511 static void sbd_shutdown(struct uart_port *uport)
512 {
513         struct sbd_port *sport = to_sport(uport);
514
515         write_sbdchn(sport, R_DUART_CMD, M_DUART_TX_DIS | M_DUART_RX_DIS);
516         sport->tx_stopped = 1;
517         free_irq(sport->port.irq, sport);
518 }
519
520
521 static void sbd_init_port(struct sbd_port *sport)
522 {
523         struct uart_port *uport = &sport->port;
524
525         if (sport->initialised)
526                 return;
527
528         /* There is no DUART reset feature, so just set some sane defaults.  */
529         write_sbdchn(sport, R_DUART_CMD, V_DUART_MISC_CMD_RESET_TX);
530         write_sbdchn(sport, R_DUART_CMD, V_DUART_MISC_CMD_RESET_RX);
531         write_sbdchn(sport, R_DUART_MODE_REG_1, V_DUART_BITS_PER_CHAR_8);
532         write_sbdchn(sport, R_DUART_MODE_REG_2, 0);
533         write_sbdchn(sport, R_DUART_FULL_CTL,
534                      V_DUART_INT_TIME(0) | V_DUART_SIG_FULL(15));
535         write_sbdchn(sport, R_DUART_OPCR_X, 0);
536         write_sbdchn(sport, R_DUART_AUXCTL_X, 0);
537         write_sbdshr(sport, R_DUART_IMRREG((uport->line) % 2), 0);
538
539         sport->initialised = 1;
540 }
541
542 static void sbd_set_termios(struct uart_port *uport, struct ktermios *termios,
543                             struct ktermios *old_termios)
544 {
545         struct sbd_port *sport = to_sport(uport);
546         unsigned int mode1 = 0, mode2 = 0, aux = 0;
547         unsigned int mode1mask = 0, mode2mask = 0, auxmask = 0;
548         unsigned int oldmode1, oldmode2, oldaux;
549         unsigned int baud, brg;
550         unsigned int command;
551
552         mode1mask |= ~(M_DUART_PARITY_MODE | M_DUART_PARITY_TYPE_ODD |
553                        M_DUART_BITS_PER_CHAR);
554         mode2mask |= ~M_DUART_STOP_BIT_LEN_2;
555         auxmask |= ~M_DUART_CTS_CHNG_ENA;
556
557         /* Byte size.  */
558         switch (termios->c_cflag & CSIZE) {
559         case CS5:
560         case CS6:
561                 /* Unsupported, leave unchanged.  */
562                 mode1mask |= M_DUART_PARITY_MODE;
563                 break;
564         case CS7:
565                 mode1 |= V_DUART_BITS_PER_CHAR_7;
566                 break;
567         case CS8:
568         default:
569                 mode1 |= V_DUART_BITS_PER_CHAR_8;
570                 break;
571         }
572
573         /* Parity and stop bits.  */
574         if (termios->c_cflag & CSTOPB)
575                 mode2 |= M_DUART_STOP_BIT_LEN_2;
576         else
577                 mode2 |= M_DUART_STOP_BIT_LEN_1;
578         if (termios->c_cflag & PARENB)
579                 mode1 |= V_DUART_PARITY_MODE_ADD;
580         else
581                 mode1 |= V_DUART_PARITY_MODE_NONE;
582         if (termios->c_cflag & PARODD)
583                 mode1 |= M_DUART_PARITY_TYPE_ODD;
584         else
585                 mode1 |= M_DUART_PARITY_TYPE_EVEN;
586
587         baud = uart_get_baud_rate(uport, termios, old_termios, 1200, 5000000);
588         brg = V_DUART_BAUD_RATE(baud);
589         /* The actual lower bound is 1221bps, so compensate.  */
590         if (brg > M_DUART_CLK_COUNTER)
591                 brg = M_DUART_CLK_COUNTER;
592
593         uart_update_timeout(uport, termios->c_cflag, baud);
594
595         uport->read_status_mask = M_DUART_OVRUN_ERR;
596         if (termios->c_iflag & INPCK)
597                 uport->read_status_mask |= M_DUART_FRM_ERR |
598                                            M_DUART_PARITY_ERR;
599         if (termios->c_iflag & (BRKINT | PARMRK))
600                 uport->read_status_mask |= M_DUART_RCVD_BRK;
601
602         uport->ignore_status_mask = 0;
603         if (termios->c_iflag & IGNPAR)
604                 uport->ignore_status_mask |= M_DUART_FRM_ERR |
605                                              M_DUART_PARITY_ERR;
606         if (termios->c_iflag & IGNBRK) {
607                 uport->ignore_status_mask |= M_DUART_RCVD_BRK;
608                 if (termios->c_iflag & IGNPAR)
609                         uport->ignore_status_mask |= M_DUART_OVRUN_ERR;
610         }
611
612         if (termios->c_cflag & CREAD)
613                 command = M_DUART_RX_EN;
614         else
615                 command = M_DUART_RX_DIS;
616
617         if (termios->c_cflag & CRTSCTS)
618                 aux |= M_DUART_CTS_CHNG_ENA;
619         else
620                 aux &= ~M_DUART_CTS_CHNG_ENA;
621
622         spin_lock(&uport->lock);
623
624         if (sport->tx_stopped)
625                 command |= M_DUART_TX_DIS;
626         else
627                 command |= M_DUART_TX_EN;
628
629         oldmode1 = read_sbdchn(sport, R_DUART_MODE_REG_1) & mode1mask;
630         oldmode2 = read_sbdchn(sport, R_DUART_MODE_REG_2) & mode2mask;
631         oldaux = read_sbdchn(sport, R_DUART_AUXCTL_X) & auxmask;
632
633         if (!sport->tx_stopped)
634                 sbd_line_drain(sport);
635         write_sbdchn(sport, R_DUART_CMD, M_DUART_TX_DIS | M_DUART_RX_DIS);
636
637         write_sbdchn(sport, R_DUART_MODE_REG_1, mode1 | oldmode1);
638         write_sbdchn(sport, R_DUART_MODE_REG_2, mode2 | oldmode2);
639         write_sbdchn(sport, R_DUART_CLK_SEL, brg);
640         write_sbdchn(sport, R_DUART_AUXCTL_X, aux | oldaux);
641
642         write_sbdchn(sport, R_DUART_CMD, command);
643
644         spin_unlock(&uport->lock);
645 }
646
647
648 static const char *sbd_type(struct uart_port *uport)
649 {
650         return "SB1250 DUART";
651 }
652
653 static void sbd_release_port(struct uart_port *uport)
654 {
655         struct sbd_port *sport = to_sport(uport);
656         struct sbd_duart *duart = sport->duart;
657         int map_guard;
658
659         iounmap(sport->memctrl);
660         sport->memctrl = NULL;
661         iounmap(uport->membase);
662         uport->membase = NULL;
663
664         map_guard = atomic_add_return(-1, &duart->map_guard);
665         if (!map_guard)
666                 release_mem_region(duart->mapctrl, DUART_CHANREG_SPACING);
667         release_mem_region(uport->mapbase, DUART_CHANREG_SPACING);
668 }
669
670 static int sbd_map_port(struct uart_port *uport)
671 {
672         const char *err = KERN_ERR "sbd: Cannot map MMIO\n";
673         struct sbd_port *sport = to_sport(uport);
674         struct sbd_duart *duart = sport->duart;
675
676         if (!uport->membase)
677                 uport->membase = ioremap_nocache(uport->mapbase,
678                                                  DUART_CHANREG_SPACING);
679         if (!uport->membase) {
680                 printk(err);
681                 return -ENOMEM;
682         }
683
684         if (!sport->memctrl)
685                 sport->memctrl = ioremap_nocache(duart->mapctrl,
686                                                  DUART_CHANREG_SPACING);
687         if (!sport->memctrl) {
688                 printk(err);
689                 iounmap(uport->membase);
690                 uport->membase = NULL;
691                 return -ENOMEM;
692         }
693
694         return 0;
695 }
696
697 static int sbd_request_port(struct uart_port *uport)
698 {
699         const char *err = KERN_ERR "sbd: Unable to reserve MMIO resource\n";
700         struct sbd_duart *duart = to_sport(uport)->duart;
701         int map_guard;
702         int ret = 0;
703
704         if (!request_mem_region(uport->mapbase, DUART_CHANREG_SPACING,
705                                 "sb1250-duart")) {
706                 printk(err);
707                 return -EBUSY;
708         }
709         map_guard = atomic_add_return(1, &duart->map_guard);
710         if (map_guard == 1) {
711                 if (!request_mem_region(duart->mapctrl, DUART_CHANREG_SPACING,
712                                         "sb1250-duart")) {
713                         atomic_add(-1, &duart->map_guard);
714                         printk(err);
715                         ret = -EBUSY;
716                 }
717         }
718         if (!ret) {
719                 ret = sbd_map_port(uport);
720                 if (ret) {
721                         map_guard = atomic_add_return(-1, &duart->map_guard);
722                         if (!map_guard)
723                                 release_mem_region(duart->mapctrl,
724                                                    DUART_CHANREG_SPACING);
725                 }
726         }
727         if (ret) {
728                 release_mem_region(uport->mapbase, DUART_CHANREG_SPACING);
729                 return ret;
730         }
731         return 0;
732 }
733
734 static void sbd_config_port(struct uart_port *uport, int flags)
735 {
736         struct sbd_port *sport = to_sport(uport);
737
738         if (flags & UART_CONFIG_TYPE) {
739                 if (sbd_request_port(uport))
740                         return;
741
742                 uport->type = PORT_SB1250_DUART;
743
744                 sbd_init_port(sport);
745         }
746 }
747
748 static int sbd_verify_port(struct uart_port *uport, struct serial_struct *ser)
749 {
750         int ret = 0;
751
752         if (ser->type != PORT_UNKNOWN && ser->type != PORT_SB1250_DUART)
753                 ret = -EINVAL;
754         if (ser->irq != uport->irq)
755                 ret = -EINVAL;
756         if (ser->baud_base != uport->uartclk / 16)
757                 ret = -EINVAL;
758         return ret;
759 }
760
761
762 static const struct uart_ops sbd_ops = {
763         .tx_empty       = sbd_tx_empty,
764         .set_mctrl      = sbd_set_mctrl,
765         .get_mctrl      = sbd_get_mctrl,
766         .stop_tx        = sbd_stop_tx,
767         .start_tx       = sbd_start_tx,
768         .stop_rx        = sbd_stop_rx,
769         .enable_ms      = sbd_enable_ms,
770         .break_ctl      = sbd_break_ctl,
771         .startup        = sbd_startup,
772         .shutdown       = sbd_shutdown,
773         .set_termios    = sbd_set_termios,
774         .type           = sbd_type,
775         .release_port   = sbd_release_port,
776         .request_port   = sbd_request_port,
777         .config_port    = sbd_config_port,
778         .verify_port    = sbd_verify_port,
779 };
780
781 /* Initialize SB1250 DUART port structures.  */
782 static void __init sbd_probe_duarts(void)
783 {
784         static int probed;
785         int chip, side;
786         int max_lines, line;
787
788         if (probed)
789                 return;
790
791         /* Set the number of available units based on the SOC type.  */
792         switch (soc_type) {
793         case K_SYS_SOC_TYPE_BCM1x55:
794         case K_SYS_SOC_TYPE_BCM1x80:
795                 max_lines = 4;
796                 break;
797         default:
798                 /* Assume at least two serial ports at the normal address.  */
799                 max_lines = 2;
800                 break;
801         }
802
803         probed = 1;
804
805         for (chip = 0, line = 0; chip < DUART_MAX_CHIP && line < max_lines;
806              chip++) {
807                 sbd_duarts[chip].mapctrl = SBD_CTRLREGS(line);
808
809                 for (side = 0; side < DUART_MAX_SIDE && line < max_lines;
810                      side++, line++) {
811                         struct sbd_port *sport = &sbd_duarts[chip].sport[side];
812                         struct uart_port *uport = &sport->port;
813
814                         sport->duart    = &sbd_duarts[chip];
815
816                         uport->irq      = SBD_INT(line);
817                         uport->uartclk  = 100000000 / 20 * 16;
818                         uport->fifosize = 16;
819                         uport->iotype   = UPIO_MEM;
820                         uport->flags    = UPF_BOOT_AUTOCONF;
821                         uport->ops      = &sbd_ops;
822                         uport->line     = line;
823                         uport->mapbase  = SBD_CHANREGS(line);
824                 }
825         }
826 }
827
828
829 #ifdef CONFIG_SERIAL_SB1250_DUART_CONSOLE
830 /*
831  * Serial console stuff.  Very basic, polling driver for doing serial
832  * console output.  The console_sem is held by the caller, so we
833  * shouldn't be interrupted for more console activity.
834  */
835 static void sbd_console_putchar(struct uart_port *uport, int ch)
836 {
837         struct sbd_port *sport = to_sport(uport);
838
839         sbd_transmit_drain(sport);
840         write_sbdchn(sport, R_DUART_TX_HOLD, ch);
841 }
842
843 static void sbd_console_write(struct console *co, const char *s,
844                               unsigned int count)
845 {
846         int chip = co->index / DUART_MAX_SIDE;
847         int side = co->index % DUART_MAX_SIDE;
848         struct sbd_port *sport = &sbd_duarts[chip].sport[side];
849         struct uart_port *uport = &sport->port;
850         unsigned long flags;
851         unsigned int mask;
852
853         /* Disable transmit interrupts and enable the transmitter. */
854         spin_lock_irqsave(&uport->lock, flags);
855         mask = read_sbdshr(sport, R_DUART_IMRREG((uport->line) % 2));
856         write_sbdshr(sport, R_DUART_IMRREG((uport->line) % 2),
857                      mask & ~M_DUART_IMR_TX);
858         write_sbdchn(sport, R_DUART_CMD, M_DUART_TX_EN);
859         spin_unlock_irqrestore(&uport->lock, flags);
860
861         uart_console_write(&sport->port, s, count, sbd_console_putchar);
862
863         /* Restore transmit interrupts and the transmitter enable. */
864         spin_lock_irqsave(&uport->lock, flags);
865         sbd_line_drain(sport);
866         if (sport->tx_stopped)
867                 write_sbdchn(sport, R_DUART_CMD, M_DUART_TX_DIS);
868         write_sbdshr(sport, R_DUART_IMRREG((uport->line) % 2), mask);
869         spin_unlock_irqrestore(&uport->lock, flags);
870 }
871
872 static int __init sbd_console_setup(struct console *co, char *options)
873 {
874         int chip = co->index / DUART_MAX_SIDE;
875         int side = co->index % DUART_MAX_SIDE;
876         struct sbd_port *sport = &sbd_duarts[chip].sport[side];
877         struct uart_port *uport = &sport->port;
878         int baud = 115200;
879         int bits = 8;
880         int parity = 'n';
881         int flow = 'n';
882         int ret;
883
884         if (!sport->duart)
885                 return -ENXIO;
886
887         ret = sbd_map_port(uport);
888         if (ret)
889                 return ret;
890
891         sbd_init_port(sport);
892
893         if (options)
894                 uart_parse_options(options, &baud, &parity, &bits, &flow);
895         return uart_set_options(uport, co, baud, parity, bits, flow);
896 }
897
898 static struct uart_driver sbd_reg;
899 static struct console sbd_console = {
900         .name   = "duart",
901         .write  = sbd_console_write,
902         .device = uart_console_device,
903         .setup  = sbd_console_setup,
904         .flags  = CON_PRINTBUFFER,
905         .index  = -1,
906         .data   = &sbd_reg
907 };
908
909 static int __init sbd_serial_console_init(void)
910 {
911         sbd_probe_duarts();
912         register_console(&sbd_console);
913
914         return 0;
915 }
916
917 console_initcall(sbd_serial_console_init);
918
919 #define SERIAL_SB1250_DUART_CONSOLE     &sbd_console
920 #else
921 #define SERIAL_SB1250_DUART_CONSOLE     NULL
922 #endif /* CONFIG_SERIAL_SB1250_DUART_CONSOLE */
923
924
925 static struct uart_driver sbd_reg = {
926         .owner          = THIS_MODULE,
927         .driver_name    = "sb1250_duart",
928         .dev_name       = "duart",
929         .major          = TTY_MAJOR,
930         .minor          = SB1250_DUART_MINOR_BASE,
931         .nr             = DUART_MAX_CHIP * DUART_MAX_SIDE,
932         .cons           = SERIAL_SB1250_DUART_CONSOLE,
933 };
934
935 /* Set up the driver and register it.  */
936 static int __init sbd_init(void)
937 {
938         int i, ret;
939
940         sbd_probe_duarts();
941
942         ret = uart_register_driver(&sbd_reg);
943         if (ret)
944                 return ret;
945
946         for (i = 0; i < DUART_MAX_CHIP * DUART_MAX_SIDE; i++) {
947                 struct sbd_duart *duart = &sbd_duarts[i / DUART_MAX_SIDE];
948                 struct sbd_port *sport = &duart->sport[i % DUART_MAX_SIDE];
949                 struct uart_port *uport = &sport->port;
950
951                 if (sport->duart)
952                         uart_add_one_port(&sbd_reg, uport);
953         }
954
955         return 0;
956 }
957
958 /* Unload the driver.  Unregister stuff, get ready to go away.  */
959 static void __exit sbd_exit(void)
960 {
961         int i;
962
963         for (i = DUART_MAX_CHIP * DUART_MAX_SIDE - 1; i >= 0; i--) {
964                 struct sbd_duart *duart = &sbd_duarts[i / DUART_MAX_SIDE];
965                 struct sbd_port *sport = &duart->sport[i % DUART_MAX_SIDE];
966                 struct uart_port *uport = &sport->port;
967
968                 if (sport->duart)
969                         uart_remove_one_port(&sbd_reg, uport);
970         }
971
972         uart_unregister_driver(&sbd_reg);
973 }
974
975 module_init(sbd_init);
976 module_exit(sbd_exit);