comlogout.c revision 1.4 1 1.4 thorpej /* $NetBSD: comlogout.c,v 1.4 2001/01/03 21:40:25 thorpej Exp $ */
2 1.4 thorpej
3 1.1 mjacob /*
4 1.1 mjacob * Copyright (c) 1998 by Matthew Jacob
5 1.1 mjacob * NASA AMES Research Center.
6 1.1 mjacob * All rights reserved.
7 1.1 mjacob *
8 1.1 mjacob * Redistribution and use in source and binary forms, with or without
9 1.1 mjacob * modification, are permitted provided that the following conditions
10 1.1 mjacob * are met:
11 1.1 mjacob * 1. Redistributions of source code must retain the above copyright
12 1.1 mjacob * notice immediately at the beginning of the file, without modification,
13 1.1 mjacob * this list of conditions, and the following disclaimer.
14 1.1 mjacob * 2. Redistributions in binary form must reproduce the above copyright
15 1.1 mjacob * notice, this list of conditions and the following disclaimer in the
16 1.1 mjacob * documentation and/or other materials provided with the distribution.
17 1.1 mjacob * 3. The name of the author may not be used to endorse or promote products
18 1.1 mjacob * derived from this software without specific prior written permission.
19 1.1 mjacob *
20 1.1 mjacob * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
21 1.1 mjacob * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
22 1.1 mjacob * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
23 1.1 mjacob * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE FOR
24 1.1 mjacob * ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
25 1.1 mjacob * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
26 1.1 mjacob * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
27 1.1 mjacob * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
28 1.1 mjacob * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
29 1.1 mjacob * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
30 1.1 mjacob * SUCH DAMAGE.
31 1.1 mjacob */
32 1.1 mjacob
33 1.1 mjacob #include <sys/cdefs.h>
34 1.4 thorpej __KERNEL_RCSID(0, "$NetBSD: comlogout.c,v 1.4 2001/01/03 21:40:25 thorpej Exp $");
35 1.1 mjacob
36 1.1 mjacob #include <sys/param.h>
37 1.1 mjacob #include <sys/systm.h>
38 1.1 mjacob #include <sys/device.h>
39 1.1 mjacob
40 1.1 mjacob #include <machine/rpb.h>
41 1.1 mjacob #include <machine/autoconf.h>
42 1.1 mjacob #include <machine/bus.h>
43 1.1 mjacob #include <machine/frame.h>
44 1.1 mjacob #include <machine/cpuconf.h>
45 1.1 mjacob #include <machine/logout.h>
46 1.1 mjacob
47 1.1 mjacob /*
48 1.1 mjacob * Common PAL Logout Handling Code
49 1.1 mjacob */
50 1.1 mjacob
51 1.1 mjacob /* (pretty much just structured console printout right now) */
52 1.1 mjacob
53 1.1 mjacob void
54 1.4 thorpej ev5_logout_print(mc_hdr_ev5 *ev5lohdrp, mc_uc_ev5 *mcucev5p)
55 1.1 mjacob {
56 1.1 mjacob int i;
57 1.1 mjacob static const char *fmt1 = " %-30s = 0x%l016x\n";
58 1.1 mjacob
59 1.1 mjacob printf(" Processor Machine Check (%x), Code 0x%lx\n",
60 1.1 mjacob ALPHA_PROC_MCHECK, ev5lohdrp->mcheck_code);
61 1.1 mjacob /* Print PAL fields */
62 1.1 mjacob for (i = 0; i < 24; i += 2) {
63 1.2 thorpej printf("\tPAL temp[%d-%d]\t\t= 0x%16lx 0x%16lx\n", i, i+1,
64 1.1 mjacob mcucev5p->paltemp[i], mcucev5p->paltemp[i+1]);
65 1.1 mjacob }
66 1.1 mjacob for (i = 0; i < 8; i += 2) {
67 1.2 thorpej printf("\tshadow[%d-%d]\t\t\t= 0x%16lx 0x%16lx\n", i, i+1,
68 1.1 mjacob mcucev5p->shadow[i], mcucev5p->shadow[i+1]);
69 1.1 mjacob }
70 1.1 mjacob printf("\n");
71 1.1 mjacob printf(fmt1, "Excepting Instruction Addr", mcucev5p->exc_addr);
72 1.1 mjacob printf(fmt1, "Summary of arithmetic traps", mcucev5p->exc_sum);
73 1.1 mjacob printf(fmt1, "Exception mask", mcucev5p->exc_mask);
74 1.1 mjacob printf(fmt1, "Base address for PALcode", mcucev5p->pal_base);
75 1.1 mjacob printf(fmt1, "Interrupt Status Reg", mcucev5p->isr);
76 1.1 mjacob printf(fmt1, "Current setup of EV5 IBOX", mcucev5p->icsr);
77 1.1 mjacob printf(fmt1, (mcucev5p->ic_perr_stat & 0x800)?
78 1.1 mjacob "I-CACHE Reg Data parity error" :
79 1.1 mjacob "I-CACHE Reg Tag parity error", mcucev5p->ic_perr_stat);
80 1.1 mjacob printf(fmt1, "D-CACHE error Reg", mcucev5p->dc_perr_stat);
81 1.1 mjacob
82 1.1 mjacob if (mcucev5p->dc_perr_stat & 0x2) {
83 1.1 mjacob switch (mcucev5p->dc_perr_stat & 0x3c) {
84 1.1 mjacob case 8:
85 1.1 mjacob printf(" %-40s\n", "Data error in bank 1");
86 1.1 mjacob break;
87 1.1 mjacob case 4:
88 1.1 mjacob printf(" %-40s\n", "Data error in bank 0");
89 1.1 mjacob break;
90 1.1 mjacob case 20:
91 1.1 mjacob printf(" %-40s\n", "Tag error in bank 1");
92 1.1 mjacob break;
93 1.1 mjacob case 10:
94 1.1 mjacob printf(" %-40s\n", "Tag error in bank 0");
95 1.1 mjacob break;
96 1.1 mjacob }
97 1.1 mjacob }
98 1.1 mjacob printf(fmt1, "Effective VA", mcucev5p->va);
99 1.1 mjacob printf(fmt1, "Reason for D-stream", mcucev5p->mm_stat);
100 1.1 mjacob printf(fmt1, "EV5 SCache address", mcucev5p->sc_addr);
101 1.1 mjacob printf(fmt1, "EV5 SCache TAG/Data parity", mcucev5p->sc_stat);
102 1.1 mjacob printf(fmt1, "EV5 BC_TAG_ADDR", mcucev5p->bc_tag_addr);
103 1.1 mjacob printf(fmt1, "EV5 EI_ADDR Phys addr of Xfer", mcucev5p->ei_addr);
104 1.1 mjacob printf(fmt1, "Fill Syndrome", mcucev5p->fill_syndrome);
105 1.1 mjacob printf(fmt1, "ei_stat reg", mcucev5p->ei_stat);
106 1.1 mjacob printf(fmt1, "ld_lock", mcucev5p->ld_lock);
107 1.1 mjacob }
108