Home | History | Annotate | Line # | Download | only in arm32
db_interface.c revision 1.59
      1 /*	$NetBSD: db_interface.c,v 1.59 2019/07/21 16:12:59 rin Exp $	*/
      2 
      3 /*
      4  * Copyright (c) 1996 Scott K. Stevens
      5  *
      6  * Mach Operating System
      7  * Copyright (c) 1991,1990 Carnegie Mellon University
      8  * All Rights Reserved.
      9  *
     10  * Permission to use, copy, modify and distribute this software and its
     11  * documentation is hereby granted, provided that both the copyright
     12  * notice and this permission notice appear in all copies of the
     13  * software, derivative works or modified versions, and any portions
     14  * thereof, and that both notices appear in supporting documentation.
     15  *
     16  * CARNEGIE MELLON ALLOWS FREE USE OF THIS SOFTWARE IN ITS "AS IS"
     17  * CONDITION.  CARNEGIE MELLON DISCLAIMS ANY LIABILITY OF ANY KIND FOR
     18  * ANY DAMAGES WHATSOEVER RESULTING FROM THE USE OF THIS SOFTWARE.
     19  *
     20  * Carnegie Mellon requests users of this software to return to
     21  *
     22  *  Software Distribution Coordinator  or  Software.Distribution (at) CS.CMU.EDU
     23  *  School of Computer Science
     24  *  Carnegie Mellon University
     25  *  Pittsburgh PA 15213-3890
     26  *
     27  * any improvements or extensions that they make and grant Carnegie the
     28  * rights to redistribute these changes.
     29  *
     30  *	From: db_interface.c,v 2.4 1991/02/05 17:11:13 mrt (CMU)
     31  */
     32 
     33 /*
     34  * Interface to new debugger.
     35  */
     36 
     37 #include <sys/cdefs.h>
     38 __KERNEL_RCSID(0, "$NetBSD: db_interface.c,v 1.59 2019/07/21 16:12:59 rin Exp $");
     39 
     40 #include "opt_ddb.h"
     41 #include "opt_kgdb.h"
     42 #include "opt_multiprocessor.h"
     43 
     44 #include <sys/param.h>
     45 #include <sys/proc.h>
     46 #include <sys/reboot.h>
     47 #include <sys/systm.h>	/* just for boothowto */
     48 #include <sys/exec.h>
     49 #include <sys/atomic.h>
     50 #include <sys/intr.h>
     51 
     52 #include <uvm/uvm_extern.h>
     53 
     54 #include <arm/arm32/db_machdep.h>
     55 #include <arm/undefined.h>
     56 #include <ddb/db_access.h>
     57 #include <ddb/db_command.h>
     58 #include <ddb/db_output.h>
     59 #include <ddb/db_variables.h>
     60 #include <ddb/db_sym.h>
     61 #include <ddb/db_extern.h>
     62 #include <ddb/db_interface.h>
     63 #include <dev/cons.h>
     64 
     65 #if defined(KGDB) || !defined(DDB)
     66 #define db_printf	printf
     67 #endif
     68 
     69 u_int db_fetch_reg(int, db_regs_t *);
     70 
     71 int db_trapper(u_int, u_int, trapframe_t *, int);
     72 
     73 int	db_active = 0;
     74 db_regs_t ddb_regs;	/* register state */
     75 db_regs_t *ddb_regp;
     76 
     77 #ifdef MULTIPROCESSOR
     78 volatile struct cpu_info *db_onproc;
     79 volatile struct cpu_info *db_newcpu;
     80 #endif
     81 
     82 
     83 
     84 
     85 #ifdef DDB
     86 /*
     87  *  kdb_trap - field a TRACE or BPT trap
     88  */
     89 int
     90 kdb_trap(int type, db_regs_t *regs)
     91 {
     92 	struct cpu_info * const ci = curcpu();
     93 	db_regs_t dbreg;
     94 	int s;
     95 
     96 	switch (type) {
     97 	case T_BREAKPOINT:	/* breakpoint */
     98 	case -1:		/* keyboard interrupt */
     99 		break;
    100 #ifdef MULTIPROCESSOR
    101 	case -2:
    102 		/*
    103 		 * We called to enter ddb from another process but by the time
    104 		 * we got here, no one was in ddb.  So ignore the request.
    105 		 */
    106 		if (db_onproc == NULL)
    107 			return 1;
    108 		break;
    109 #endif
    110 	default:
    111 		if (db_recover != 0) {
    112 			/* This will longjmp back into db_command_loop() */
    113 			db_error("Faulted in DDB; continuing...\n");
    114 			/*NOTREACHED*/
    115 		}
    116 	}
    117 
    118 	/* Should switch to kdb`s own stack here. */
    119 
    120 #ifdef MULTIPROCESSOR
    121 	const bool is_mp_p = ncpu > 1;
    122 	if (is_mp_p) {
    123 		/*
    124 		 * Try to take ownership of DDB.  If we do, tell all other
    125 		 * CPUs to enter DDB too.
    126 		 */
    127 		if (atomic_cas_ptr(&db_onproc, NULL, ci) == NULL) {
    128 			intr_ipi_send(NULL, IPI_DDB);
    129 		}
    130 	}
    131 	for (;;) {
    132 		if (is_mp_p) {
    133 			/*
    134 			 * While we aren't the master, wait until the master
    135 			 * gives control to us or exits.  If it exited, we
    136 			 * just exit too.  Otherwise this cpu will enter DDB.
    137 			 */
    138 			membar_consumer();
    139 			while (db_onproc != ci) {
    140 				if (db_onproc == NULL)
    141 					return 1;
    142 #ifdef _ARM_ARCH_6
    143 				__asm __volatile("wfe");
    144 				membar_consumer();
    145 #endif
    146 				if (db_onproc == ci) {
    147 					printf("%s: switching to %s\n",
    148 					    __func__, ci->ci_cpuname);
    149 				}
    150 			}
    151 		}
    152 #endif
    153 
    154 		s = splhigh();
    155 		ci->ci_ddb_regs = &dbreg;
    156 		ddb_regp = &dbreg;
    157 		ddb_regs = *regs;
    158 
    159 		atomic_inc_32(&db_active);
    160 		cnpollc(true);
    161 		db_trap(type, 0/*code*/);
    162 		cnpollc(false);
    163 		atomic_dec_32(&db_active);
    164 
    165 		ci->ci_ddb_regs = NULL;
    166 		ddb_regp = &dbreg;
    167 		*regs = ddb_regs;
    168 		splx(s);
    169 
    170 #ifdef MULTIPROCESSOR
    171 		if (is_mp_p && db_newcpu != NULL) {
    172 			db_onproc = db_newcpu;
    173 			db_newcpu = NULL;
    174 #ifdef _ARM_ARCH_6
    175 			membar_producer();
    176 			__asm __volatile("sev; sev");
    177 #endif
    178 			continue;
    179 		}
    180 		break;
    181 	}
    182 
    183 	if (is_mp_p) {
    184 		/*
    185 		 * We are exiting DDB so there is noone onproc.  Tell
    186 		 * the other CPUs to exit.
    187 		 */
    188 		db_onproc = NULL;
    189 #ifdef _ARM_ARCH_6
    190 		__asm __volatile("sev; sev");
    191 #endif
    192 	}
    193 #endif
    194 
    195 	return 1;
    196 }
    197 #endif
    198 
    199 int
    200 db_validate_address(vaddr_t addr)
    201 {
    202 	struct proc *p = curproc;
    203 	struct pmap *pmap;
    204 
    205 	if (!p || !p->p_vmspace || !p->p_vmspace->vm_map.pmap ||
    206 	    addr >= VM_MIN_KERNEL_ADDRESS
    207 	   )
    208 		pmap = pmap_kernel();
    209 	else
    210 		pmap = p->p_vmspace->vm_map.pmap;
    211 
    212 	return (pmap_extract(pmap, addr, NULL) == false);
    213 }
    214 
    215 /*
    216  * Read bytes from kernel address space for debugger.
    217  */
    218 void
    219 db_read_bytes(vaddr_t addr, size_t size, char *data)
    220 {
    221 	char	*src = (char *)addr;
    222 
    223 	if (db_validate_address((u_int)src)) {
    224 		db_printf("address %p is invalid\n", src);
    225 		return;
    226 	}
    227 
    228 	if (size == 4 && (addr & 3) == 0 && ((uintptr_t)data & 3) == 0) {
    229 		*((int*)data) = *((int*)src);
    230 		return;
    231 	}
    232 
    233 	if (size == 2 && (addr & 1) == 0 && ((uintptr_t)data & 1) == 0) {
    234 		*((short*)data) = *((short*)src);
    235 		return;
    236 	}
    237 
    238 	while (size-- > 0) {
    239 		if (db_validate_address((u_int)src)) {
    240 			db_printf("address %p is invalid\n", src);
    241 			return;
    242 		}
    243 		*data++ = *src++;
    244 	}
    245 }
    246 
    247 static void
    248 db_write_text(vaddr_t addr, size_t size, const char *data)
    249 {
    250 
    251 	ktext_write((void *)addr, data, size);
    252 }
    253 
    254 /*
    255  * Write bytes to kernel address space for debugger.
    256  */
    257 void
    258 db_write_bytes(vaddr_t addr, size_t size, const char *data)
    259 {
    260 	extern char kernel_text[];
    261 	extern char etext[];
    262 	char *dst;
    263 	size_t loop;
    264 
    265 	/* If any part is in kernel text, use db_write_text() */
    266 	if (addr >= (vaddr_t) kernel_text && addr < (vaddr_t) etext) {
    267 		db_write_text(addr, size, data);
    268 		return;
    269 	}
    270 
    271 	dst = (char *)addr;
    272 	if (db_validate_address((u_int)dst)) {
    273 		db_printf("address %p is invalid\n", dst);
    274 		return;
    275 	}
    276 
    277 	if (size == 4 && (addr & 3) == 0 && ((uintptr_t)data & 3) == 0)
    278 		*((int*)dst) = *((const int *)data);
    279 	else
    280 	if (size == 2 && (addr & 1) == 0 && ((uintptr_t)data & 1) == 0)
    281 		*((short*)dst) = *((const short *)data);
    282 	else {
    283 		loop = size;
    284 		while (loop-- > 0) {
    285 			if (db_validate_address((u_int)dst)) {
    286 				db_printf("address %p is invalid\n", dst);
    287 				return;
    288 			}
    289 			*dst++ = *data++;
    290 		}
    291 	}
    292 
    293 	/* make sure the caches and memory are in sync */
    294 	cpu_icache_sync_range(addr, size);
    295 
    296 	/* In case the current page tables have been modified ... */
    297 	cpu_tlb_flushID();
    298 	cpu_cpwait();
    299 }
    300 
    301 #ifdef DDB
    302 void
    303 cpu_Debugger(void)
    304 {
    305 #if _BYTE_ORDER == _LITTLE_ENDIAN
    306 	__asm(".word	0xe7ffffff");
    307 #else
    308 	__asm(".word	0xffffffe7");
    309 #endif
    310 }
    311 
    312 int
    313 db_trapper(u_int addr, u_int inst, trapframe_t *frame, int fault_code)
    314 {
    315 
    316 	if (fault_code == 0) {
    317 		if ((inst & ~INSN_COND_MASK) == (BKPT_INST & ~INSN_COND_MASK))
    318 			kdb_trap(T_BREAKPOINT, frame);
    319 		else
    320 			kdb_trap(-1, frame);
    321 	} else
    322 		return 1;
    323 	return 0;
    324 }
    325 
    326 extern u_int esym;
    327 extern u_int end;
    328 
    329 static struct undefined_handler db_uh;
    330 
    331 void
    332 db_machine_init(void)
    333 {
    334 
    335 	/*
    336 	 * We get called before malloc() is available, so supply a static
    337 	 * struct undefined_handler.
    338 	 */
    339 	db_uh.uh_handler = db_trapper;
    340 	install_coproc_handler_static(CORE_UNKNOWN_HANDLER, &db_uh);
    341 }
    342 #endif
    343 
    344 u_int
    345 db_fetch_reg(int reg, db_regs_t *regs)
    346 {
    347 
    348 	switch (reg) {
    349 	case 0:
    350 		return regs->tf_r0;
    351 	case 1:
    352 		return regs->tf_r1;
    353 	case 2:
    354 		return regs->tf_r2;
    355 	case 3:
    356 		return regs->tf_r3;
    357 	case 4:
    358 		return regs->tf_r4;
    359 	case 5:
    360 		return regs->tf_r5;
    361 	case 6:
    362 		return regs->tf_r6;
    363 	case 7:
    364 		return regs->tf_r7;
    365 	case 8:
    366 		return regs->tf_r8;
    367 	case 9:
    368 		return regs->tf_r9;
    369 	case 10:
    370 		return regs->tf_r10;
    371 	case 11:
    372 		return regs->tf_r11;
    373 	case 12:
    374 		return regs->tf_r12;
    375 	case 13:
    376 		return regs->tf_svc_sp;
    377 	case 14:
    378 		return regs->tf_svc_lr;
    379 	case 15:
    380 		return regs->tf_pc;
    381 	default:
    382 		panic("db_fetch_reg: botch");
    383 	}
    384 }
    385 
    386 u_int
    387 branch_taken(u_int insn, u_int pc, db_regs_t *regs)
    388 {
    389 	u_int addr, nregs;
    390 
    391 	switch ((insn >> 24) & 0xf) {
    392 	case 0xa:	/* b ... */
    393 	case 0xb:	/* bl ... */
    394 		addr = ((insn << 2) & 0x03ffffff);
    395 		if (addr & 0x02000000)
    396 			addr |= 0xfc000000;
    397 		return pc + 8 + addr;
    398 	case 0x7:	/* ldr pc, [pc, reg, lsl #2] */
    399 		addr = db_fetch_reg(insn & 0xf, regs);
    400 		addr = pc + 8 + (addr << 2);
    401 		db_read_bytes(addr, 4, (char *)&addr);
    402 		return addr;
    403 	case 0x5:	/* ldr pc, [reg] */
    404 		addr = db_fetch_reg((insn >> 16) & 0xf, regs);
    405 		db_read_bytes(addr, 4, (char *)&addr);
    406 		return addr;
    407 	case 0x1:	/* mov pc, reg */
    408 		addr = db_fetch_reg(insn & 0xf, regs);
    409 		return addr;
    410 	case 0x8:	/* ldmxx reg, {..., pc} */
    411 	case 0x9:
    412 		addr = db_fetch_reg((insn >> 16) & 0xf, regs);
    413 		nregs = (insn  & 0x5555) + ((insn  >> 1) & 0x5555);
    414 		nregs = (nregs & 0x3333) + ((nregs >> 2) & 0x3333);
    415 		nregs = (nregs + (nregs >> 4)) & 0x0f0f;
    416 		nregs = (nregs + (nregs >> 8)) & 0x001f;
    417 		switch ((insn >> 23) & 0x3) {
    418 		case 0x0:	/* ldmda */
    419 			addr = addr - 0;
    420 			break;
    421 		case 0x1:	/* ldmia */
    422 			addr = addr + 0 + ((nregs - 1) << 2);
    423 			break;
    424 		case 0x2:	/* ldmdb */
    425 			addr = addr - 4;
    426 			break;
    427 		case 0x3:	/* ldmib */
    428 			addr = addr + 4 + ((nregs - 1) << 2);
    429 			break;
    430 		}
    431 		db_read_bytes(addr, 4, (char *)&addr);
    432 		return addr;
    433 	default:
    434 		panic("branch_taken: botch");
    435 	}
    436 }
    437