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 */
24char *err_print_prefix = KERN_NOTICE;
25
26
27/*
28 * Generic
29 */
30void
31mchk_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
46void
47mchk_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
80/*
81 * Console Data Log
82 */
83/* Data */
84static struct el_subpacket_handler *subpacket_handler_list = NULL;
85static struct el_subpacket_annotation *subpacket_annotation_list = NULL;
86
87static struct el_subpacket *
88el_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
155static struct el_subpacket *
156el_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
167void
168el_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
178void
179el_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
193struct el_subpacket *
194el_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
218void
219el_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
240static void __init
241cdl_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
262void __init
263cdl_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
278int __init
279cdl_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
300int __init
301cdl_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
321