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