1 /*
2 * CDDL HEADER START
3 *
4 * The contents of this file are subject to the terms of the
5 * Common Development and Distribution License, Version 1.0 only
6 * (the "License"). You may not use this file except in compliance
7 * with the License.
8 *
9 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
10 * or http://www.opensolaris.org/os/licensing.
11 * See the License for the specific language governing permissions
12 * and limitations under the License.
13 *
14 * When distributing Covered Code, include this CDDL HEADER in each
15 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
16 * If applicable, add the following below this CDDL HEADER, with the
17 * fields enclosed by brackets "[]" replaced with your own identifying
18 * information: Portions Copyright [yyyy] [name of copyright owner]
19 *
20 * CDDL HEADER END
21 */
22 /*
23 * Copyright 2005 Sun Microsystems, Inc. All rights reserved.
24 * Use is subject to license terms.
25 */
26
27 #pragma ident "%Z%%M% %I% %E% SMI"
28
29 /*
30 * SPARC-specific portions of the debugger fault routines
31 */
32
33 #include <sys/types.h>
34 #include <sys/stack.h>
35 #include <sys/frame.h>
36 #include <sys/machtrap.h>
37 #include <sys/machasi.h>
38 #include <sys/sun4asi.h>
39 #include <sys/intreg.h>
40 #include <sys/mmu.h>
41
42 #include <kmdb/kmdb_asmutil.h>
43 #include <kmdb/kmdb_fault.h>
44 #include <mdb/mdb_io.h>
45 #include <mdb/mdb.h>
46
47 #define MAX_STACK_FRAMES 30
48
49 static void
print_frame(uintptr_t sp,uintptr_t pc,int fnum,int safe)50 print_frame(uintptr_t sp, uintptr_t pc, int fnum, int safe)
51 {
52 if (safe) {
53 mdb_iob_printf(mdb.m_err, " [%2d] %?p %?p()\n",
54 fnum, sp, pc);
55 } else {
56 mdb_iob_printf(mdb.m_err, " [%2d] %?p %a()\n",
57 fnum, sp, pc);
58 }
59 }
60
61 static int
valid_frame(struct frame * fr)62 valid_frame(struct frame *fr)
63 {
64 uintptr_t addr = (uintptr_t)fr;
65
66 if (!(addr - (uintptr_t)mdb.m_dseg < mdb.m_dsegsz)) {
67 mdb_iob_printf(mdb.m_err, " frame (%p) outside of "
68 "debugger segment\n", addr);
69 return (0);
70 }
71
72 if (addr & (STACK_ALIGN - 1)) {
73 mdb_iob_printf(mdb.m_err, " mis-aligned frame (%p)\n", fr);
74 return (0);
75 }
76
77 return (1);
78 }
79
80 static void
print_stack(kreg_t sp,int safe)81 print_stack(kreg_t sp, int safe)
82 {
83 struct frame *fr = (struct frame *)(sp + STACK_BIAS);
84 struct frame *nfr;
85 int frnum = 1;
86
87 while (fr != NULL && valid_frame(fr) && fr->fr_savpc != 0 &&
88 frnum <= MAX_STACK_FRAMES) {
89 print_frame((uintptr_t)fr - STACK_BIAS, fr->fr_savpc, frnum++,
90 safe);
91
92 nfr = (struct frame *)
93 ((uintptr_t)fr->fr_savfp + STACK_BIAS);
94
95 if ((uintptr_t)nfr == STACK_BIAS)
96 break;
97
98 if ((uintptr_t)nfr < (uintptr_t)fr) {
99 mdb_iob_printf(mdb.m_err,
100 " fp (%p) < sp (%p)\n", nfr, fr);
101 break;
102 }
103
104 fr = nfr;
105 }
106 }
107
108 void
kmdb_print_stack(void)109 kmdb_print_stack(void)
110 {
111 print_stack(get_fp(), FALSE); /* show sym names */
112 }
113
114 void
kmdb_fault_display(kreg_t tt,kreg_t pc,kreg_t sp,int safe)115 kmdb_fault_display(kreg_t tt, kreg_t pc, kreg_t sp, int safe)
116 {
117 mdb_iob_printf(mdb.m_err, " tt: %p, sp: %p, pc: %p", tt, sp, pc);
118 if (!safe)
119 mdb_iob_printf(mdb.m_err, " %A", pc);
120 mdb_iob_printf(mdb.m_err, "\n");
121
122 switch (tt) {
123 case T_FAST_DATA_MMU_MISS: {
124 #ifdef sun4v
125 #else /* sun4v */
126 uint64_t dsfar = rdasi(ASI_DMMU, MMU_SFAR);
127 const char *fmt = safe ? "%s%p\n" : "%s%a\n";
128 mdb_iob_printf(mdb.m_err, fmt, "\tDSFAR now: ", dsfar);
129 #endif /* sun4v */
130 break;
131 }
132 case T_VECTORED_INT:
133 #ifdef sun4v
134 #else /* sun4v */
135 mdb_iob_printf(mdb.m_err,
136 "\tIRDR now: 0: %lx, 1: %lx, 2: %lx\n",
137 (ulong_t)rdasi(ASI_INTR_RECEIVE, IRDR_0),
138 (ulong_t)rdasi(ASI_INTR_RECEIVE, IRDR_1),
139 (ulong_t)rdasi(ASI_INTR_RECEIVE, IRDR_2));
140 #endif /* sun4v */
141 break;
142 }
143
144 mdb_iob_printf(mdb.m_err, "\n");
145
146 if (mdb.m_dseg == NULL || mdb.m_dsegsz == 0) {
147 mdb_iob_printf(mdb.m_err,
148 "\t*** Stack trace omitted because debugger segment size\n"
149 "\t*** and/or length not set.\n");
150 return;
151 }
152
153 if (!(sp - (uintptr_t)mdb.m_dseg < mdb.m_dsegsz)) {
154 mdb_iob_printf(mdb.m_err,
155 "\t*** Stack trace omitted because sp (%p) isn't in the\n"
156 "\t*** debugger segment.\n", sp);
157 return;
158 }
159
160 flush_windows();
161
162 print_stack(sp, safe);
163 }
164