Merge branch 'task_killable' of git://git.kernel.org/pub/scm/linux/kernel/git/willy...
[linux-2.6] / arch / ppc / xmon / start.c
1 /*
2  * Copyright (C) 1996 Paul Mackerras.
3  */
4 #include <linux/string.h>
5 #include <asm/machdep.h>
6 #include <asm/io.h>
7 #include <asm/page.h>
8 #include <linux/kernel.h>
9 #include <linux/errno.h>
10 #include <linux/sysrq.h>
11 #include <linux/bitops.h>
12 #include <asm/xmon.h>
13 #include <asm/errno.h>
14 #include <asm/processor.h>
15 #include <asm/delay.h>
16 #include <asm/btext.h>
17 #include <asm/ibm4xx.h>
18
19 static volatile unsigned char *sccc, *sccd;
20 unsigned int TXRDY, RXRDY, DLAB;
21 static int xmon_expect(const char *str, unsigned int timeout);
22
23 static int via_modem;
24
25 #define TB_SPEED        25000000
26
27 static inline unsigned int readtb(void)
28 {
29         unsigned int ret;
30
31         asm volatile("mftb %0" : "=r" (ret) :);
32         return ret;
33 }
34
35 void buf_access(void)
36 {
37         if (DLAB)
38                 sccd[3] &= ~DLAB;       /* reset DLAB */
39 }
40
41
42 #ifdef CONFIG_MAGIC_SYSRQ
43 static void sysrq_handle_xmon(int key, struct pt_regs *regs,
44                               struct tty_struct *tty)
45 {
46         xmon(regs);
47 }
48
49 static struct sysrq_key_op sysrq_xmon_op =
50 {
51         .handler =      sysrq_handle_xmon,
52         .help_msg =     "Xmon",
53         .action_msg =   "Entering xmon",
54 };
55 #endif
56
57 void
58 xmon_map_scc(void)
59 {
60 #if defined(CONFIG_405GP)
61         sccd = (volatile unsigned char *)0xef600300;
62 #elif defined(CONFIG_440EP)
63         sccd = (volatile unsigned char *) ioremap(PPC440EP_UART0_ADDR, 8);
64 #elif defined(CONFIG_440SP)
65         sccd = (volatile unsigned char *) ioremap64(PPC440SP_UART0_ADDR, 8);
66 #elif defined(CONFIG_440SPE)
67         sccd = (volatile unsigned char *) ioremap64(PPC440SPE_UART0_ADDR, 8);
68 #elif defined(CONFIG_44x)
69         /* This is the default for 44x platforms.  Any boards that have a
70            different UART address need to be put in cases before this or the
71            port will be mapped incorrectly */
72         sccd = (volatile unsigned char *) ioremap64(PPC440GP_UART0_ADDR, 8);
73 #endif /* platform */
74
75 #ifndef CONFIG_PPC_PREP
76         sccc = sccd + 5;
77         TXRDY = 0x20;
78         RXRDY = 1;
79         DLAB = 0x80;
80 #endif
81
82         register_sysrq_key('x', &sysrq_xmon_op);
83 }
84
85 static int scc_initialized;
86
87 void xmon_init_scc(void);
88
89 int
90 xmon_write(void *handle, void *ptr, int nb)
91 {
92         char *p = ptr;
93         int i, c, ct;
94
95 #ifdef CONFIG_SMP
96         static unsigned long xmon_write_lock;
97         int lock_wait = 1000000;
98         int locked;
99
100         while ((locked = test_and_set_bit(0, &xmon_write_lock)) != 0)
101                 if (--lock_wait == 0)
102                         break;
103 #endif
104
105         if (!scc_initialized)
106                 xmon_init_scc();
107         ct = 0;
108         for (i = 0; i < nb; ++i) {
109                 while ((*sccc & TXRDY) == 0)
110                         ;
111                 c = p[i];
112                 if (c == '\n' && !ct) {
113                         c = '\r';
114                         ct = 1;
115                         --i;
116                 } else {
117                         ct = 0;
118                 }
119                 buf_access();
120                 *sccd = c;
121                 eieio();
122         }
123
124 #ifdef CONFIG_SMP
125         if (!locked)
126                 clear_bit(0, &xmon_write_lock);
127 #endif
128         return nb;
129 }
130
131 int xmon_wants_key;
132
133
134 int
135 xmon_read(void *handle, void *ptr, int nb)
136 {
137     char *p = ptr;
138     int i;
139
140     if (!scc_initialized)
141         xmon_init_scc();
142     for (i = 0; i < nb; ++i) {
143         while ((*sccc & RXRDY) == 0)
144             ;
145         buf_access();
146         *p++ = *sccd;
147     }
148     return i;
149 }
150
151 int
152 xmon_read_poll(void)
153 {
154         if ((*sccc & RXRDY) == 0) {
155                 ;
156                 return -1;
157         }
158         buf_access();
159         return *sccd;
160 }
161
162 void
163 xmon_init_scc(void)
164 {
165         scc_initialized = 1;
166         if (via_modem) {
167                 for (;;) {
168                         xmon_write(NULL, "ATE1V1\r", 7);
169                         if (xmon_expect("OK", 5)) {
170                                 xmon_write(NULL, "ATA\r", 4);
171                                 if (xmon_expect("CONNECT", 40))
172                                         break;
173                         }
174                         xmon_write(NULL, "+++", 3);
175                         xmon_expect("OK", 3);
176                 }
177         }
178 }
179
180
181 void *xmon_stdin;
182 void *xmon_stdout;
183 void *xmon_stderr;
184
185 void
186 xmon_init(int arg)
187 {
188         xmon_map_scc();
189 }
190
191 int
192 xmon_putc(int c, void *f)
193 {
194     char ch = c;
195
196     if (c == '\n')
197         xmon_putc('\r', f);
198     return xmon_write(f, &ch, 1) == 1? c: -1;
199 }
200
201 int
202 xmon_putchar(int c)
203 {
204     return xmon_putc(c, xmon_stdout);
205 }
206
207 int
208 xmon_fputs(char *str, void *f)
209 {
210     int n = strlen(str);
211
212     return xmon_write(f, str, n) == n? 0: -1;
213 }
214
215 int
216 xmon_readchar(void)
217 {
218     char ch;
219
220     for (;;) {
221         switch (xmon_read(xmon_stdin, &ch, 1)) {
222         case 1:
223             return ch;
224         case -1:
225             xmon_printf("read(stdin) returned -1\r\n", 0, 0);
226             return -1;
227         }
228     }
229 }
230
231 static char line[256];
232 static char *lineptr;
233 static int lineleft;
234
235 int xmon_expect(const char *str, unsigned int timeout)
236 {
237         int c;
238         unsigned int t0;
239
240         timeout *= TB_SPEED;
241         t0 = readtb();
242         do {
243                 lineptr = line;
244                 for (;;) {
245                         c = xmon_read_poll();
246                         if (c == -1) {
247                                 if (readtb() - t0 > timeout)
248                                         return 0;
249                                 continue;
250                         }
251                         if (c == '\n')
252                                 break;
253                         if (c != '\r' && lineptr < &line[sizeof(line) - 1])
254                                 *lineptr++ = c;
255                 }
256                 *lineptr = 0;
257         } while (strstr(line, str) == NULL);
258         return 1;
259 }
260
261 int
262 xmon_getchar(void)
263 {
264     int c;
265
266     if (lineleft == 0) {
267         lineptr = line;
268         for (;;) {
269             c = xmon_readchar();
270             if (c == -1 || c == 4)
271                 break;
272             if (c == '\r' || c == '\n') {
273                 *lineptr++ = '\n';
274                 xmon_putchar('\n');
275                 break;
276             }
277             switch (c) {
278             case 0177:
279             case '\b':
280                 if (lineptr > line) {
281                     xmon_putchar('\b');
282                     xmon_putchar(' ');
283                     xmon_putchar('\b');
284                     --lineptr;
285                 }
286                 break;
287             case 'U' & 0x1F:
288                 while (lineptr > line) {
289                     xmon_putchar('\b');
290                     xmon_putchar(' ');
291                     xmon_putchar('\b');
292                     --lineptr;
293                 }
294                 break;
295             default:
296                 if (lineptr >= &line[sizeof(line) - 1])
297                     xmon_putchar('\a');
298                 else {
299                     xmon_putchar(c);
300                     *lineptr++ = c;
301                 }
302             }
303         }
304         lineleft = lineptr - line;
305         lineptr = line;
306     }
307     if (lineleft == 0)
308         return -1;
309     --lineleft;
310     return *lineptr++;
311 }
312
313 char *
314 xmon_fgets(char *str, int nb, void *f)
315 {
316     char *p;
317     int c;
318
319     for (p = str; p < str + nb - 1; ) {
320         c = xmon_getchar();
321         if (c == -1) {
322             if (p == str)
323                 return NULL;
324             break;
325         }
326         *p++ = c;
327         if (c == '\n')
328             break;
329     }
330     *p = 0;
331     return str;
332 }
333
334 void
335 xmon_enter(void)
336 {
337 }
338
339 void
340 xmon_leave(void)
341 {
342 }