1dd3cb568SWarner Losh /*- 25b81b6b3SRodney W. Grimes * Mach Operating System 35b81b6b3SRodney W. Grimes * Copyright (c) 1991,1990 Carnegie Mellon University 45b81b6b3SRodney W. Grimes * All Rights Reserved. 55b81b6b3SRodney W. Grimes * 65b81b6b3SRodney W. Grimes * Permission to use, copy, modify and distribute this software and its 75b81b6b3SRodney W. Grimes * documentation is hereby granted, provided that both the copyright 85b81b6b3SRodney W. Grimes * notice and this permission notice appear in all copies of the 95b81b6b3SRodney W. Grimes * software, derivative works or modified versions, and any portions 105b81b6b3SRodney W. Grimes * thereof, and that both notices appear in supporting documentation. 115b81b6b3SRodney W. Grimes * 125b81b6b3SRodney W. Grimes * CARNEGIE MELLON ALLOWS FREE USE OF THIS SOFTWARE IN ITS 135b81b6b3SRodney W. Grimes * CONDITION. CARNEGIE MELLON DISCLAIMS ANY LIABILITY OF ANY KIND FOR 145b81b6b3SRodney W. Grimes * ANY DAMAGES WHATSOEVER RESULTING FROM THE USE OF THIS SOFTWARE. 155b81b6b3SRodney W. Grimes * 165b81b6b3SRodney W. Grimes * Carnegie Mellon requests users of this software to return to 175b81b6b3SRodney W. Grimes * 185b81b6b3SRodney W. Grimes * Software Distribution Coordinator or Software.Distribution@CS.CMU.EDU 195b81b6b3SRodney W. Grimes * School of Computer Science 205b81b6b3SRodney W. Grimes * Carnegie Mellon University 215b81b6b3SRodney W. Grimes * Pittsburgh PA 15213-3890 225b81b6b3SRodney W. Grimes * 235b81b6b3SRodney W. Grimes * any improvements or extensions that they make and grant Carnegie the 245b81b6b3SRodney W. Grimes * rights to redistribute these changes. 255b81b6b3SRodney W. Grimes */ 265b81b6b3SRodney W. Grimes /* 275b81b6b3SRodney W. Grimes * Author: David B. Golub, Carnegie Mellon University 285b81b6b3SRodney W. Grimes * Date: 7/90 295b81b6b3SRodney W. Grimes */ 305b81b6b3SRodney W. Grimes /* 315b81b6b3SRodney W. Grimes * Command dispatcher. 325b81b6b3SRodney W. Grimes */ 33753960f7SDavid E. O'Brien 34753960f7SDavid E. O'Brien #include <sys/cdefs.h> 35753960f7SDavid E. O'Brien __FBSDID("$FreeBSD$"); 36753960f7SDavid E. O'Brien 37f540b106SGarrett Wollman #include <sys/param.h> 380ec81012SJohn Polstra #include <sys/linker_set.h> 3919d2c78fSDima Dorfman #include <sys/lock.h> 4037224cd3SMarcel Moolenaar #include <sys/kdb.h> 4119d2c78fSDima Dorfman #include <sys/mutex.h> 4219d2c78fSDima Dorfman #include <sys/proc.h> 43ad146781SPaul Traina #include <sys/reboot.h> 4419d2c78fSDima Dorfman #include <sys/signalvar.h> 45f540b106SGarrett Wollman #include <sys/systm.h> 46ce9edcf5SPoul-Henning Kamp #include <sys/cons.h> 47299cceefSMarcel Moolenaar #include <sys/conf.h> 4874cc032bSPoul-Henning Kamp #include <sys/watchdog.h> 4939297ba4SSam Leffler #include <sys/kernel.h> 503000820aSPoul-Henning Kamp 515ccbc3ccSBruce Evans #include <ddb/ddb.h> 52058284fcSBruce Evans #include <ddb/db_command.h> 535b81b6b3SRodney W. Grimes #include <ddb/db_lex.h> 545b81b6b3SRodney W. Grimes #include <ddb/db_output.h> 555b81b6b3SRodney W. Grimes 5626502503SMarcel Moolenaar #include <machine/cpu.h> 570b1ae809SJulian Elischer #include <machine/setjmp.h> 585b81b6b3SRodney W. Grimes 595b81b6b3SRodney W. Grimes /* 605b81b6b3SRodney W. Grimes * Exported global variables 615b81b6b3SRodney W. Grimes */ 62cd508278SPedro F. Giffuni bool db_cmd_loop_done; 635b81b6b3SRodney W. Grimes db_addr_t db_dot; 645b81b6b3SRodney W. Grimes db_addr_t db_last_addr; 655b81b6b3SRodney W. Grimes db_addr_t db_prev; 665b81b6b3SRodney W. Grimes db_addr_t db_next; 67f41325dbSPeter Wemm 68299cceefSMarcel Moolenaar static db_cmdfcn_t db_dump; 69f73a856dSPoul-Henning Kamp static db_cmdfcn_t db_fncall; 70f3be7cb3SMarcel Moolenaar static db_cmdfcn_t db_gdb; 71e4b732cfSBruce Evans static db_cmdfcn_t db_halt; 7219d2c78fSDima Dorfman static db_cmdfcn_t db_kill; 735370c3b6SPeter Wemm static db_cmdfcn_t db_reset; 74fd32d93bSMarcel Moolenaar static db_cmdfcn_t db_stack_trace; 75a7ad956bSRobert Watson static db_cmdfcn_t db_stack_trace_all; 7674cc032bSPoul-Henning Kamp static db_cmdfcn_t db_watchdog; 77ad146781SPaul Traina 78cec9a4bfSDavid E. O'Brien /* 79cec9a4bfSDavid E. O'Brien * 'show' commands 80cec9a4bfSDavid E. O'Brien */ 81cec9a4bfSDavid E. O'Brien 82cec9a4bfSDavid E. O'Brien static struct command db_show_all_cmds[] = { 837fb88858SPedro F. Giffuni { "trace", db_stack_trace_all, 0, NULL }, 84cec9a4bfSDavid E. O'Brien }; 8539297ba4SSam Leffler struct command_table db_show_all_table = 8639297ba4SSam Leffler LIST_HEAD_INITIALIZER(db_show_all_table); 87e1e31c0eSJohn Baldwin 88cec9a4bfSDavid E. O'Brien static struct command db_show_cmds[] = { 89e1e31c0eSJohn Baldwin { "all", 0, 0, &db_show_all_table }, 907fb88858SPedro F. Giffuni { "registers", db_show_regs, 0, NULL }, 917fb88858SPedro F. Giffuni { "breaks", db_listbreak_cmd, 0, NULL }, 927fb88858SPedro F. Giffuni { "threads", db_show_threads, 0, NULL }, 93cec9a4bfSDavid E. O'Brien }; 9439297ba4SSam Leffler struct command_table db_show_table = LIST_HEAD_INITIALIZER(db_show_table); 95cec9a4bfSDavid E. O'Brien 9639297ba4SSam Leffler static struct command db_cmds[] = { 977fb88858SPedro F. Giffuni { "print", db_print_cmd, 0, NULL }, 987fb88858SPedro F. Giffuni { "p", db_print_cmd, 0, NULL }, 997fb88858SPedro F. Giffuni { "examine", db_examine_cmd, CS_SET_DOT, NULL }, 1007fb88858SPedro F. Giffuni { "x", db_examine_cmd, CS_SET_DOT, NULL }, 1017fb88858SPedro F. Giffuni { "search", db_search_cmd, CS_OWN|CS_SET_DOT, NULL }, 1027fb88858SPedro F. Giffuni { "set", db_set_cmd, CS_OWN, NULL }, 1037fb88858SPedro F. Giffuni { "write", db_write_cmd, CS_MORE|CS_SET_DOT, NULL }, 1047fb88858SPedro F. Giffuni { "w", db_write_cmd, CS_MORE|CS_SET_DOT, NULL }, 1057fb88858SPedro F. Giffuni { "delete", db_delete_cmd, 0, NULL }, 1067fb88858SPedro F. Giffuni { "d", db_delete_cmd, 0, NULL }, 1077fb88858SPedro F. Giffuni { "dump", db_dump, 0, NULL }, 1087fb88858SPedro F. Giffuni { "break", db_breakpoint_cmd, 0, NULL }, 1097fb88858SPedro F. Giffuni { "b", db_breakpoint_cmd, 0, NULL }, 1107fb88858SPedro F. Giffuni { "dwatch", db_deletewatch_cmd, 0, NULL }, 1117fb88858SPedro F. Giffuni { "watch", db_watchpoint_cmd, CS_MORE,NULL }, 1127fb88858SPedro F. Giffuni { "dhwatch", db_deletehwatch_cmd, 0, NULL }, 1137fb88858SPedro F. Giffuni { "hwatch", db_hwatchpoint_cmd, 0, NULL }, 1147fb88858SPedro F. Giffuni { "step", db_single_step_cmd, 0, NULL }, 1157fb88858SPedro F. Giffuni { "s", db_single_step_cmd, 0, NULL }, 1167fb88858SPedro F. Giffuni { "continue", db_continue_cmd, 0, NULL }, 1177fb88858SPedro F. Giffuni { "c", db_continue_cmd, 0, NULL }, 1187fb88858SPedro F. Giffuni { "until", db_trace_until_call_cmd,0, NULL }, 1197fb88858SPedro F. Giffuni { "next", db_trace_until_matching_cmd,0, NULL }, 1207fb88858SPedro F. Giffuni { "match", db_trace_until_matching_cmd,0, NULL }, 1217fb88858SPedro F. Giffuni { "trace", db_stack_trace, CS_OWN, NULL }, 1227fb88858SPedro F. Giffuni { "t", db_stack_trace, CS_OWN, NULL }, 12339297ba4SSam Leffler /* XXX alias for all trace */ 1247fb88858SPedro F. Giffuni { "alltrace", db_stack_trace_all, 0, NULL }, 1257fb88858SPedro F. Giffuni { "where", db_stack_trace, CS_OWN, NULL }, 1267fb88858SPedro F. Giffuni { "bt", db_stack_trace, CS_OWN, NULL }, 1277fb88858SPedro F. Giffuni { "call", db_fncall, CS_OWN, NULL }, 128e1e31c0eSJohn Baldwin { "show", 0, 0, &db_show_table }, 1297fb88858SPedro F. Giffuni { "ps", db_ps, 0, NULL }, 1307fb88858SPedro F. Giffuni { "gdb", db_gdb, 0, NULL }, 1317fb88858SPedro F. Giffuni { "halt", db_halt, 0, NULL }, 1327fb88858SPedro F. Giffuni { "reboot", db_reset, 0, NULL }, 1337fb88858SPedro F. Giffuni { "reset", db_reset, 0, NULL }, 1347fb88858SPedro F. Giffuni { "kill", db_kill, CS_OWN, NULL }, 1357fb88858SPedro F. Giffuni { "watchdog", db_watchdog, CS_OWN, NULL }, 1367fb88858SPedro F. Giffuni { "thread", db_set_thread, CS_OWN, NULL }, 1377fb88858SPedro F. Giffuni { "run", db_run_cmd, CS_OWN, NULL }, 1387fb88858SPedro F. Giffuni { "script", db_script_cmd, CS_OWN, NULL }, 1397fb88858SPedro F. Giffuni { "scripts", db_scripts_cmd, 0, NULL }, 1407fb88858SPedro F. Giffuni { "unscript", db_unscript_cmd, CS_OWN, NULL }, 1417fb88858SPedro F. Giffuni { "capture", db_capture_cmd, CS_OWN, NULL }, 1427fb88858SPedro F. Giffuni { "textdump", db_textdump_cmd, CS_OWN, NULL }, 1437fb88858SPedro F. Giffuni { "findstack", db_findstack_cmd, 0, NULL }, 144cec9a4bfSDavid E. O'Brien }; 14539297ba4SSam Leffler struct command_table db_cmd_table = LIST_HEAD_INITIALIZER(db_cmd_table); 146e1e31c0eSJohn Baldwin 147*9f915a92SPedro F. Giffuni static struct command *db_last_command = NULL; 1486337f4efSBruce Evans 1495b81b6b3SRodney W. Grimes /* 1505b81b6b3SRodney W. Grimes * if 'ed' style: 'dot' is set at start of last item printed, 1515b81b6b3SRodney W. Grimes * and '+' points to next line. 1525b81b6b3SRodney W. Grimes * Otherwise: 'dot' points to next item, '..' points to last. 1535b81b6b3SRodney W. Grimes */ 154cd508278SPedro F. Giffuni static bool db_ed_style = true; 1555b81b6b3SRodney W. Grimes 1565b81b6b3SRodney W. Grimes /* 1575b81b6b3SRodney W. Grimes * Utility routine - discard tokens through end-of-line. 1585b81b6b3SRodney W. Grimes */ 1595b81b6b3SRodney W. Grimes void 160a41dd031SPedro F. Giffuni db_skip_to_eol(void) 1615b81b6b3SRodney W. Grimes { 1625b81b6b3SRodney W. Grimes int t; 1635b81b6b3SRodney W. Grimes do { 1645b81b6b3SRodney W. Grimes t = db_read_token(); 1655b81b6b3SRodney W. Grimes } while (t != tEOL); 1665b81b6b3SRodney W. Grimes } 1675b81b6b3SRodney W. Grimes 1685b81b6b3SRodney W. Grimes /* 1695b81b6b3SRodney W. Grimes * Results of command search. 1705b81b6b3SRodney W. Grimes */ 1715b81b6b3SRodney W. Grimes #define CMD_UNIQUE 0 1725b81b6b3SRodney W. Grimes #define CMD_FOUND 1 1735b81b6b3SRodney W. Grimes #define CMD_NONE 2 1745b81b6b3SRodney W. Grimes #define CMD_AMBIGUOUS 3 1755b81b6b3SRodney W. Grimes #define CMD_HELP 4 1765b81b6b3SRodney W. Grimes 177e1e31c0eSJohn Baldwin static void db_cmd_match(char *name, struct command *cmd, 178e1e31c0eSJohn Baldwin struct command **cmdp, int *resultp); 179e1e31c0eSJohn Baldwin static void db_cmd_list(struct command_table *table); 180e1e31c0eSJohn Baldwin static int db_cmd_search(char *name, struct command_table *table, 181e1e31c0eSJohn Baldwin struct command **cmdp); 18214e10f99SAlfred Perlstein static void db_command(struct command **last_cmdp, 183c9b0cc3bSRobert Watson struct command_table *cmd_table, int dopager); 184058284fcSBruce Evans 1855b81b6b3SRodney W. Grimes /* 18639297ba4SSam Leffler * Initialize the command lists from the static tables. 18739297ba4SSam Leffler */ 18893d4804bSJohn Baldwin void 18993d4804bSJohn Baldwin db_command_init(void) 19039297ba4SSam Leffler { 19139297ba4SSam Leffler #define N(a) (sizeof(a) / sizeof(a[0])) 19239297ba4SSam Leffler int i; 19339297ba4SSam Leffler 19439297ba4SSam Leffler for (i = 0; i < N(db_cmds); i++) 19539297ba4SSam Leffler db_command_register(&db_cmd_table, &db_cmds[i]); 19639297ba4SSam Leffler for (i = 0; i < N(db_show_cmds); i++) 19739297ba4SSam Leffler db_command_register(&db_show_table, &db_show_cmds[i]); 19839297ba4SSam Leffler for (i = 0; i < N(db_show_all_cmds); i++) 19939297ba4SSam Leffler db_command_register(&db_show_all_table, &db_show_all_cmds[i]); 20039297ba4SSam Leffler #undef N 20139297ba4SSam Leffler } 20239297ba4SSam Leffler 20339297ba4SSam Leffler /* 20439297ba4SSam Leffler * Register a command. 20539297ba4SSam Leffler */ 20639297ba4SSam Leffler void 20739297ba4SSam Leffler db_command_register(struct command_table *list, struct command *cmd) 20839297ba4SSam Leffler { 20939297ba4SSam Leffler struct command *c, *last; 21039297ba4SSam Leffler 21139297ba4SSam Leffler last = NULL; 21239297ba4SSam Leffler LIST_FOREACH(c, list, next) { 21339297ba4SSam Leffler int n = strcmp(cmd->name, c->name); 21439297ba4SSam Leffler 21539297ba4SSam Leffler /* Check that the command is not already present. */ 21639297ba4SSam Leffler if (n == 0) { 21739297ba4SSam Leffler printf("%s: Warning, the command \"%s\" already exists;" 21839297ba4SSam Leffler " ignoring request\n", __func__, cmd->name); 21939297ba4SSam Leffler return; 22039297ba4SSam Leffler } 22139297ba4SSam Leffler if (n < 0) { 22239297ba4SSam Leffler /* NB: keep list sorted lexicographically */ 22339297ba4SSam Leffler LIST_INSERT_BEFORE(c, cmd, next); 22439297ba4SSam Leffler return; 22539297ba4SSam Leffler } 22639297ba4SSam Leffler last = c; 22739297ba4SSam Leffler } 22839297ba4SSam Leffler if (last == NULL) 22939297ba4SSam Leffler LIST_INSERT_HEAD(list, cmd, next); 23039297ba4SSam Leffler else 23139297ba4SSam Leffler LIST_INSERT_AFTER(last, cmd, next); 23239297ba4SSam Leffler } 23339297ba4SSam Leffler 23439297ba4SSam Leffler /* 23539297ba4SSam Leffler * Remove a command previously registered with db_command_register. 23639297ba4SSam Leffler */ 23739297ba4SSam Leffler void 23839297ba4SSam Leffler db_command_unregister(struct command_table *list, struct command *cmd) 23939297ba4SSam Leffler { 24039297ba4SSam Leffler struct command *c; 24139297ba4SSam Leffler 24239297ba4SSam Leffler LIST_FOREACH(c, list, next) { 24339297ba4SSam Leffler if (cmd == c) { 24439297ba4SSam Leffler LIST_REMOVE(cmd, next); 24539297ba4SSam Leffler return; 24639297ba4SSam Leffler } 24739297ba4SSam Leffler } 24839297ba4SSam Leffler /* NB: intentionally quiet */ 24939297ba4SSam Leffler } 25039297ba4SSam Leffler 25139297ba4SSam Leffler /* 252e1e31c0eSJohn Baldwin * Helper function to match a single command. 2535b81b6b3SRodney W. Grimes */ 254e1e31c0eSJohn Baldwin static void 255a41dd031SPedro F. Giffuni db_cmd_match(char *name, struct command *cmd, struct command **cmdp, 256a41dd031SPedro F. Giffuni int *resultp) 257e1e31c0eSJohn Baldwin { 258e1e31c0eSJohn Baldwin char *lp, *rp; 259e1e31c0eSJohn Baldwin int c; 2605b81b6b3SRodney W. Grimes 2615b81b6b3SRodney W. Grimes lp = name; 2625b81b6b3SRodney W. Grimes rp = cmd->name; 2635b81b6b3SRodney W. Grimes while ((c = *lp) == *rp) { 2645b81b6b3SRodney W. Grimes if (c == 0) { 2655b81b6b3SRodney W. Grimes /* complete match */ 2665b81b6b3SRodney W. Grimes *cmdp = cmd; 267e1e31c0eSJohn Baldwin *resultp = CMD_UNIQUE; 268e1e31c0eSJohn Baldwin return; 2695b81b6b3SRodney W. Grimes } 2705b81b6b3SRodney W. Grimes lp++; 2715b81b6b3SRodney W. Grimes rp++; 2725b81b6b3SRodney W. Grimes } 2735b81b6b3SRodney W. Grimes if (c == 0) { 2745b81b6b3SRodney W. Grimes /* end of name, not end of command - 2755b81b6b3SRodney W. Grimes partial match */ 276e1e31c0eSJohn Baldwin if (*resultp == CMD_FOUND) { 277e1e31c0eSJohn Baldwin *resultp = CMD_AMBIGUOUS; 2785b81b6b3SRodney W. Grimes /* but keep looking for a full match - 2795b81b6b3SRodney W. Grimes this lets us match single letters */ 280e1e31c0eSJohn Baldwin } else { 2815b81b6b3SRodney W. Grimes *cmdp = cmd; 282e1e31c0eSJohn Baldwin *resultp = CMD_FOUND; 2835b81b6b3SRodney W. Grimes } 2845b81b6b3SRodney W. Grimes } 2855b81b6b3SRodney W. Grimes } 2866337f4efSBruce Evans 287e1e31c0eSJohn Baldwin /* 288e1e31c0eSJohn Baldwin * Search for command prefix. 289e1e31c0eSJohn Baldwin */ 290e1e31c0eSJohn Baldwin static int 291a41dd031SPedro F. Giffuni db_cmd_search(char *name, struct command_table *table, struct command **cmdp) 292e1e31c0eSJohn Baldwin { 293e1e31c0eSJohn Baldwin struct command *cmd; 294e1e31c0eSJohn Baldwin int result = CMD_NONE; 295e1e31c0eSJohn Baldwin 29639297ba4SSam Leffler LIST_FOREACH(cmd, table, next) { 297e1e31c0eSJohn Baldwin db_cmd_match(name,cmd,cmdp,&result); 298e1e31c0eSJohn Baldwin if (result == CMD_UNIQUE) 29939297ba4SSam Leffler break; 3006337f4efSBruce Evans } 30139297ba4SSam Leffler 3025b81b6b3SRodney W. Grimes if (result == CMD_NONE) { 3035b81b6b3SRodney W. Grimes /* check for 'help' */ 3045b81b6b3SRodney W. Grimes if (name[0] == 'h' && name[1] == 'e' 3055b81b6b3SRodney W. Grimes && name[2] == 'l' && name[3] == 'p') 3065b81b6b3SRodney W. Grimes result = CMD_HELP; 3075b81b6b3SRodney W. Grimes } 3085b81b6b3SRodney W. Grimes return (result); 3095b81b6b3SRodney W. Grimes } 3105b81b6b3SRodney W. Grimes 311f73a856dSPoul-Henning Kamp static void 312a41dd031SPedro F. Giffuni db_cmd_list(struct command_table *table) 3135b81b6b3SRodney W. Grimes { 3140a95ab74SPedro F. Giffuni struct command *cmd; 3155b81b6b3SRodney W. Grimes 31639297ba4SSam Leffler LIST_FOREACH(cmd, table, next) { 317527be4f2SJohn-Mark Gurney db_printf("%-16s", cmd->name); 318527be4f2SJohn-Mark Gurney db_end_line(16); 3195b81b6b3SRodney W. Grimes } 3205b81b6b3SRodney W. Grimes } 3215b81b6b3SRodney W. Grimes 322f73a856dSPoul-Henning Kamp static void 323a41dd031SPedro F. Giffuni db_command(struct command **last_cmdp, struct command_table *cmd_table, 324a41dd031SPedro F. Giffuni int dopager) 3255b81b6b3SRodney W. Grimes { 32639297ba4SSam Leffler struct command *cmd = NULL; 3275b81b6b3SRodney W. Grimes int t; 3285b81b6b3SRodney W. Grimes char modif[TOK_STRING_SIZE]; 3295b81b6b3SRodney W. Grimes db_expr_t addr, count; 330cd508278SPedro F. Giffuni bool have_addr = false; 3315b81b6b3SRodney W. Grimes int result; 3325b81b6b3SRodney W. Grimes 3335b81b6b3SRodney W. Grimes t = db_read_token(); 3345b81b6b3SRodney W. Grimes if (t == tEOL) { 3355b81b6b3SRodney W. Grimes /* empty line repeats last command, at 'next' */ 3365b81b6b3SRodney W. Grimes cmd = *last_cmdp; 3375b81b6b3SRodney W. Grimes addr = (db_expr_t)db_next; 3382b490bc7SPedro F. Giffuni have_addr = false; 3395b81b6b3SRodney W. Grimes count = 1; 3405b81b6b3SRodney W. Grimes modif[0] = '\0'; 3415b81b6b3SRodney W. Grimes } 3425b81b6b3SRodney W. Grimes else if (t == tEXCL) { 343cd508278SPedro F. Giffuni db_fncall((db_expr_t)0, (bool)false, (db_expr_t)0, (char *)0); 3445b81b6b3SRodney W. Grimes return; 3455b81b6b3SRodney W. Grimes } 3465b81b6b3SRodney W. Grimes else if (t != tIDENT) { 3475b81b6b3SRodney W. Grimes db_printf("?\n"); 3485b81b6b3SRodney W. Grimes db_flush_lex(); 3495b81b6b3SRodney W. Grimes return; 3505b81b6b3SRodney W. Grimes } 3515b81b6b3SRodney W. Grimes else { 3525b81b6b3SRodney W. Grimes /* 3535b81b6b3SRodney W. Grimes * Search for command 3545b81b6b3SRodney W. Grimes */ 3555b81b6b3SRodney W. Grimes while (cmd_table) { 3565b81b6b3SRodney W. Grimes result = db_cmd_search(db_tok_string, 3575b81b6b3SRodney W. Grimes cmd_table, 3585b81b6b3SRodney W. Grimes &cmd); 3595b81b6b3SRodney W. Grimes switch (result) { 3605b81b6b3SRodney W. Grimes case CMD_NONE: 3615b81b6b3SRodney W. Grimes db_printf("No such command\n"); 3625b81b6b3SRodney W. Grimes db_flush_lex(); 3635b81b6b3SRodney W. Grimes return; 3645b81b6b3SRodney W. Grimes case CMD_AMBIGUOUS: 3655b81b6b3SRodney W. Grimes db_printf("Ambiguous\n"); 3665b81b6b3SRodney W. Grimes db_flush_lex(); 3675b81b6b3SRodney W. Grimes return; 3685b81b6b3SRodney W. Grimes case CMD_HELP: 369e1e31c0eSJohn Baldwin db_cmd_list(cmd_table); 3705b81b6b3SRodney W. Grimes db_flush_lex(); 3715b81b6b3SRodney W. Grimes return; 3725b81b6b3SRodney W. Grimes default: 3735b81b6b3SRodney W. Grimes break; 3745b81b6b3SRodney W. Grimes } 375e1e31c0eSJohn Baldwin if ((cmd_table = cmd->more) != NULL) { 3765b81b6b3SRodney W. Grimes t = db_read_token(); 3775b81b6b3SRodney W. Grimes if (t != tIDENT) { 378e1e31c0eSJohn Baldwin db_cmd_list(cmd_table); 3795b81b6b3SRodney W. Grimes db_flush_lex(); 3805b81b6b3SRodney W. Grimes return; 3815b81b6b3SRodney W. Grimes } 3825b81b6b3SRodney W. Grimes } 3835b81b6b3SRodney W. Grimes } 3845b81b6b3SRodney W. Grimes 3855b81b6b3SRodney W. Grimes if ((cmd->flag & CS_OWN) == 0) { 3865b81b6b3SRodney W. Grimes /* 3875b81b6b3SRodney W. Grimes * Standard syntax: 3885b81b6b3SRodney W. Grimes * command [/modifier] [addr] [,count] 3895b81b6b3SRodney W. Grimes */ 3905b81b6b3SRodney W. Grimes t = db_read_token(); 3915b81b6b3SRodney W. Grimes if (t == tSLASH) { 3925b81b6b3SRodney W. Grimes t = db_read_token(); 3935b81b6b3SRodney W. Grimes if (t != tIDENT) { 3945b81b6b3SRodney W. Grimes db_printf("Bad modifier\n"); 3955b81b6b3SRodney W. Grimes db_flush_lex(); 3965b81b6b3SRodney W. Grimes return; 3975b81b6b3SRodney W. Grimes } 3985b81b6b3SRodney W. Grimes db_strcpy(modif, db_tok_string); 3995b81b6b3SRodney W. Grimes } 4005b81b6b3SRodney W. Grimes else { 4015b81b6b3SRodney W. Grimes db_unread_token(t); 4025b81b6b3SRodney W. Grimes modif[0] = '\0'; 4035b81b6b3SRodney W. Grimes } 4045b81b6b3SRodney W. Grimes 4055b81b6b3SRodney W. Grimes if (db_expression(&addr)) { 4065b81b6b3SRodney W. Grimes db_dot = (db_addr_t) addr; 4075b81b6b3SRodney W. Grimes db_last_addr = db_dot; 4082b490bc7SPedro F. Giffuni have_addr = true; 4095b81b6b3SRodney W. Grimes } 4105b81b6b3SRodney W. Grimes else { 4115b81b6b3SRodney W. Grimes addr = (db_expr_t) db_dot; 4122b490bc7SPedro F. Giffuni have_addr = false; 4135b81b6b3SRodney W. Grimes } 4145b81b6b3SRodney W. Grimes t = db_read_token(); 4155b81b6b3SRodney W. Grimes if (t == tCOMMA) { 4165b81b6b3SRodney W. Grimes if (!db_expression(&count)) { 4175b81b6b3SRodney W. Grimes db_printf("Count missing\n"); 4185b81b6b3SRodney W. Grimes db_flush_lex(); 4195b81b6b3SRodney W. Grimes return; 4205b81b6b3SRodney W. Grimes } 4215b81b6b3SRodney W. Grimes } 4225b81b6b3SRodney W. Grimes else { 4235b81b6b3SRodney W. Grimes db_unread_token(t); 4245b81b6b3SRodney W. Grimes count = -1; 4255b81b6b3SRodney W. Grimes } 4265b81b6b3SRodney W. Grimes if ((cmd->flag & CS_MORE) == 0) { 4275b81b6b3SRodney W. Grimes db_skip_to_eol(); 4285b81b6b3SRodney W. Grimes } 4295b81b6b3SRodney W. Grimes } 4305b81b6b3SRodney W. Grimes } 4315b81b6b3SRodney W. Grimes *last_cmdp = cmd; 432*9f915a92SPedro F. Giffuni if (cmd != NULL) { 4335b81b6b3SRodney W. Grimes /* 4345b81b6b3SRodney W. Grimes * Execute the command. 4355b81b6b3SRodney W. Grimes */ 436c9b0cc3bSRobert Watson if (dopager) 43719e9205aSJohn Baldwin db_enable_pager(); 438c9b0cc3bSRobert Watson else 439c9b0cc3bSRobert Watson db_disable_pager(); 4405b81b6b3SRodney W. Grimes (*cmd->fcn)(addr, have_addr, count, modif); 441c9b0cc3bSRobert Watson if (dopager) 44219e9205aSJohn Baldwin db_disable_pager(); 4435b81b6b3SRodney W. Grimes 4445b81b6b3SRodney W. Grimes if (cmd->flag & CS_SET_DOT) { 4455b81b6b3SRodney W. Grimes /* 4465b81b6b3SRodney W. Grimes * If command changes dot, set dot to 4475b81b6b3SRodney W. Grimes * previous address displayed (if 'ed' style). 4485b81b6b3SRodney W. Grimes */ 4495b81b6b3SRodney W. Grimes if (db_ed_style) { 4505b81b6b3SRodney W. Grimes db_dot = db_prev; 4515b81b6b3SRodney W. Grimes } 4525b81b6b3SRodney W. Grimes else { 4535b81b6b3SRodney W. Grimes db_dot = db_next; 4545b81b6b3SRodney W. Grimes } 4555b81b6b3SRodney W. Grimes } 4565b81b6b3SRodney W. Grimes else { 4575b81b6b3SRodney W. Grimes /* 4585b81b6b3SRodney W. Grimes * If command does not change dot, 4595b81b6b3SRodney W. Grimes * set 'next' location to be the same. 4605b81b6b3SRodney W. Grimes */ 4615b81b6b3SRodney W. Grimes db_next = db_dot; 4625b81b6b3SRodney W. Grimes } 4635b81b6b3SRodney W. Grimes } 4645b81b6b3SRodney W. Grimes } 4655b81b6b3SRodney W. Grimes 4665b81b6b3SRodney W. Grimes /* 467b7aa38c1SBruce Evans * At least one non-optional command must be implemented using 468b7aa38c1SBruce Evans * DB_COMMAND() so that db_cmd_set gets created. Here is one. 469b7aa38c1SBruce Evans */ 470b7aa38c1SBruce Evans DB_COMMAND(panic, db_panic) 4713eac4884SPoul-Henning Kamp { 47215cc91d3SJohn Baldwin db_disable_pager(); 473edf8a815SDavid Greenman panic("from debugger"); 4743eac4884SPoul-Henning Kamp } 4753eac4884SPoul-Henning Kamp 4763eac4884SPoul-Henning Kamp void 477a41dd031SPedro F. Giffuni db_command_loop(void) 4785b81b6b3SRodney W. Grimes { 4795b81b6b3SRodney W. Grimes /* 4805b81b6b3SRodney W. Grimes * Initialize 'prev' and 'next' to dot. 4815b81b6b3SRodney W. Grimes */ 4825b81b6b3SRodney W. Grimes db_prev = db_dot; 4835b81b6b3SRodney W. Grimes db_next = db_dot; 4845b81b6b3SRodney W. Grimes 4855b81b6b3SRodney W. Grimes db_cmd_loop_done = 0; 4865b81b6b3SRodney W. Grimes while (!db_cmd_loop_done) { 4875b81b6b3SRodney W. Grimes if (db_print_position() != 0) 4885b81b6b3SRodney W. Grimes db_printf("\n"); 4895b81b6b3SRodney W. Grimes 4905b81b6b3SRodney W. Grimes db_printf("db> "); 4915b81b6b3SRodney W. Grimes (void) db_read_line(); 4925b81b6b3SRodney W. Grimes 49339297ba4SSam Leffler db_command(&db_last_command, &db_cmd_table, /* dopager */ 1); 4945b81b6b3SRodney W. Grimes } 4955b81b6b3SRodney W. Grimes } 4965b81b6b3SRodney W. Grimes 497c9b0cc3bSRobert Watson /* 498c9b0cc3bSRobert Watson * Execute a command on behalf of a script. The caller is responsible for 499c9b0cc3bSRobert Watson * making sure that the command string is < DB_MAXLINE or it will be 500c9b0cc3bSRobert Watson * truncated. 501c9b0cc3bSRobert Watson * 502c9b0cc3bSRobert Watson * XXXRW: Runs by injecting faked input into DDB input stream; it would be 503c9b0cc3bSRobert Watson * nicer to use an alternative approach that didn't mess with the previous 504c9b0cc3bSRobert Watson * command buffer. 505c9b0cc3bSRobert Watson */ 506c9b0cc3bSRobert Watson void 507c9b0cc3bSRobert Watson db_command_script(const char *command) 508c9b0cc3bSRobert Watson { 509c9b0cc3bSRobert Watson db_prev = db_next = db_dot; 510c9b0cc3bSRobert Watson db_inject_line(command); 51139297ba4SSam Leffler db_command(&db_last_command, &db_cmd_table, /* dopager */ 0); 512c9b0cc3bSRobert Watson } 513c9b0cc3bSRobert Watson 5145b81b6b3SRodney W. Grimes void 515a41dd031SPedro F. Giffuni db_error(const char *s) 5165b81b6b3SRodney W. Grimes { 5175b81b6b3SRodney W. Grimes if (s) 51858d9a059SKris Kennaway db_printf("%s", s); 5195b81b6b3SRodney W. Grimes db_flush_lex(); 52037224cd3SMarcel Moolenaar kdb_reenter(); 5215b81b6b3SRodney W. Grimes } 5225b81b6b3SRodney W. Grimes 523299cceefSMarcel Moolenaar static void 524cd508278SPedro F. Giffuni db_dump(db_expr_t dummy, bool dummy2, db_expr_t dummy3, char *dummy4) 525299cceefSMarcel Moolenaar { 526299cceefSMarcel Moolenaar int error; 527299cceefSMarcel Moolenaar 52821d748a9SAlfred Perlstein if (textdump_pending) { 52921d748a9SAlfred Perlstein db_printf("textdump_pending set.\n" 53021d748a9SAlfred Perlstein "run \"textdump unset\" first or \"textdump dump\" for a textdump.\n"); 53121d748a9SAlfred Perlstein return; 53221d748a9SAlfred Perlstein } 5332b490bc7SPedro F. Giffuni error = doadump(false); 534299cceefSMarcel Moolenaar if (error) { 535299cceefSMarcel Moolenaar db_printf("Cannot dump: "); 536299cceefSMarcel Moolenaar switch (error) { 537299cceefSMarcel Moolenaar case EBUSY: 538299cceefSMarcel Moolenaar db_printf("debugger got invoked while dumping.\n"); 539299cceefSMarcel Moolenaar break; 540299cceefSMarcel Moolenaar case ENXIO: 541299cceefSMarcel Moolenaar db_printf("no dump device specified.\n"); 542299cceefSMarcel Moolenaar break; 543299cceefSMarcel Moolenaar default: 544299cceefSMarcel Moolenaar db_printf("unknown error (error=%d).\n", error); 545299cceefSMarcel Moolenaar break; 546299cceefSMarcel Moolenaar } 547299cceefSMarcel Moolenaar } 548299cceefSMarcel Moolenaar } 5495b81b6b3SRodney W. Grimes 5505b81b6b3SRodney W. Grimes /* 5515b81b6b3SRodney W. Grimes * Call random function: 5525b81b6b3SRodney W. Grimes * !expr(arg,arg,arg) 5535b81b6b3SRodney W. Grimes */ 554a2aeb24eSMarcel Moolenaar 555a2aeb24eSMarcel Moolenaar /* The generic implementation supports a maximum of 10 arguments. */ 556a2aeb24eSMarcel Moolenaar typedef db_expr_t __db_f(db_expr_t, db_expr_t, db_expr_t, db_expr_t, 557a2aeb24eSMarcel Moolenaar db_expr_t, db_expr_t, db_expr_t, db_expr_t, db_expr_t, db_expr_t); 558a2aeb24eSMarcel Moolenaar 559a2aeb24eSMarcel Moolenaar static __inline int 560a2aeb24eSMarcel Moolenaar db_fncall_generic(db_expr_t addr, db_expr_t *rv, int nargs, db_expr_t args[]) 561a2aeb24eSMarcel Moolenaar { 562a2aeb24eSMarcel Moolenaar __db_f *f = (__db_f *)addr; 563a2aeb24eSMarcel Moolenaar 564a2aeb24eSMarcel Moolenaar if (nargs > 10) { 565a2aeb24eSMarcel Moolenaar db_printf("Too many arguments (max 10)\n"); 566a2aeb24eSMarcel Moolenaar return (0); 567a2aeb24eSMarcel Moolenaar } 568a2aeb24eSMarcel Moolenaar *rv = (*f)(args[0], args[1], args[2], args[3], args[4], args[5], 569a2aeb24eSMarcel Moolenaar args[6], args[7], args[8], args[9]); 570a2aeb24eSMarcel Moolenaar return (1); 571a2aeb24eSMarcel Moolenaar } 572a2aeb24eSMarcel Moolenaar 573f73a856dSPoul-Henning Kamp static void 574cd508278SPedro F. Giffuni db_fncall(db_expr_t dummy1, bool dummy2, db_expr_t dummy3, char *dummy4) 5755b81b6b3SRodney W. Grimes { 5765b81b6b3SRodney W. Grimes db_expr_t fn_addr; 577a2aeb24eSMarcel Moolenaar db_expr_t args[DB_MAXARGS]; 5785b81b6b3SRodney W. Grimes int nargs = 0; 5795b81b6b3SRodney W. Grimes db_expr_t retval; 5805b81b6b3SRodney W. Grimes int t; 5815b81b6b3SRodney W. Grimes 5825b81b6b3SRodney W. Grimes if (!db_expression(&fn_addr)) { 5835b81b6b3SRodney W. Grimes db_printf("Bad function\n"); 5845b81b6b3SRodney W. Grimes db_flush_lex(); 5855b81b6b3SRodney W. Grimes return; 5865b81b6b3SRodney W. Grimes } 5875b81b6b3SRodney W. Grimes 5885b81b6b3SRodney W. Grimes t = db_read_token(); 5895b81b6b3SRodney W. Grimes if (t == tLPAREN) { 5905b81b6b3SRodney W. Grimes if (db_expression(&args[0])) { 5915b81b6b3SRodney W. Grimes nargs++; 5925b81b6b3SRodney W. Grimes while ((t = db_read_token()) == tCOMMA) { 593a2aeb24eSMarcel Moolenaar if (nargs == DB_MAXARGS) { 594a2aeb24eSMarcel Moolenaar db_printf("Too many arguments (max %d)\n", DB_MAXARGS); 5955b81b6b3SRodney W. Grimes db_flush_lex(); 5965b81b6b3SRodney W. Grimes return; 5975b81b6b3SRodney W. Grimes } 5985b81b6b3SRodney W. Grimes if (!db_expression(&args[nargs])) { 5995b81b6b3SRodney W. Grimes db_printf("Argument missing\n"); 6005b81b6b3SRodney W. Grimes db_flush_lex(); 6015b81b6b3SRodney W. Grimes return; 6025b81b6b3SRodney W. Grimes } 6035b81b6b3SRodney W. Grimes nargs++; 6045b81b6b3SRodney W. Grimes } 6055b81b6b3SRodney W. Grimes db_unread_token(t); 6065b81b6b3SRodney W. Grimes } 6075b81b6b3SRodney W. Grimes if (db_read_token() != tRPAREN) { 6085b81b6b3SRodney W. Grimes db_printf("?\n"); 6095b81b6b3SRodney W. Grimes db_flush_lex(); 6105b81b6b3SRodney W. Grimes return; 6115b81b6b3SRodney W. Grimes } 6125b81b6b3SRodney W. Grimes } 6135b81b6b3SRodney W. Grimes db_skip_to_eol(); 61415cc91d3SJohn Baldwin db_disable_pager(); 6155b81b6b3SRodney W. Grimes 616a2aeb24eSMarcel Moolenaar if (DB_CALL(fn_addr, &retval, nargs, args)) 617a2aeb24eSMarcel Moolenaar db_printf("= %#lr\n", (long)retval); 6185b81b6b3SRodney W. Grimes } 619ad146781SPaul Traina 6205370c3b6SPeter Wemm static void 621cd508278SPedro F. Giffuni db_halt(db_expr_t dummy, bool dummy2, db_expr_t dummy3, char *dummy4) 622e4b732cfSBruce Evans { 623e4b732cfSBruce Evans 624e4b732cfSBruce Evans cpu_halt(); 625e4b732cfSBruce Evans } 626e4b732cfSBruce Evans 627e4b732cfSBruce Evans static void 628cd508278SPedro F. Giffuni db_kill(db_expr_t dummy1, bool dummy2, db_expr_t dummy3, char *dummy4) 62919d2c78fSDima Dorfman { 63019d2c78fSDima Dorfman db_expr_t old_radix, pid, sig; 63119d2c78fSDima Dorfman struct proc *p; 63219d2c78fSDima Dorfman 63319d2c78fSDima Dorfman #define DB_ERROR(f) do { db_printf f; db_flush_lex(); goto out; } while (0) 63419d2c78fSDima Dorfman 63519d2c78fSDima Dorfman /* 63619d2c78fSDima Dorfman * PIDs and signal numbers are typically represented in base 63719d2c78fSDima Dorfman * 10, so make that the default here. It can, of course, be 63819d2c78fSDima Dorfman * overridden by specifying a prefix. 63919d2c78fSDima Dorfman */ 64019d2c78fSDima Dorfman old_radix = db_radix; 64119d2c78fSDima Dorfman db_radix = 10; 64219d2c78fSDima Dorfman /* Retrieve arguments. */ 64319d2c78fSDima Dorfman if (!db_expression(&sig)) 64419d2c78fSDima Dorfman DB_ERROR(("Missing signal number\n")); 64519d2c78fSDima Dorfman if (!db_expression(&pid)) 64619d2c78fSDima Dorfman DB_ERROR(("Missing process ID\n")); 64719d2c78fSDima Dorfman db_skip_to_eol(); 648a29af74bSKonstantin Belousov if (!_SIG_VALID(sig)) 64919d2c78fSDima Dorfman DB_ERROR(("Signal number out of range\n")); 65019d2c78fSDima Dorfman 65119d2c78fSDima Dorfman /* 65219d2c78fSDima Dorfman * Find the process in question. allproc_lock is not needed 65319d2c78fSDima Dorfman * since we're in DDB. 65419d2c78fSDima Dorfman */ 65519d2c78fSDima Dorfman /* sx_slock(&allproc_lock); */ 656f67af5c9SXin LI FOREACH_PROC_IN_SYSTEM(p) 65719d2c78fSDima Dorfman if (p->p_pid == pid) 65819d2c78fSDima Dorfman break; 65919d2c78fSDima Dorfman /* sx_sunlock(&allproc_lock); */ 66019d2c78fSDima Dorfman if (p == NULL) 661e30e3e9eSMatt Jacob DB_ERROR(("Can't find process with pid %ld\n", (long) pid)); 66219d2c78fSDima Dorfman 66319d2c78fSDima Dorfman /* If it's already locked, bail; otherwise, do the deed. */ 66419d2c78fSDima Dorfman if (PROC_TRYLOCK(p) == 0) 665e30e3e9eSMatt Jacob DB_ERROR(("Can't lock process with pid %ld\n", (long) pid)); 66619d2c78fSDima Dorfman else { 667a3de221dSKonstantin Belousov pksignal(p, sig, NULL); 66819d2c78fSDima Dorfman PROC_UNLOCK(p); 66919d2c78fSDima Dorfman } 67019d2c78fSDima Dorfman 67119d2c78fSDima Dorfman out: 67219d2c78fSDima Dorfman db_radix = old_radix; 67319d2c78fSDima Dorfman #undef DB_ERROR 67419d2c78fSDima Dorfman } 67519d2c78fSDima Dorfman 6760f59fbc3SBjoern A. Zeeb /* 6770f59fbc3SBjoern A. Zeeb * Reboot. In case there is an additional argument, take it as delay in 6780f59fbc3SBjoern A. Zeeb * seconds. Default to 15s if we cannot parse it and make sure we will 6790f59fbc3SBjoern A. Zeeb * never wait longer than 1 week. Some code is similar to 6800f59fbc3SBjoern A. Zeeb * kern_shutdown.c:shutdown_panic(). 6810f59fbc3SBjoern A. Zeeb */ 6820f59fbc3SBjoern A. Zeeb #ifndef DB_RESET_MAXDELAY 6830f59fbc3SBjoern A. Zeeb #define DB_RESET_MAXDELAY (3600 * 24 * 7) 6840f59fbc3SBjoern A. Zeeb #endif 6850f59fbc3SBjoern A. Zeeb 68619d2c78fSDima Dorfman static void 687cd508278SPedro F. Giffuni db_reset(db_expr_t addr, bool have_addr, db_expr_t count __unused, 6880f59fbc3SBjoern A. Zeeb char *modif __unused) 6895370c3b6SPeter Wemm { 6900f59fbc3SBjoern A. Zeeb int delay, loop; 6910f59fbc3SBjoern A. Zeeb 6920f59fbc3SBjoern A. Zeeb if (have_addr) { 6930f59fbc3SBjoern A. Zeeb delay = (int)db_hex2dec(addr); 6940f59fbc3SBjoern A. Zeeb 6950f59fbc3SBjoern A. Zeeb /* If we parse to fail, use 15s. */ 6960f59fbc3SBjoern A. Zeeb if (delay == -1) 6970f59fbc3SBjoern A. Zeeb delay = 15; 6980f59fbc3SBjoern A. Zeeb 6990f59fbc3SBjoern A. Zeeb /* Cap at one week. */ 7000f59fbc3SBjoern A. Zeeb if ((uintmax_t)delay > (uintmax_t)DB_RESET_MAXDELAY) 7010f59fbc3SBjoern A. Zeeb delay = DB_RESET_MAXDELAY; 7020f59fbc3SBjoern A. Zeeb 7030f59fbc3SBjoern A. Zeeb db_printf("Automatic reboot in %d seconds - " 7040f59fbc3SBjoern A. Zeeb "press a key on the console to abort\n", delay); 7050f59fbc3SBjoern A. Zeeb for (loop = delay * 10; loop > 0; --loop) { 7060f59fbc3SBjoern A. Zeeb DELAY(1000 * 100); /* 1/10th second */ 7070f59fbc3SBjoern A. Zeeb /* Did user type a key? */ 7080f59fbc3SBjoern A. Zeeb if (cncheckc() != -1) 7090f59fbc3SBjoern A. Zeeb return; 7100f59fbc3SBjoern A. Zeeb } 7110f59fbc3SBjoern A. Zeeb } 7125370c3b6SPeter Wemm 7135370c3b6SPeter Wemm cpu_reset(); 7145370c3b6SPeter Wemm } 71574cc032bSPoul-Henning Kamp 71674cc032bSPoul-Henning Kamp static void 717cd508278SPedro F. Giffuni db_watchdog(db_expr_t dummy1, bool dummy2, db_expr_t dummy3, char *dummy4) 71874cc032bSPoul-Henning Kamp { 7198b927d7bSAttilio Rao db_expr_t old_radix, tout; 7208b927d7bSAttilio Rao int err, i; 7218b927d7bSAttilio Rao 7228b927d7bSAttilio Rao old_radix = db_radix; 7238b927d7bSAttilio Rao db_radix = 10; 7248b927d7bSAttilio Rao err = db_expression(&tout); 7258b927d7bSAttilio Rao db_skip_to_eol(); 7268b927d7bSAttilio Rao db_radix = old_radix; 7278b927d7bSAttilio Rao 7288b927d7bSAttilio Rao /* If no argument is provided the watchdog will just be disabled. */ 7298b927d7bSAttilio Rao if (err == 0) { 7308b927d7bSAttilio Rao db_printf("No argument provided, disabling watchdog\n"); 7318b927d7bSAttilio Rao tout = 0; 7328b927d7bSAttilio Rao } else if ((tout & WD_INTERVAL) == WD_TO_NEVER) { 7338b927d7bSAttilio Rao db_error("Out of range watchdog interval\n"); 7348b927d7bSAttilio Rao return; 7358b927d7bSAttilio Rao } 7368b927d7bSAttilio Rao EVENTHANDLER_INVOKE(watchdog_list, tout, &i); 73774cc032bSPoul-Henning Kamp } 738f3be7cb3SMarcel Moolenaar 739f3be7cb3SMarcel Moolenaar static void 740cd508278SPedro F. Giffuni db_gdb(db_expr_t dummy1, bool dummy2, db_expr_t dummy3, char *dummy4) 741f3be7cb3SMarcel Moolenaar { 742f3be7cb3SMarcel Moolenaar 7433a5d3671SMatthew D Fleming if (kdb_dbbe_select("gdb") != 0) { 744f3be7cb3SMarcel Moolenaar db_printf("The remote GDB backend could not be selected.\n"); 7453a5d3671SMatthew D Fleming return; 7463a5d3671SMatthew D Fleming } 7473a5d3671SMatthew D Fleming /* 7483a5d3671SMatthew D Fleming * Mark that we are done in the debugger. kdb_trap() 7493a5d3671SMatthew D Fleming * should re-enter with the new backend. 7503a5d3671SMatthew D Fleming */ 7513a5d3671SMatthew D Fleming db_cmd_loop_done = 1; 7523a5d3671SMatthew D Fleming db_printf("(ctrl-c will return control to ddb)\n"); 753f3be7cb3SMarcel Moolenaar } 754fd32d93bSMarcel Moolenaar 755fd32d93bSMarcel Moolenaar static void 756cd508278SPedro F. Giffuni db_stack_trace(db_expr_t tid, bool hastid, db_expr_t count, char *modif) 757fd32d93bSMarcel Moolenaar { 758fd32d93bSMarcel Moolenaar struct thread *td; 759fd32d93bSMarcel Moolenaar db_expr_t radix; 760a13aca1aSRobert Watson pid_t pid; 761fd32d93bSMarcel Moolenaar int t; 762fd32d93bSMarcel Moolenaar 763fd32d93bSMarcel Moolenaar /* 764fd32d93bSMarcel Moolenaar * We parse our own arguments. We don't like the default radix. 765fd32d93bSMarcel Moolenaar */ 766fd32d93bSMarcel Moolenaar radix = db_radix; 767fd32d93bSMarcel Moolenaar db_radix = 10; 768fd32d93bSMarcel Moolenaar hastid = db_expression(&tid); 769fd32d93bSMarcel Moolenaar t = db_read_token(); 770fd32d93bSMarcel Moolenaar if (t == tCOMMA) { 771fd32d93bSMarcel Moolenaar if (!db_expression(&count)) { 772fd32d93bSMarcel Moolenaar db_printf("Count missing\n"); 773fd32d93bSMarcel Moolenaar db_flush_lex(); 774fd32d93bSMarcel Moolenaar return; 775fd32d93bSMarcel Moolenaar } 776fd32d93bSMarcel Moolenaar } else { 777fd32d93bSMarcel Moolenaar db_unread_token(t); 778fd32d93bSMarcel Moolenaar count = -1; 779fd32d93bSMarcel Moolenaar } 780fd32d93bSMarcel Moolenaar db_skip_to_eol(); 781fd32d93bSMarcel Moolenaar db_radix = radix; 782fd32d93bSMarcel Moolenaar 783fd32d93bSMarcel Moolenaar if (hastid) { 784fd32d93bSMarcel Moolenaar td = kdb_thr_lookup((lwpid_t)tid); 785fd32d93bSMarcel Moolenaar if (td == NULL) 786fd32d93bSMarcel Moolenaar td = kdb_thr_from_pid((pid_t)tid); 787fd32d93bSMarcel Moolenaar if (td == NULL) { 788fd32d93bSMarcel Moolenaar db_printf("Thread %d not found\n", (int)tid); 789fd32d93bSMarcel Moolenaar return; 790fd32d93bSMarcel Moolenaar } 791fd32d93bSMarcel Moolenaar } else 792fd32d93bSMarcel Moolenaar td = kdb_thread; 793a13aca1aSRobert Watson if (td->td_proc != NULL) 794a13aca1aSRobert Watson pid = td->td_proc->p_pid; 795a13aca1aSRobert Watson else 796a13aca1aSRobert Watson pid = -1; 797a13aca1aSRobert Watson db_printf("Tracing pid %d tid %ld td %p\n", pid, (long)td->td_tid, td); 798fd32d93bSMarcel Moolenaar db_trace_thread(td, count); 799fd32d93bSMarcel Moolenaar } 800a7ad956bSRobert Watson 801a7ad956bSRobert Watson static void 802cd508278SPedro F. Giffuni db_stack_trace_all(db_expr_t dummy, bool dummy2, db_expr_t dummy3, 803a7ad956bSRobert Watson char *dummy4) 804a7ad956bSRobert Watson { 805a7ad956bSRobert Watson struct proc *p; 806a7ad956bSRobert Watson struct thread *td; 8079641e389SKonstantin Belousov jmp_buf jb; 8089641e389SKonstantin Belousov void *prev_jb; 809a7ad956bSRobert Watson 810f67af5c9SXin LI FOREACH_PROC_IN_SYSTEM(p) { 8119641e389SKonstantin Belousov prev_jb = kdb_jmpbuf(jb); 8129641e389SKonstantin Belousov if (setjmp(jb) == 0) { 813a7ad956bSRobert Watson FOREACH_THREAD_IN_PROC(p, td) { 814a7ad956bSRobert Watson db_printf("\nTracing command %s pid %d tid %ld td %p\n", 815a7ad956bSRobert Watson p->p_comm, p->p_pid, (long)td->td_tid, td); 816a7ad956bSRobert Watson db_trace_thread(td, -1); 8179641e389SKonstantin Belousov if (db_pager_quit) { 8189641e389SKonstantin Belousov kdb_jmpbuf(prev_jb); 819da927f93SOlivier Houchard return; 820a7ad956bSRobert Watson } 821a7ad956bSRobert Watson } 822a7ad956bSRobert Watson } 8239641e389SKonstantin Belousov kdb_jmpbuf(prev_jb); 8249641e389SKonstantin Belousov } 8259641e389SKonstantin Belousov } 8260f59fbc3SBjoern A. Zeeb 8270f59fbc3SBjoern A. Zeeb /* 8280f59fbc3SBjoern A. Zeeb * Take the parsed expression value from the command line that was parsed 8290f59fbc3SBjoern A. Zeeb * as a hexadecimal value and convert it as if the expression was parsed 8300f59fbc3SBjoern A. Zeeb * as a decimal value. Returns -1 if the expression was not a valid 8310f59fbc3SBjoern A. Zeeb * decimal value. 8320f59fbc3SBjoern A. Zeeb */ 8330f59fbc3SBjoern A. Zeeb db_expr_t 8340f59fbc3SBjoern A. Zeeb db_hex2dec(db_expr_t expr) 8350f59fbc3SBjoern A. Zeeb { 8360f59fbc3SBjoern A. Zeeb uintptr_t x, y; 8370f59fbc3SBjoern A. Zeeb db_expr_t val; 8380f59fbc3SBjoern A. Zeeb 8390f59fbc3SBjoern A. Zeeb y = 1; 8400f59fbc3SBjoern A. Zeeb val = 0; 8410f59fbc3SBjoern A. Zeeb x = expr; 8420f59fbc3SBjoern A. Zeeb while (x != 0) { 8430f59fbc3SBjoern A. Zeeb if (x % 16 > 9) 8440f59fbc3SBjoern A. Zeeb return (-1); 8450f59fbc3SBjoern A. Zeeb val += (x % 16) * (y); 8460f59fbc3SBjoern A. Zeeb x >>= 4; 8470f59fbc3SBjoern A. Zeeb y *= 10; 8480f59fbc3SBjoern A. Zeeb } 8490f59fbc3SBjoern A. Zeeb return (val); 8500f59fbc3SBjoern A. Zeeb } 851