Home | History | Annotate | Line # | Download | only in powerpc
db_interface.c revision 1.11 
      1 /*	$NetBSD: db_interface.c,v 1.11 2001/06/22 11:40:41 simonb Exp $ */
      2 /*	$OpenBSD: db_interface.c,v 1.2 1996/12/28 06:21:50 rahnds Exp $	*/
      3 
      4 #define USERACC
      5 
      6 #include "opt_ddb.h"
      7 #include "opt_ppcarch.h"
      8 
      9 #include <sys/param.h>
     10 #include <sys/proc.h>
     11 #include <sys/systm.h>
     12 
     13 #include <dev/cons.h>
     14 
     15 #include <machine/db_machdep.h>
     16 #include <machine/frame.h>
     17 #ifdef PPC_IBM4XX
     18 #include <machine/tlb.h>
     19 #include <powerpc/spr.h>
     20 #include <uvm/uvm_extern.h>
     21 #endif
     22 
     23 #include <ddb/db_sym.h>
     24 #include <ddb/db_command.h>
     25 #include <ddb/db_extern.h>
     26 #include <ddb/db_access.h>
     27 #include <ddb/db_output.h>
     28 #include <ddb/ddbvar.h>
     29 
     30 int	db_active = 0;
     31 
     32 extern label_t *db_recover;
     33 
     34 void ddb_trap(void);				/* Call into trap_subr.S */
     35 int ddb_trap_glue(struct trapframe *);		/* Called from trap_subr.S */
     36 #ifdef PPC_IBM4XX
     37 static void db_ppc4xx_ctx(db_expr_t, int, db_expr_t, char *);
     38 static void db_ppc4xx_pv(db_expr_t, int, db_expr_t, char *);
     39 static void db_ppc4xx_reset(db_expr_t, int, db_expr_t, char *);
     40 static void db_ppc4xx_tf(db_expr_t, int, db_expr_t, char *);
     41 static void db_ppc4xx_dumptlb(db_expr_t, int, db_expr_t, char *);
     42 #ifdef USERACC
     43 static void db_ppc4xx_useracc(db_expr_t, int, db_expr_t, char *);
     44 #endif
     45 #endif /* PPC_IBM4XX */
     46 
     47 void
     48 cpu_Debugger()
     49 {
     50 	ddb_trap();
     51 }
     52 
     53 int
     54 ddb_trap_glue(frame)
     55 	struct trapframe *frame;
     56 {
     57 	if (!(frame->srr1 & PSL_PR)
     58 	    && (frame->exc == EXC_TRC
     59 		|| (frame->exc == EXC_PGM
     60 		    && (frame->srr1 & 0x20000))
     61 		|| frame->exc == EXC_BPT)) {
     62 
     63 		bcopy(frame->fixreg, DDB_REGS->r, 32 * sizeof(u_int32_t));
     64 		DDB_REGS->iar = frame->srr0;
     65 		DDB_REGS->msr = frame->srr1;
     66 
     67 		db_trap(T_BREAKPOINT, 0);
     68 
     69 		bcopy(DDB_REGS->r, frame->fixreg, 32 * sizeof(u_int32_t));
     70 
     71 		return 1;
     72 	}
     73 	return 0;
     74 }
     75 
     76 int
     77 kdb_trap(type, v)
     78 	int type;
     79 	void *v;
     80 {
     81 	struct trapframe *frame = v;
     82 
     83 	switch (type) {
     84 	case T_BREAKPOINT:
     85 	case -1:
     86 		break;
     87 	default:
     88 		if (!db_onpanic && db_recover == 0)
     89 			return 0;
     90 		if (db_recover != 0) {
     91 			db_error("Faulted in DDB; continuing...\n");
     92 			/*NOTREACHED*/
     93 		}
     94 	}
     95 
     96 	/* XXX Should switch to kdb's own stack here. */
     97 
     98 	bcopy(frame->fixreg, DDB_REGS->r, 32 * sizeof(u_int32_t));
     99 	DDB_REGS->iar = frame->srr0;
    100 	DDB_REGS->msr = frame->srr1;
    101 #ifdef PPC_IBM4XX
    102 	DDB_REGS->lr = frame->lr;
    103 	DDB_REGS->ctr = frame->ctr;
    104 	DDB_REGS->cr = frame->cr;
    105 	DDB_REGS->xer = frame->xer;
    106 	DDB_REGS->dear = frame->dear;
    107 	DDB_REGS->esr = frame->esr;
    108 	DDB_REGS->pid = frame->pid;
    109 #endif
    110 
    111 	db_active++;
    112 	cnpollc(1);
    113 	db_trap(T_BREAKPOINT, 0);
    114 	cnpollc(0);
    115 	db_active--;
    116 
    117 	bcopy(DDB_REGS->r, frame->fixreg, 32 * sizeof(u_int32_t));
    118 	frame->srr0 = DDB_REGS->iar;
    119 	frame->srr1 = DDB_REGS->msr;
    120 #ifdef PPC_IBM4XX
    121 	frame->lr = DDB_REGS->lr;
    122 	frame->ctr = DDB_REGS->ctr;
    123 	frame->cr = DDB_REGS->cr;
    124 	frame->xer = DDB_REGS->xer;
    125 	frame->dear = DDB_REGS->dear;
    126 	frame->esr = DDB_REGS->esr;
    127 	frame->pid = DDB_REGS->pid;
    128 #endif
    129 
    130 	return 1;
    131 }
    132 
    133 #ifdef PPC_IBM4XX
    134 const struct db_command db_machine_command_table[] = {
    135 	{ "ctx",	db_ppc4xx_ctx,		0,	0 },
    136 	{ "pv",		db_ppc4xx_pv,		0,	0 },
    137 	{ "reset",	db_ppc4xx_reset,	0,	0 },
    138 	{ "tf",		db_ppc4xx_tf,	0,	0 },
    139 	{ "tlb",	db_ppc4xx_dumptlb,	0,	0 },
    140 #ifdef USERACC
    141 	{ "user",	db_ppc4xx_useracc,	0,	0 },
    142 #endif
    143 	{ NULL, }
    144 };
    145 
    146 static void
    147 db_ppc4xx_ctx(db_expr_t addr, int have_addr, db_expr_t count, char *modif)
    148 {
    149 	struct proc *p;
    150 
    151 	/* XXX LOCKING XXX */
    152 	for (p = allproc.lh_first; p != 0; p = p->p_list.le_next) {
    153 		if (p->p_stat) {
    154 			db_printf("process %p:", p);
    155 			db_printf("pid:%d pmap:%p ctx:%d %s\n",
    156 				p->p_pid, p->p_vmspace->vm_map.pmap,
    157 				p->p_vmspace->vm_map.pmap->pm_ctx,
    158 				p->p_comm);
    159 		}
    160 	}
    161 	return;
    162 }
    163 
    164 static void
    165 db_ppc4xx_pv(db_expr_t addr, int have_addr, db_expr_t count, char *modif)
    166 {
    167 	struct pv_entry {
    168 		struct pv_entry *pv_next;	/* Linked list of mappings */
    169 		vaddr_t pv_va;			/* virtual address of mapping */
    170 		struct pmap *pv_pm;
    171 	};
    172 	struct pv_entry *pa_to_pv(paddr_t);
    173 	struct pv_entry *pv;
    174 
    175 	if (!have_addr) {
    176 		db_printf("pv: <pa>\n");
    177 		return;
    178 	}
    179 	pv = pa_to_pv(addr);
    180 	db_printf("pv at %p\n", pv);
    181 	while (pv && pv->pv_pm) {
    182 		db_printf("next %p va %p pmap %p\n", pv->pv_next,
    183 			(void *)pv->pv_va, pv->pv_pm);
    184 		pv = pv->pv_next;
    185 	}
    186 }
    187 
    188 static void
    189 db_ppc4xx_reset(db_expr_t addr, int have_addr, db_expr_t count, char *modif)
    190 {
    191 	printf("Reseting...\n");
    192 	ppc4xx_reset();
    193 }
    194 
    195 static void
    196 db_ppc4xx_tf(db_expr_t addr, int have_addr, db_expr_t count, char *modif)
    197 {
    198 	struct trapframe *f;
    199 
    200 
    201 	if (have_addr) {
    202 		f = (struct trapframe *)addr;
    203 
    204 		db_printf("r0-r3:  \t%8.8x %8.8x %8.8x %8.8x\n",
    205 			f->fixreg[0], f->fixreg[1],
    206 			f->fixreg[2], f->fixreg[3]);
    207 		db_printf("r4-r7:  \t%8.8x %8.8x %8.8x %8.8x\n",
    208 			f->fixreg[4], f->fixreg[5],
    209 			f->fixreg[6], f->fixreg[7]);
    210 		db_printf("r8-r11: \t%8.8x %8.8x %8.8x %8.8x\n",
    211 			f->fixreg[8], f->fixreg[9],
    212 			f->fixreg[10], f->fixreg[11]);
    213 		db_printf("r12-r15:\t%8.8x %8.8x %8.8x %8.8x\n",
    214 			f->fixreg[12], f->fixreg[13],
    215 			f->fixreg[14], f->fixreg[15]);
    216 		db_printf("r16-r19:\t%8.8x %8.8x %8.8x %8.8x\n",
    217 			f->fixreg[16], f->fixreg[17],
    218 			f->fixreg[18], f->fixreg[19]);
    219 		db_printf("r20-r23:\t%8.8x %8.8x %8.8x %8.8x\n",
    220 			f->fixreg[20], f->fixreg[21],
    221 			f->fixreg[22], f->fixreg[23]);
    222 		db_printf("r24-r27:\t%8.8x %8.8x %8.8x %8.8x\n",
    223 			f->fixreg[24], f->fixreg[25],
    224 			f->fixreg[26], f->fixreg[27]);
    225 		db_printf("r28-r31:\t%8.8x %8.8x %8.8x %8.8x\n",
    226 			f->fixreg[28], f->fixreg[29],
    227 			f->fixreg[30], f->fixreg[31]);
    228 
    229 		db_printf("lr: %8.8x cr: %8.8x xer: %8.8x ctr: %8.8x\n",
    230 			f->lr, f->cr, f->xer, f->ctr);
    231 		db_printf("srr0(pc): %8.8x srr1(msr): %8.8x "
    232 			"dear: %8.8x esr: %8.8x\n",
    233 			f->srr0, f->srr1, f->dear, f->esr);
    234 		db_printf("exc: %8.8x pid: %8.8x\n",
    235 			f->exc, f->pid);
    236 	}
    237 	return;
    238 }
    239 
    240 static const char *const tlbsizes[] = {
    241 	  "1kB",
    242 	  "4kB",
    243 	 "16kB",
    244 	 "64kB",
    245 	"256kB",
    246 	  "1MB",
    247 	  "4MB",
    248 	 "16MB"
    249 };
    250 
    251 static void
    252 db_ppc4xx_dumptlb(db_expr_t addr, int have_addr, db_expr_t count, char *modif)
    253 {
    254 	int i, zone, tlbsize;
    255 	u_int zpr, pid, opid, msr;
    256 	u_long tlblo, tlbhi, tlbmask;
    257 
    258 	zpr = mfspr(SPR_ZPR);
    259 	for (i = 0; i < NTLB; i++) {
    260 		asm volatile("mfmsr %3;"
    261 			"mfpid %4;"
    262 			"li %0,0;"
    263 			"mtmsr %0;"
    264 			"sync; isync;"
    265 			"tlbre %0,%5,1;"
    266 			"tlbre %1,%5,0;"
    267 			"mfpid %2;"
    268 			"mtpid %4;"
    269 			"mtmsr %3;"
    270 			"sync; isync"
    271 			: "=&r" (tlblo), "=&r" (tlbhi), "=r" (pid),
    272 			"=&r" (msr), "=&r" (opid) : "r" (i));
    273 
    274 		if (strchr(modif, 'v') && !(tlbhi & TLB_VALID))
    275 			continue;
    276 
    277 		tlbsize = (tlbhi & TLB_SIZE_MASK) >> TLB_SIZE_SHFT;
    278 		/* map tlbsize 0 .. 7 to masks for 1kB .. 16MB */
    279 		tlbmask = ~(1 << (tlbsize * 2 + 10)) + 1;
    280 
    281 		if (have_addr && ((tlbhi & tlbmask) != (addr & tlbmask)))
    282 			continue;
    283 
    284 		zone = (tlblo & TLB_ZSEL_MASK) >> TLB_ZSEL_SHFT;
    285 		db_printf("tlb%c%2d", tlbhi & TLB_VALID ? ' ' : '*', i);
    286 		db_printf("  PID %3d EPN 0x%08lx %-5s",
    287 		    pid,
    288 		    tlbhi & tlbmask,
    289 		    tlbsizes[tlbsize]);
    290 		db_printf("  RPN 0x%08lx  ZONE %2d%c  %s %s %c%c%c%c%c %s",
    291 		    tlblo & tlbmask,
    292 		    zone,
    293 		    "NTTA"[(zpr >> ((15 - zone) * 2)) & 3],
    294 		    tlblo & TLB_EX ? "EX" : "  ",
    295 		    tlblo & TLB_WR ? "WR" : "  ",
    296 		    tlblo & TLB_W ? 'W' : ' ',
    297 		    tlblo & TLB_I ? 'I' : ' ',
    298 		    tlblo & TLB_M ? 'M' : ' ',
    299 		    tlblo & TLB_G ? 'G' : ' ',
    300 		    tlbhi & TLB_ENDIAN ? 'E' : ' ',
    301 		    tlbhi & TLB_U0 ? "U0" : "  ");
    302 		db_printf("\n");
    303 	}
    304 }
    305 
    306 #ifdef USERACC
    307 static void
    308 db_ppc4xx_useracc(db_expr_t addr, int have_addr, db_expr_t count, char *modif)
    309 {
    310 	static paddr_t oldaddr = -1;
    311 	int instr = 0;
    312 	int data;
    313 	extern vaddr_t opc_disasm(vaddr_t loc, int);
    314 
    315 
    316 	if (!have_addr) {
    317 		addr = oldaddr;
    318 	}
    319 	if (addr == -1) {
    320 		db_printf("no address\n");
    321 		return;
    322 	}
    323 	addr &= ~0x3; /* align */
    324 	{
    325 		register char c, *cp = modif;
    326 		while ((c = *cp++) != 0)
    327 			if (c == 'i')
    328 				instr = 1;
    329 	}
    330 	while (count--) {
    331 		if (db_print_position() == 0) {
    332 			/* Always print the address. */
    333 			db_printf("%8.4lx:\t", addr);
    334 		}
    335 		oldaddr=addr;
    336 		copyin((void *)addr, &data, sizeof(data));
    337 		if (instr) {
    338 			opc_disasm(addr, data);
    339 		} else {
    340 			db_printf("%4.4x\n", data);
    341 		}
    342 		addr += 4;
    343 		db_end_line();
    344 	}
    345 
    346 }
    347 #endif
    348 
    349 #endif /* PPC_IBM4XX */
    350