Home | History | Annotate | Line # | Download | only in ddb
      1  1.40       ryo /*	$NetBSD: db_examine.c,v 1.40 2019/09/12 09:20:23 ryo Exp $	*/
      2   1.4       cgd 
      3   1.7   mycroft /*
      4   1.1       cgd  * Mach Operating System
      5   1.1       cgd  * Copyright (c) 1991,1990 Carnegie Mellon University
      6   1.1       cgd  * All Rights Reserved.
      7   1.7   mycroft  *
      8   1.1       cgd  * Permission to use, copy, modify and distribute this software and its
      9   1.1       cgd  * documentation is hereby granted, provided that both the copyright
     10   1.1       cgd  * notice and this permission notice appear in all copies of the
     11   1.1       cgd  * software, derivative works or modified versions, and any portions
     12   1.1       cgd  * thereof, and that both notices appear in supporting documentation.
     13   1.7   mycroft  *
     14  1.15        pk  * CARNEGIE MELLON ALLOWS FREE USE OF THIS SOFTWARE IN ITS "AS IS"
     15   1.1       cgd  * CONDITION.  CARNEGIE MELLON DISCLAIMS ANY LIABILITY OF ANY KIND FOR
     16   1.1       cgd  * ANY DAMAGES WHATSOEVER RESULTING FROM THE USE OF THIS SOFTWARE.
     17   1.7   mycroft  *
     18   1.1       cgd  * Carnegie Mellon requests users of this software to return to
     19   1.7   mycroft  *
     20   1.1       cgd  *  Software Distribution Coordinator  or  Software.Distribution (at) CS.CMU.EDU
     21   1.1       cgd  *  School of Computer Science
     22   1.1       cgd  *  Carnegie Mellon University
     23   1.1       cgd  *  Pittsburgh PA 15213-3890
     24   1.7   mycroft  *
     25   1.1       cgd  * any improvements or extensions that they make and grant Carnegie the
     26   1.1       cgd  * rights to redistribute these changes.
     27   1.2       cgd  *
     28   1.1       cgd  *	Author: David B. Golub, Carnegie Mellon University
     29   1.1       cgd  *	Date:	7/90
     30   1.1       cgd  */
     31  1.22     lukem 
     32  1.22     lukem #include <sys/cdefs.h>
     33  1.40       ryo __KERNEL_RCSID(0, "$NetBSD: db_examine.c,v 1.40 2019/09/12 09:20:23 ryo Exp $");
     34   1.3   mycroft 
     35   1.3   mycroft #include <sys/param.h>
     36  1.21       cgd #include <sys/systm.h>
     37  1.33     pooka #include <sys/buf.h>
     38   1.3   mycroft #include <sys/proc.h>
     39   1.3   mycroft 
     40  1.34        ad #include <ddb/ddb.h>
     41   1.1       cgd 
     42  1.23    simonb static char	db_examine_format[TOK_STRING_SIZE] = "x";
     43  1.23    simonb 
     44  1.23    simonb static void	db_examine(db_addr_t, char *, int);
     45  1.23    simonb static void	db_search(db_addr_t, int, db_expr_t, db_expr_t, unsigned int);
     46   1.1       cgd 
     47   1.1       cgd /*
     48   1.6       gwr  * Examine (print) data.  Syntax is:
     49   1.6       gwr  *		x/[bhl][cdiorsuxz]*
     50   1.6       gwr  * For example, the command:
     51   1.6       gwr  *  	x/bxxxx
     52   1.6       gwr  * should print:
     53   1.6       gwr  *  	address:  01  23  45  67
     54   1.1       cgd  */
     55   1.1       cgd /*ARGSUSED*/
     56   1.1       cgd void
     57  1.31      matt db_examine_cmd(db_expr_t addr, bool have_addr, db_expr_t count,
     58  1.29  christos     const char *modif)
     59   1.1       cgd {
     60   1.1       cgd 	if (modif[0] != '\0')
     61  1.24    itojun 		strlcpy(db_examine_format, modif, sizeof(db_examine_format));
     62   1.1       cgd 
     63   1.1       cgd 	if (count == -1)
     64   1.7   mycroft 		count = 1;
     65   1.1       cgd 
     66   1.1       cgd 	db_examine((db_addr_t) addr, db_examine_format, count);
     67   1.1       cgd }
     68   1.1       cgd 
     69  1.23    simonb static void
     70  1.23    simonb db_examine(db_addr_t addr, char *fmt, int count)
     71   1.1       cgd {
     72  1.20       jmc 	int		i, c;
     73  1.40       ryo 	quad_t		value;
     74   1.1       cgd 	int		size;
     75   1.1       cgd 	int		width;
     76  1.20       jmc 	int		bytes;
     77   1.1       cgd 	char *		fp;
     78  1.19        tv 	char		tbuf[24];
     79   1.7   mycroft 
     80   1.1       cgd 	while (--count >= 0) {
     81   1.7   mycroft 		fp = fmt;
     82   1.7   mycroft 		size = 4;
     83   1.8       gwr 		width = 12;
     84   1.7   mycroft 		while ((c = *fp++) != 0) {
     85   1.9       gwr 			if (db_print_position() == 0) {
     86   1.9       gwr 				/* Always print the address. */
     87  1.18     jhawk 				db_printsym(addr, DB_STGY_ANY, db_printf);
     88   1.9       gwr 				db_printf(":\t");
     89   1.9       gwr 				db_prev = addr;
     90   1.9       gwr 			}
     91   1.6       gwr 			switch (c) {
     92   1.9       gwr 			case 'b':	/* byte */
     93   1.6       gwr 				size = 1;
     94   1.6       gwr 				width = 4;
     95   1.6       gwr 				break;
     96   1.9       gwr 			case 'h':	/* half-word */
     97   1.6       gwr 				size = 2;
     98   1.6       gwr 				width = 8;
     99   1.6       gwr 				break;
    100   1.9       gwr 			case 'l':	/* long-word */
    101   1.6       gwr 				size = 4;
    102   1.8       gwr 				width = 12;
    103  1.16      ross 				break;
    104  1.39       ryo 			case 'q':	/* quad-word */
    105  1.39       ryo 				size = 8;
    106  1.40       ryo 				width = 24;
    107  1.39       ryo 				break;
    108  1.16      ross 			case 'L':	/* implementation maximum */
    109  1.16      ross 				size = sizeof value;
    110  1.16      ross 				width = 12 * (sizeof value / 4);
    111   1.6       gwr 				break;
    112   1.7   mycroft 			case 'a':	/* address */
    113  1.26       scw 				db_printf("= 0x%lx\n", (long)addr);
    114   1.6       gwr 				break;
    115  1.38       ryo 			case 'p':
    116  1.38       ryo 				size = sizeof(void *);
    117  1.40       ryo 				value = db_get_value(addr, size, false);
    118  1.38       ryo 				addr += size;
    119  1.38       ryo 				db_printf("= 0x%lx ", (long)value);
    120  1.38       ryo 				db_printsym((db_addr_t)value, DB_STGY_ANY, db_printf);
    121  1.38       ryo 				db_printf("\n");
    122  1.38       ryo 				break;
    123   1.6       gwr 			case 'r':	/* signed, current radix */
    124  1.40       ryo 				value = db_get_qvalue(addr, size, true);
    125   1.1       cgd 				addr += size;
    126  1.32   thorpej 				db_format_radix(tbuf, 24, value, false);
    127  1.19        tv 				db_printf("%-*s", width, tbuf);
    128   1.1       cgd 				break;
    129   1.6       gwr 			case 'x':	/* unsigned hex */
    130  1.40       ryo 				value = db_get_qvalue(addr, size, false);
    131   1.1       cgd 				addr += size;
    132  1.40       ryo 				db_printf("%-*" PRIx64, width, value);
    133  1.20       jmc 				break;
    134  1.20       jmc 			case 'm':	/* hex dump */
    135  1.23    simonb 				/*
    136  1.20       jmc 				 * Print off in chunks of size. Try to print 16
    137  1.40       ryo 				 * bytes at a time into 16/size columns. This
    138  1.20       jmc 				 * loops modify's count extra times in order
    139  1.20       jmc 				 * to get the nicely formatted lines.
    140  1.20       jmc 				 */
    141  1.23    simonb 
    142  1.20       jmc 				bytes = 0;
    143  1.20       jmc 				do {
    144  1.20       jmc 					for (i = 0; i < size; i++) {
    145  1.23    simonb 						value =
    146  1.39       ryo #if BYTE_ORDER == LITTLE_ENDIAN
    147  1.39       ryo 						    db_get_value(addr +
    148  1.39       ryo 						    (bytes & ~(size - 1)) +
    149  1.39       ryo 						    size - i - 1, 1, false);
    150  1.39       ryo #else
    151  1.39       ryo 						    db_get_value(addr + bytes,
    152  1.39       ryo 						    1, false);
    153  1.39       ryo #endif
    154  1.25       scw 						db_printf(
    155  1.40       ryo 						    "%02" PRIx64,
    156  1.35     joerg 						    value);
    157  1.20       jmc 						bytes++;
    158  1.39       ryo 						if (!(bytes % size))
    159  1.20       jmc 							db_printf(" ");
    160  1.20       jmc 					}
    161  1.20       jmc 				} while ((bytes != 16) && count--);
    162  1.20       jmc 				/* True up the columns before continuing */
    163  1.20       jmc 				for (i = 4; i >= (bytes / 4); i--)
    164  1.20       jmc 					db_printf ("\t");
    165  1.20       jmc 				/* Print chars,  use . for non-printable's. */
    166  1.20       jmc 				while (bytes--) {
    167  1.32   thorpej 					value = db_get_value(addr, 1, false);
    168  1.20       jmc 					addr += 1;
    169  1.20       jmc 					if (value >= ' ' && value <= '~')
    170  1.20       jmc 						db_printf("%c", (char)value);
    171  1.20       jmc 					else
    172  1.20       jmc 						db_printf(".");
    173  1.23    simonb 				}
    174  1.20       jmc 				db_printf("\n");
    175   1.1       cgd 				break;
    176   1.6       gwr 			case 'z':	/* signed hex */
    177  1.40       ryo 				value = db_get_qvalue(addr, size, true);
    178   1.1       cgd 				addr += size;
    179  1.32   thorpej 				db_format_hex(tbuf, 24, value, false);
    180  1.19        tv 				db_printf("%-*s", width, tbuf);
    181   1.1       cgd 				break;
    182   1.6       gwr 			case 'd':	/* signed decimal */
    183  1.40       ryo 				value = db_get_qvalue(addr, size, true);
    184   1.1       cgd 				addr += size;
    185  1.40       ryo 				db_printf("%-*" PRId64, width, value);
    186   1.1       cgd 				break;
    187   1.6       gwr 			case 'u':	/* unsigned decimal */
    188  1.40       ryo 				value = db_get_qvalue(addr, size, false);
    189   1.1       cgd 				addr += size;
    190  1.40       ryo 				db_printf("%-*" PRIu64, width, value);
    191   1.1       cgd 				break;
    192   1.6       gwr 			case 'o':	/* unsigned octal */
    193  1.40       ryo 				value = db_get_qvalue(addr, size, false);
    194   1.1       cgd 				addr += size;
    195  1.40       ryo 				db_printf("%-*" PRIo64, width, value);
    196   1.1       cgd 				break;
    197   1.6       gwr 			case 'c':	/* character */
    198  1.32   thorpej 				value = db_get_value(addr, 1, false);
    199   1.1       cgd 				addr += 1;
    200   1.1       cgd 				if (value >= ' ' && value <= '~')
    201  1.13   mycroft 					db_printf("%c", (char)value);
    202   1.1       cgd 				else
    203  1.25       scw 					db_printf("\\%03o", (int)value);
    204   1.1       cgd 				break;
    205   1.6       gwr 			case 's':	/* null-terminated string */
    206   1.1       cgd 				for (;;) {
    207  1.32   thorpej 					value = db_get_value(addr, 1, false);
    208   1.7   mycroft 					addr += 1;
    209   1.7   mycroft 					if (value == 0)
    210   1.6       gwr 						break;
    211   1.7   mycroft 					if (value >= ' ' && value <= '~')
    212  1.13   mycroft 						db_printf("%c", (char)value);
    213   1.7   mycroft 					else
    214  1.25       scw 						db_printf("\\%03o", (int)value);
    215   1.1       cgd 				}
    216   1.1       cgd 				break;
    217   1.6       gwr 			case 'i':	/* instruction */
    218  1.32   thorpej 				addr = db_disasm(addr, false);
    219   1.1       cgd 				break;
    220   1.6       gwr 			case 'I':	/* instruction, alternate form */
    221  1.32   thorpej 				addr = db_disasm(addr, true);
    222   1.1       cgd 				break;
    223   1.6       gwr 			default:
    224   1.1       cgd 				break;
    225   1.1       cgd 			}
    226   1.1       cgd 			if (db_print_position() != 0)
    227   1.6       gwr 				db_end_line();
    228   1.7   mycroft 		}
    229   1.1       cgd 	}
    230   1.1       cgd 	db_next = addr;
    231   1.1       cgd }
    232   1.1       cgd 
    233   1.1       cgd /*
    234   1.1       cgd  * Print value.
    235   1.1       cgd  */
    236  1.23    simonb static char	db_print_format = 'x';
    237   1.1       cgd 
    238   1.1       cgd /*ARGSUSED*/
    239   1.1       cgd void
    240  1.31      matt db_print_cmd(db_expr_t addr, bool have_addr, db_expr_t count,
    241  1.29  christos     const char *modif)
    242   1.1       cgd {
    243   1.1       cgd 	db_expr_t	value;
    244   1.1       cgd 
    245   1.1       cgd 	if (modif[0] != '\0')
    246   1.7   mycroft 		db_print_format = modif[0];
    247   1.1       cgd 
    248   1.1       cgd 	switch (db_print_format) {
    249   1.7   mycroft 	case 'a':
    250  1.18     jhawk 		db_printsym((db_addr_t)addr, DB_STGY_ANY, db_printf);
    251   1.1       cgd 		break;
    252   1.7   mycroft 	case 'r':
    253  1.19        tv 		{
    254  1.19        tv 			char tbuf[24];
    255  1.19        tv 
    256  1.32   thorpej 			db_format_radix(tbuf, 24, addr, false);
    257  1.19        tv 			db_printf("%11s", tbuf);
    258  1.19        tv 			break;
    259  1.19        tv 		}
    260   1.7   mycroft 	case 'x':
    261  1.35     joerg 		db_printf("%16" DDB_EXPR_FMT "x", addr);
    262   1.1       cgd 		break;
    263   1.7   mycroft 	case 'z':
    264  1.19        tv 		{
    265  1.19        tv 			char tbuf[24];
    266  1.19        tv 
    267  1.32   thorpej 			db_format_hex(tbuf, 24, addr, false);
    268  1.19        tv 			db_printf("%8s", tbuf);
    269  1.19        tv 			break;
    270  1.19        tv 		}
    271   1.7   mycroft 	case 'd':
    272  1.35     joerg 		db_printf("%11" DDB_EXPR_FMT "d", addr);
    273   1.1       cgd 		break;
    274   1.7   mycroft 	case 'u':
    275  1.35     joerg 		db_printf("%11" DDB_EXPR_FMT "u", addr);
    276   1.1       cgd 		break;
    277   1.7   mycroft 	case 'o':
    278  1.35     joerg 		db_printf("%15" DDB_EXPR_FMT "o", addr);
    279   1.1       cgd 		break;
    280   1.7   mycroft 	case 'c':
    281   1.1       cgd 		value = addr & 0xFF;
    282   1.1       cgd 		if (value >= ' ' && value <= '~')
    283  1.13   mycroft 			db_printf("%c", (char)value);
    284   1.1       cgd 		else
    285  1.25       scw 			db_printf("\\%03o", (int)value);
    286   1.1       cgd 		break;
    287   1.1       cgd 	}
    288   1.1       cgd 	db_printf("\n");
    289   1.1       cgd }
    290   1.1       cgd 
    291  1.10  christos void
    292  1.23    simonb db_print_loc_and_inst(db_addr_t loc)
    293   1.1       cgd {
    294  1.23    simonb 
    295  1.18     jhawk 	db_printsym(loc, DB_STGY_PROC, db_printf);
    296   1.1       cgd 	db_printf(":\t");
    297  1.32   thorpej 	(void) db_disasm(loc, false);
    298   1.1       cgd }
    299   1.1       cgd 
    300   1.1       cgd /*
    301   1.1       cgd  * Search for a value in memory.
    302   1.1       cgd  * Syntax: search [/bhl] addr value [mask] [,count]
    303   1.1       cgd  */
    304  1.10  christos /*ARGSUSED*/
    305   1.1       cgd void
    306  1.31      matt db_search_cmd(db_expr_t daddr, bool have_addr,
    307  1.30  christos     db_expr_t dcount, const char *modif)
    308   1.1       cgd {
    309   1.1       cgd 	int		t;
    310   1.1       cgd 	db_addr_t	addr;
    311   1.1       cgd 	int		size;
    312   1.1       cgd 	db_expr_t	value;
    313   1.1       cgd 	db_expr_t	mask;
    314  1.12       cgd 	db_expr_t	count;
    315   1.1       cgd 
    316   1.1       cgd 	t = db_read_token();
    317   1.1       cgd 	if (t == tSLASH) {
    318   1.7   mycroft 		t = db_read_token();
    319   1.7   mycroft 		if (t != tIDENT) {
    320   1.7   mycroft 			bad_modifier:
    321   1.7   mycroft 			db_printf("Bad modifier\n");
    322   1.7   mycroft 			db_flush_lex();
    323   1.7   mycroft 			return;
    324   1.7   mycroft 		}
    325   1.7   mycroft 
    326   1.7   mycroft 		if (!strcmp(db_tok_string, "b"))
    327   1.7   mycroft 			size = 1;
    328   1.7   mycroft 		else if (!strcmp(db_tok_string, "h"))
    329   1.7   mycroft 			size = 2;
    330   1.7   mycroft 		else if (!strcmp(db_tok_string, "l"))
    331   1.7   mycroft 			size = 4;
    332   1.7   mycroft 		else
    333   1.7   mycroft 			goto bad_modifier;
    334   1.7   mycroft 	} else {
    335   1.7   mycroft 		db_unread_token(t);
    336   1.1       cgd 		size = 4;
    337   1.1       cgd 	}
    338   1.1       cgd 
    339  1.10  christos 	if (!db_expression(&value)) {
    340   1.7   mycroft 		db_printf("Address missing\n");
    341   1.7   mycroft 		db_flush_lex();
    342   1.7   mycroft 		return;
    343   1.1       cgd 	}
    344  1.10  christos 	addr = (db_addr_t) value;
    345   1.1       cgd 
    346   1.1       cgd 	if (!db_expression(&value)) {
    347   1.7   mycroft 		db_printf("Value missing\n");
    348   1.7   mycroft 		db_flush_lex();
    349   1.7   mycroft 		return;
    350   1.1       cgd 	}
    351   1.1       cgd 
    352   1.1       cgd 	if (!db_expression(&mask))
    353  1.10  christos 		mask = (int) ~0;
    354   1.1       cgd 
    355   1.1       cgd 	t = db_read_token();
    356   1.1       cgd 	if (t == tCOMMA) {
    357   1.7   mycroft 		if (!db_expression(&count)) {
    358   1.7   mycroft 			db_printf("Count missing\n");
    359   1.7   mycroft 			db_flush_lex();
    360   1.7   mycroft 			return;
    361   1.7   mycroft 		}
    362   1.1       cgd 	} else {
    363   1.7   mycroft 		db_unread_token(t);
    364   1.7   mycroft 		count = -1;		/* effectively forever */
    365   1.1       cgd 	}
    366   1.1       cgd 	db_skip_to_eol();
    367   1.1       cgd 
    368   1.1       cgd 	db_search(addr, size, value, mask, count);
    369   1.1       cgd }
    370   1.1       cgd 
    371  1.23    simonb static void
    372  1.23    simonb db_search(db_addr_t addr, int size, db_expr_t value, db_expr_t mask,
    373  1.23    simonb     unsigned int count)
    374   1.1       cgd {
    375   1.1       cgd 	while (count-- != 0) {
    376   1.1       cgd 		db_prev = addr;
    377  1.32   thorpej 		if ((db_get_value(addr, size, false) & mask) == value)
    378   1.1       cgd 			break;
    379   1.1       cgd 		addr += size;
    380   1.1       cgd 	}
    381   1.1       cgd 	db_next = addr;
    382   1.1       cgd }
    383