db_break.c revision 1.3 1 1.1 cgd /*
2 1.1 cgd * Mach Operating System
3 1.1 cgd * Copyright (c) 1991,1990 Carnegie Mellon University
4 1.1 cgd * All Rights Reserved.
5 1.1 cgd *
6 1.1 cgd * Permission to use, copy, modify and distribute this software and its
7 1.1 cgd * documentation is hereby granted, provided that both the copyright
8 1.1 cgd * notice and this permission notice appear in all copies of the
9 1.1 cgd * software, derivative works or modified versions, and any portions
10 1.1 cgd * thereof, and that both notices appear in supporting documentation.
11 1.1 cgd *
12 1.1 cgd * CARNEGIE MELLON ALLOWS FREE USE OF THIS SOFTWARE IN ITS
13 1.1 cgd * CONDITION. CARNEGIE MELLON DISCLAIMS ANY LIABILITY OF ANY KIND FOR
14 1.1 cgd * ANY DAMAGES WHATSOEVER RESULTING FROM THE USE OF THIS SOFTWARE.
15 1.1 cgd *
16 1.1 cgd * Carnegie Mellon requests users of this software to return to
17 1.1 cgd *
18 1.1 cgd * Software Distribution Coordinator or Software.Distribution (at) CS.CMU.EDU
19 1.1 cgd * School of Computer Science
20 1.1 cgd * Carnegie Mellon University
21 1.1 cgd * Pittsburgh PA 15213-3890
22 1.1 cgd *
23 1.1 cgd * any improvements or extensions that they make and grant Carnegie the
24 1.1 cgd * rights to redistribute these changes.
25 1.2 cgd *
26 1.1 cgd * Author: David B. Golub, Carnegie Mellon University
27 1.1 cgd * Date: 7/90
28 1.3 mycroft * $Id: db_break.c,v 1.3 1993/12/18 04:46:28 mycroft Exp $
29 1.1 cgd */
30 1.3 mycroft
31 1.1 cgd /*
32 1.1 cgd * Breakpoints.
33 1.1 cgd */
34 1.3 mycroft #include <sys/param.h>
35 1.3 mycroft #include <sys/proc.h>
36 1.3 mycroft
37 1.1 cgd #include <machine/db_machdep.h> /* type definitions */
38 1.1 cgd
39 1.1 cgd #include <ddb/db_lex.h>
40 1.1 cgd #include <ddb/db_break.h>
41 1.1 cgd #include <ddb/db_access.h>
42 1.1 cgd #include <ddb/db_sym.h>
43 1.1 cgd #include <ddb/db_break.h>
44 1.1 cgd
45 1.1 cgd extern boolean_t db_map_equal();
46 1.1 cgd extern boolean_t db_map_current();
47 1.1 cgd extern vm_map_t db_map_addr();
48 1.1 cgd
49 1.1 cgd #define NBREAKPOINTS 100
50 1.1 cgd struct db_breakpoint db_break_table[NBREAKPOINTS];
51 1.1 cgd db_breakpoint_t db_next_free_breakpoint = &db_break_table[0];
52 1.1 cgd db_breakpoint_t db_free_breakpoints = 0;
53 1.1 cgd db_breakpoint_t db_breakpoint_list = 0;
54 1.1 cgd
55 1.1 cgd db_breakpoint_t
56 1.1 cgd db_breakpoint_alloc()
57 1.1 cgd {
58 1.1 cgd register db_breakpoint_t bkpt;
59 1.1 cgd
60 1.1 cgd if ((bkpt = db_free_breakpoints) != 0) {
61 1.1 cgd db_free_breakpoints = bkpt->link;
62 1.1 cgd return (bkpt);
63 1.1 cgd }
64 1.1 cgd if (db_next_free_breakpoint == &db_break_table[NBREAKPOINTS]) {
65 1.1 cgd db_printf("All breakpoints used.\n");
66 1.1 cgd return (0);
67 1.1 cgd }
68 1.1 cgd bkpt = db_next_free_breakpoint;
69 1.1 cgd db_next_free_breakpoint++;
70 1.1 cgd
71 1.1 cgd return (bkpt);
72 1.1 cgd }
73 1.1 cgd
74 1.1 cgd void
75 1.1 cgd db_breakpoint_free(bkpt)
76 1.1 cgd register db_breakpoint_t bkpt;
77 1.1 cgd {
78 1.1 cgd bkpt->link = db_free_breakpoints;
79 1.1 cgd db_free_breakpoints = bkpt;
80 1.1 cgd }
81 1.1 cgd
82 1.1 cgd void
83 1.1 cgd db_set_breakpoint(map, addr, count)
84 1.1 cgd vm_map_t map;
85 1.1 cgd db_addr_t addr;
86 1.1 cgd int count;
87 1.1 cgd {
88 1.1 cgd register db_breakpoint_t bkpt;
89 1.1 cgd
90 1.1 cgd if (db_find_breakpoint(map, addr)) {
91 1.1 cgd db_printf("Already set.\n");
92 1.1 cgd return;
93 1.1 cgd }
94 1.1 cgd
95 1.1 cgd bkpt = db_breakpoint_alloc();
96 1.1 cgd if (bkpt == 0) {
97 1.1 cgd db_printf("Too many breakpoints.\n");
98 1.1 cgd return;
99 1.1 cgd }
100 1.1 cgd
101 1.1 cgd bkpt->map = map;
102 1.1 cgd bkpt->address = addr;
103 1.1 cgd bkpt->flags = 0;
104 1.1 cgd bkpt->init_count = count;
105 1.1 cgd bkpt->count = count;
106 1.1 cgd
107 1.1 cgd bkpt->link = db_breakpoint_list;
108 1.1 cgd db_breakpoint_list = bkpt;
109 1.1 cgd }
110 1.1 cgd
111 1.1 cgd void
112 1.1 cgd db_delete_breakpoint(map, addr)
113 1.1 cgd vm_map_t map;
114 1.1 cgd db_addr_t addr;
115 1.1 cgd {
116 1.1 cgd register db_breakpoint_t bkpt;
117 1.1 cgd register db_breakpoint_t *prev;
118 1.1 cgd
119 1.1 cgd for (prev = &db_breakpoint_list;
120 1.1 cgd (bkpt = *prev) != 0;
121 1.1 cgd prev = &bkpt->link) {
122 1.1 cgd if (db_map_equal(bkpt->map, map) &&
123 1.1 cgd (bkpt->address == addr)) {
124 1.1 cgd *prev = bkpt->link;
125 1.1 cgd break;
126 1.1 cgd }
127 1.1 cgd }
128 1.1 cgd if (bkpt == 0) {
129 1.1 cgd db_printf("Not set.\n");
130 1.1 cgd return;
131 1.1 cgd }
132 1.1 cgd
133 1.1 cgd db_breakpoint_free(bkpt);
134 1.1 cgd }
135 1.1 cgd
136 1.1 cgd db_breakpoint_t
137 1.1 cgd db_find_breakpoint(map, addr)
138 1.1 cgd vm_map_t map;
139 1.1 cgd db_addr_t addr;
140 1.1 cgd {
141 1.1 cgd register db_breakpoint_t bkpt;
142 1.1 cgd
143 1.1 cgd for (bkpt = db_breakpoint_list;
144 1.1 cgd bkpt != 0;
145 1.1 cgd bkpt = bkpt->link)
146 1.1 cgd {
147 1.1 cgd if (db_map_equal(bkpt->map, map) &&
148 1.1 cgd (bkpt->address == addr))
149 1.1 cgd return (bkpt);
150 1.1 cgd }
151 1.1 cgd return (0);
152 1.1 cgd }
153 1.1 cgd
154 1.1 cgd db_breakpoint_t
155 1.1 cgd db_find_breakpoint_here(addr)
156 1.1 cgd db_addr_t addr;
157 1.1 cgd {
158 1.1 cgd return db_find_breakpoint(db_map_addr(addr), addr);
159 1.1 cgd }
160 1.1 cgd
161 1.1 cgd boolean_t db_breakpoints_inserted = TRUE;
162 1.1 cgd
163 1.1 cgd void
164 1.1 cgd db_set_breakpoints()
165 1.1 cgd {
166 1.1 cgd register db_breakpoint_t bkpt;
167 1.1 cgd
168 1.1 cgd if (!db_breakpoints_inserted) {
169 1.1 cgd
170 1.1 cgd for (bkpt = db_breakpoint_list;
171 1.1 cgd bkpt != 0;
172 1.1 cgd bkpt = bkpt->link)
173 1.1 cgd if (db_map_current(bkpt->map)) {
174 1.1 cgd bkpt->bkpt_inst = db_get_value(bkpt->address,
175 1.1 cgd BKPT_SIZE,
176 1.1 cgd FALSE);
177 1.1 cgd db_put_value(bkpt->address,
178 1.1 cgd BKPT_SIZE,
179 1.1 cgd BKPT_SET(bkpt->bkpt_inst));
180 1.1 cgd }
181 1.1 cgd db_breakpoints_inserted = TRUE;
182 1.1 cgd }
183 1.1 cgd }
184 1.1 cgd
185 1.1 cgd void
186 1.1 cgd db_clear_breakpoints()
187 1.1 cgd {
188 1.1 cgd register db_breakpoint_t bkpt;
189 1.1 cgd
190 1.1 cgd if (db_breakpoints_inserted) {
191 1.1 cgd
192 1.1 cgd for (bkpt = db_breakpoint_list;
193 1.1 cgd bkpt != 0;
194 1.1 cgd bkpt = bkpt->link)
195 1.1 cgd if (db_map_current(bkpt->map)) {
196 1.1 cgd db_put_value(bkpt->address, BKPT_SIZE, bkpt->bkpt_inst);
197 1.1 cgd }
198 1.1 cgd db_breakpoints_inserted = FALSE;
199 1.1 cgd }
200 1.1 cgd }
201 1.1 cgd
202 1.1 cgd /*
203 1.1 cgd * Set a temporary breakpoint.
204 1.1 cgd * The instruction is changed immediately,
205 1.1 cgd * so the breakpoint does not have to be on the breakpoint list.
206 1.1 cgd */
207 1.1 cgd db_breakpoint_t
208 1.1 cgd db_set_temp_breakpoint(addr)
209 1.1 cgd db_addr_t addr;
210 1.1 cgd {
211 1.1 cgd register db_breakpoint_t bkpt;
212 1.1 cgd
213 1.1 cgd bkpt = db_breakpoint_alloc();
214 1.1 cgd if (bkpt == 0) {
215 1.1 cgd db_printf("Too many breakpoints.\n");
216 1.1 cgd return 0;
217 1.1 cgd }
218 1.1 cgd
219 1.1 cgd bkpt->map = NULL;
220 1.1 cgd bkpt->address = addr;
221 1.1 cgd bkpt->flags = BKPT_TEMP;
222 1.1 cgd bkpt->init_count = 1;
223 1.1 cgd bkpt->count = 1;
224 1.1 cgd
225 1.1 cgd bkpt->bkpt_inst = db_get_value(bkpt->address, BKPT_SIZE, FALSE);
226 1.1 cgd db_put_value(bkpt->address, BKPT_SIZE, BKPT_SET(bkpt->bkpt_inst));
227 1.1 cgd return bkpt;
228 1.1 cgd }
229 1.1 cgd
230 1.1 cgd void
231 1.1 cgd db_delete_temp_breakpoint(bkpt)
232 1.1 cgd db_breakpoint_t bkpt;
233 1.1 cgd {
234 1.1 cgd db_put_value(bkpt->address, BKPT_SIZE, bkpt->bkpt_inst);
235 1.1 cgd db_breakpoint_free(bkpt);
236 1.1 cgd }
237 1.1 cgd
238 1.1 cgd /*
239 1.1 cgd * List breakpoints.
240 1.1 cgd */
241 1.1 cgd void
242 1.1 cgd db_list_breakpoints()
243 1.1 cgd {
244 1.1 cgd register db_breakpoint_t bkpt;
245 1.1 cgd
246 1.1 cgd if (db_breakpoint_list == 0) {
247 1.1 cgd db_printf("No breakpoints set\n");
248 1.1 cgd return;
249 1.1 cgd }
250 1.1 cgd
251 1.1 cgd db_printf(" Map Count Address\n");
252 1.1 cgd for (bkpt = db_breakpoint_list;
253 1.1 cgd bkpt != 0;
254 1.1 cgd bkpt = bkpt->link)
255 1.1 cgd {
256 1.1 cgd db_printf("%s%8x %5d ",
257 1.1 cgd db_map_current(bkpt->map) ? "*" : " ",
258 1.1 cgd bkpt->map, bkpt->init_count);
259 1.1 cgd db_printsym(bkpt->address, DB_STGY_PROC);
260 1.1 cgd db_printf("\n");
261 1.1 cgd }
262 1.1 cgd }
263 1.1 cgd
264 1.1 cgd /* Delete breakpoint */
265 1.1 cgd /*ARGSUSED*/
266 1.1 cgd void
267 1.1 cgd db_delete_cmd(addr, have_addr, count, modif)
268 1.1 cgd db_expr_t addr;
269 1.1 cgd int have_addr;
270 1.1 cgd db_expr_t count;
271 1.1 cgd char * modif;
272 1.1 cgd {
273 1.1 cgd db_delete_breakpoint(db_map_addr(addr), (db_addr_t)addr);
274 1.1 cgd }
275 1.1 cgd
276 1.1 cgd /* Set breakpoint with skip count */
277 1.1 cgd /*ARGSUSED*/
278 1.1 cgd void
279 1.1 cgd db_breakpoint_cmd(addr, have_addr, count, modif)
280 1.1 cgd db_expr_t addr;
281 1.1 cgd int have_addr;
282 1.1 cgd db_expr_t count;
283 1.1 cgd char * modif;
284 1.1 cgd {
285 1.1 cgd if (count == -1)
286 1.1 cgd count = 1;
287 1.1 cgd
288 1.1 cgd db_set_breakpoint(db_map_addr(addr), (db_addr_t)addr, count);
289 1.1 cgd }
290 1.1 cgd
291 1.1 cgd /* list breakpoints */
292 1.1 cgd void
293 1.1 cgd db_listbreak_cmd()
294 1.1 cgd {
295 1.1 cgd db_list_breakpoints();
296 1.1 cgd }
297 1.1 cgd
298 1.1 cgd #include <vm/vm_kern.h>
299 1.1 cgd
300 1.1 cgd /*
301 1.1 cgd * We want ddb to be usable before most of the kernel has been
302 1.1 cgd * initialized. In particular, current_thread() or kernel_map
303 1.1 cgd * (or both) may be null.
304 1.1 cgd */
305 1.1 cgd
306 1.1 cgd boolean_t
307 1.1 cgd db_map_equal(map1, map2)
308 1.1 cgd vm_map_t map1, map2;
309 1.1 cgd {
310 1.1 cgd return ((map1 == map2) ||
311 1.1 cgd ((map1 == NULL) && (map2 == kernel_map)) ||
312 1.1 cgd ((map1 == kernel_map) && (map2 == NULL)));
313 1.1 cgd }
314 1.1 cgd
315 1.1 cgd boolean_t
316 1.1 cgd db_map_current(map)
317 1.1 cgd vm_map_t map;
318 1.1 cgd {
319 1.1 cgd #if 0
320 1.1 cgd thread_t thread;
321 1.1 cgd
322 1.1 cgd return ((map == NULL) ||
323 1.1 cgd (map == kernel_map) ||
324 1.1 cgd (((thread = current_thread()) != NULL) &&
325 1.1 cgd (map == thread->task->map)));
326 1.1 cgd #else
327 1.1 cgd return (1);
328 1.1 cgd #endif
329 1.1 cgd }
330 1.1 cgd
331 1.1 cgd vm_map_t
332 1.1 cgd db_map_addr(addr)
333 1.1 cgd vm_offset_t addr;
334 1.1 cgd {
335 1.1 cgd #if 0
336 1.1 cgd thread_t thread;
337 1.1 cgd
338 1.1 cgd /*
339 1.1 cgd * We want to return kernel_map for all
340 1.1 cgd * non-user addresses, even when debugging
341 1.1 cgd * kernel tasks with their own maps.
342 1.1 cgd */
343 1.1 cgd
344 1.1 cgd if ((VM_MIN_ADDRESS <= addr) &&
345 1.1 cgd (addr < VM_MAX_ADDRESS) &&
346 1.1 cgd ((thread = current_thread()) != NULL))
347 1.1 cgd return thread->task->map;
348 1.1 cgd else
349 1.1 cgd #endif
350 1.1 cgd return kernel_map;
351 1.1 cgd }
352