Merge branch 'for-linus' of git://git.kernel.org/pub/scm/linux/kernel/git/roland...
[linux-2.6] / arch / alpha / kernel / err_common.c
1 /*
2  *      linux/arch/alpha/kernel/err_common.c
3  *
4  *      Copyright (C) 2000 Jeff Wiedemeier (Compaq Computer Corporation)
5  *
6  *      Error handling code supporting Alpha systems
7  */
8
9 #include <linux/init.h>
10 #include <linux/sched.h>
11
12 #include <asm/io.h>
13 #include <asm/hwrpb.h>
14 #include <asm/smp.h>
15 #include <asm/err_common.h>
16
17 #include "err_impl.h"
18 #include "proto.h"
19
20 /*
21  * err_print_prefix -- error handling print routines should prefix
22  * all prints with this
23  */
24 char *err_print_prefix = KERN_NOTICE;
25
26 \f
27 /*
28  * Generic
29  */
30 void
31 mchk_dump_mem(void *data, size_t length, char **annotation)
32 {
33         unsigned long *ldata = data;
34         size_t i;
35         
36         for (i = 0; (i * sizeof(*ldata)) < length; i++) {
37                 if (annotation && !annotation[i]) 
38                         annotation = NULL;
39                 printk("%s    %08x: %016lx    %s\n",
40                        err_print_prefix,
41                        (unsigned)(i * sizeof(*ldata)), ldata[i],
42                        annotation ? annotation[i] : "");
43         }
44 }
45
46 void
47 mchk_dump_logout_frame(struct el_common *mchk_header)
48 {
49         printk("%s  -- Frame Header --\n"
50                  "    Frame Size:   %d (0x%x) bytes\n"
51                  "    Flags:        %s%s\n"
52                  "    MCHK Code:    0x%x\n"
53                  "    Frame Rev:    %d\n"
54                  "    Proc Offset:  0x%08x\n"
55                  "    Sys Offset:   0x%08x\n"
56                  "  -- Processor Region --\n",
57                err_print_prefix, 
58                mchk_header->size, mchk_header->size,
59                mchk_header->retry ? "RETRY " : "", 
60                  mchk_header->err2 ? "SECOND_ERR " : "",
61                mchk_header->code,
62                mchk_header->frame_rev,
63                mchk_header->proc_offset,
64                mchk_header->sys_offset);
65
66         mchk_dump_mem((void *)
67                       ((unsigned long)mchk_header + mchk_header->proc_offset),
68                       mchk_header->sys_offset - mchk_header->proc_offset,
69                       NULL);
70         
71         printk("%s  -- System Region --\n", err_print_prefix);
72         mchk_dump_mem((void *)
73                       ((unsigned long)mchk_header + mchk_header->sys_offset),
74                       mchk_header->size - mchk_header->sys_offset,
75                       NULL);
76         printk("%s  -- End of Frame --\n", err_print_prefix);
77 }
78
79 \f
80 /*
81  * Console Data Log
82  */
83 /* Data */
84 static struct el_subpacket_handler *subpacket_handler_list = NULL;
85 static struct el_subpacket_annotation *subpacket_annotation_list = NULL;
86
87 static struct el_subpacket *
88 el_process_header_subpacket(struct el_subpacket *header)
89 {
90         union el_timestamp timestamp;
91         char *name = "UNKNOWN EVENT";
92         int packet_count = 0;
93         int length = 0;
94
95         if (header->class != EL_CLASS__HEADER) {
96                 printk("%s** Unexpected header CLASS %d TYPE %d, aborting\n",
97                        err_print_prefix,
98                        header->class, header->type);
99                 return NULL;
100         }
101
102         switch(header->type) {
103         case EL_TYPE__HEADER__SYSTEM_ERROR_FRAME:
104                 name = "SYSTEM ERROR";
105                 length = header->by_type.sys_err.frame_length;
106                 packet_count = 
107                         header->by_type.sys_err.frame_packet_count;
108                 timestamp.as_int = 0;
109                 break;
110         case EL_TYPE__HEADER__SYSTEM_EVENT_FRAME:
111                 name = "SYSTEM EVENT";
112                 length = header->by_type.sys_event.frame_length;
113                 packet_count = 
114                         header->by_type.sys_event.frame_packet_count;
115                 timestamp = header->by_type.sys_event.timestamp;
116                 break;
117         case EL_TYPE__HEADER__HALT_FRAME:
118                 name = "ERROR HALT";
119                 length = header->by_type.err_halt.frame_length;
120                 packet_count = 
121                         header->by_type.err_halt.frame_packet_count;
122                 timestamp = header->by_type.err_halt.timestamp;
123                 break;
124         case EL_TYPE__HEADER__LOGOUT_FRAME:
125                 name = "LOGOUT FRAME";
126                 length = header->by_type.logout_header.frame_length;
127                 packet_count = 1;
128                 timestamp.as_int = 0;
129                 break;
130         default: /* Unknown */
131                 printk("%s** Unknown header - CLASS %d TYPE %d, aborting\n",
132                        err_print_prefix,
133                        header->class, header->type);
134                 return NULL;            
135         }
136
137         printk("%s*** %s:\n"
138                  "  CLASS %d, TYPE %d\n", 
139                err_print_prefix,
140                name,
141                header->class, header->type);
142         el_print_timestamp(&timestamp);
143         
144         /*
145          * Process the subpackets
146          */
147         el_process_subpackets(header, packet_count);
148
149         /* return the next header */
150         header = (struct el_subpacket *)
151                 ((unsigned long)header + header->length + length);
152         return header;
153 }
154
155 static struct el_subpacket *
156 el_process_subpacket_reg(struct el_subpacket *header)
157 {
158         struct el_subpacket *next = NULL;
159         struct el_subpacket_handler *h = subpacket_handler_list;
160
161         for (; h && h->class != header->class; h = h->next);
162         if (h) next = h->handler(header);
163
164         return next;
165 }
166
167 void
168 el_print_timestamp(union el_timestamp *timestamp)
169 {
170         if (timestamp->as_int)
171                 printk("%s  TIMESTAMP: %d/%d/%02d %d:%02d:%0d\n", 
172                        err_print_prefix,
173                        timestamp->b.month, timestamp->b.day,
174                        timestamp->b.year, timestamp->b.hour,
175                        timestamp->b.minute, timestamp->b.second);
176 }
177
178 void
179 el_process_subpackets(struct el_subpacket *header, int packet_count)
180 {
181         struct el_subpacket *subpacket;
182         int i;
183
184         subpacket = (struct el_subpacket *)
185                 ((unsigned long)header + header->length);
186
187         for (i = 0; subpacket && i < packet_count; i++) {
188                 printk("%sPROCESSING SUBPACKET %d\n", err_print_prefix, i);
189                 subpacket = el_process_subpacket(subpacket);
190         }
191 }
192
193 struct el_subpacket *
194 el_process_subpacket(struct el_subpacket *header)
195 {
196         struct el_subpacket *next = NULL;
197
198         switch(header->class) {
199         case EL_CLASS__TERMINATION:
200                 /* Termination packet, there are no more */
201                 break;
202         case EL_CLASS__HEADER: 
203                 next = el_process_header_subpacket(header);
204                 break;
205         default:
206                 if (NULL == (next = el_process_subpacket_reg(header))) {
207                         printk("%s** Unexpected header CLASS %d TYPE %d"
208                                " -- aborting.\n",
209                                err_print_prefix,
210                                header->class, header->type);
211                 }
212                 break;
213         }
214
215         return next;
216 }
217
218 void 
219 el_annotate_subpacket(struct el_subpacket *header)
220 {
221         struct el_subpacket_annotation *a;
222         char **annotation = NULL;
223
224         for (a = subpacket_annotation_list; a; a = a->next) {
225                 if (a->class == header->class &&
226                     a->type == header->type &&
227                     a->revision == header->revision) {
228                         /*
229                          * We found the annotation
230                          */
231                         annotation = a->annotation;
232                         printk("%s  %s\n", err_print_prefix, a->description);
233                         break;
234                 }
235         }
236
237         mchk_dump_mem(header, header->length, annotation);
238 }
239
240 static void __init
241 cdl_process_console_data_log(int cpu, struct percpu_struct *pcpu)
242 {
243         struct el_subpacket *header = (struct el_subpacket *)
244                 (IDENT_ADDR | pcpu->console_data_log_pa);
245         int err;
246
247         printk("%s******* CONSOLE DATA LOG FOR CPU %d. *******\n"
248                  "*** Error(s) were logged on a previous boot\n",
249                err_print_prefix, cpu);
250         
251         for (err = 0; header && (header->class != EL_CLASS__TERMINATION); err++)
252                 header = el_process_subpacket(header);
253
254         /* let the console know it's ok to clear the error(s) at restart */
255         pcpu->console_data_log_pa = 0;
256
257         printk("%s*** %d total error(s) logged\n"
258                  "**** END OF CONSOLE DATA LOG FOR CPU %d ****\n", 
259                err_print_prefix, err, cpu);
260 }
261
262 void __init
263 cdl_check_console_data_log(void)
264 {
265         struct percpu_struct *pcpu;
266         unsigned long cpu;
267
268         for (cpu = 0; cpu < hwrpb->nr_processors; cpu++) {
269                 pcpu = (struct percpu_struct *)
270                         ((unsigned long)hwrpb + hwrpb->processor_offset 
271                          + cpu * hwrpb->processor_size);
272                 if (pcpu->console_data_log_pa)
273                         cdl_process_console_data_log(cpu, pcpu);
274         }
275
276 }
277
278 int __init
279 cdl_register_subpacket_annotation(struct el_subpacket_annotation *new)
280 {
281         struct el_subpacket_annotation *a = subpacket_annotation_list;
282
283         if (a == NULL) subpacket_annotation_list = new;
284         else {
285                 for (; a->next != NULL; a = a->next) {
286                         if ((a->class == new->class && a->type == new->type) ||
287                             a == new) {
288                                 printk("Attempted to re-register "
289                                        "subpacket annotation\n");
290                                 return -EINVAL;
291                         }
292                 }
293                 a->next = new;
294         }
295         new->next = NULL;
296
297         return 0;
298 }
299
300 int __init
301 cdl_register_subpacket_handler(struct el_subpacket_handler *new)
302 {
303         struct el_subpacket_handler *h = subpacket_handler_list;
304
305         if (h == NULL) subpacket_handler_list = new;
306         else {
307                 for (; h->next != NULL; h = h->next) {
308                         if (h->class == new->class || h == new) {
309                                 printk("Attempted to re-register "
310                                        "subpacket handler\n");
311                                 return -EINVAL;
312                         }
313                 }
314                 h->next = new;
315         }
316         new->next = NULL;
317
318         return 0;
319 }
320