1 /*-
2 * SPDX-License-Identifier: BSD-2-Clause
3 *
4 * Copyright (c) 2004 Marcel Moolenaar
5 * All rights reserved.
6 *
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following conditions
9 * are met:
10 *
11 * 1. Redistributions of source code must retain the above copyright
12 * notice, this list of conditions and the following disclaimer.
13 * 2. Redistributions in binary form must reproduce the above copyright
14 * notice, this list of conditions and the following disclaimer in the
15 * documentation and/or other materials provided with the distribution.
16 *
17 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
18 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
19 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
20 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
21 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
22 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
23 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
24 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
25 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
26 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
27 */
28
29 #include <sys/cdefs.h>
30 #include <sys/param.h>
31 #include <sys/systm.h>
32 #include <sys/kdb.h>
33 #include <sys/proc.h>
34
35 #include <machine/pcb.h>
36
37 #include <ddb/ddb.h>
38 #include <ddb/db_command.h>
39 #include <ddb/db_sym.h>
40
41 void
db_print_thread(void)42 db_print_thread(void)
43 {
44 pid_t pid;
45
46 pid = -1;
47 if (kdb_thread->td_proc != NULL)
48 pid = kdb_thread->td_proc->p_pid;
49 db_printf("[ thread pid %d tid %ld ]\n", pid, (long)kdb_thread->td_tid);
50 }
51
52 void
db_set_thread(db_expr_t tid,bool hastid,db_expr_t cnt,char * mod)53 db_set_thread(db_expr_t tid, bool hastid, db_expr_t cnt, char *mod)
54 {
55 struct thread *thr;
56 int err;
57
58 if (hastid) {
59 thr = db_lookup_thread(tid, false);
60 if (thr != NULL) {
61 err = kdb_thr_select(thr);
62 if (err != 0) {
63 db_printf("unable to switch to thread %ld\n",
64 (long)thr->td_tid);
65 return;
66 }
67 db_dot = PC_REGS();
68 } else {
69 db_printf("%d: invalid thread\n", (int)tid);
70 return;
71 }
72 }
73
74 db_print_thread();
75 db_print_loc_and_inst(PC_REGS());
76 }
77
78 void
db_show_threads(db_expr_t addr,bool hasaddr,db_expr_t cnt,char * mod)79 db_show_threads(db_expr_t addr, bool hasaddr, db_expr_t cnt, char *mod)
80 {
81 jmp_buf jb;
82 void *prev_jb;
83 struct thread *thr;
84
85 thr = kdb_thr_first();
86 while (!db_pager_quit && thr != NULL) {
87 db_printf(" %6ld (%p) (stack %p) ", (long)thr->td_tid, thr,
88 (void *)thr->td_kstack);
89 prev_jb = kdb_jmpbuf(jb);
90 if (setjmp(jb) == 0) {
91 if (thr->td_proc->p_flag & P_INMEM) {
92 if (db_trace_thread(thr, 1) != 0)
93 db_printf("***\n");
94 } else
95 db_printf("*** swapped out\n");
96 }
97 kdb_jmpbuf(prev_jb);
98 thr = kdb_thr_next(thr);
99 }
100 }
101
102 /*
103 * Lookup a thread based on a db expression address. We assume that the
104 * address was parsed in hexadecimal. We reparse the address in decimal
105 * first and try to treat it as a thread ID to find an associated thread.
106 * If that fails and check_pid is true, we treat the decimal value as a
107 * PID. If that matches a process, we return the first thread in that
108 * process. Otherwise, we treat the addr as a pointer to a thread.
109 */
110 struct thread *
db_lookup_thread(db_expr_t addr,bool check_pid)111 db_lookup_thread(db_expr_t addr, bool check_pid)
112 {
113 struct thread *td;
114 db_expr_t decaddr;
115
116 /*
117 * If the parsed address was not a valid decimal expression,
118 * assume it is a thread pointer.
119 */
120 decaddr = db_hex2dec(addr);
121 if (decaddr == -1)
122 return ((struct thread *)addr);
123
124 td = kdb_thr_lookup(decaddr);
125 if (td != NULL)
126 return (td);
127 if (check_pid) {
128 td = kdb_thr_from_pid(decaddr);
129 if (td != NULL)
130 return (td);
131 }
132 return ((struct thread *)addr);
133 }
134
135 /*
136 * Lookup a process based on a db expression address. We assume that the
137 * address was parsed in hexadecimal. We reparse the address in decimal
138 * first and try to treat it as a PID to find an associated process.
139 * If that fails we treat the addr as a pointer to a process.
140 */
141 struct proc *
db_lookup_proc(db_expr_t addr)142 db_lookup_proc(db_expr_t addr)
143 {
144 db_expr_t decaddr;
145 struct proc *p;
146
147 decaddr = db_hex2dec(addr);
148 if (decaddr != -1) {
149 LIST_FOREACH(p, PIDHASH(decaddr), p_hash) {
150 if (p->p_pid == decaddr)
151 return (p);
152 }
153 }
154 return ((struct proc *)addr);
155 }
156