2 * Copyright (c) 2004 Marcel Moolenaar
5 * Redistribution and use in source and binary forms, with or without
6 * modification, are permitted provided that the following conditions
9 * 1. Redistributions of source code must retain the above copyright
10 * notice, this list of conditions and the following disclaimer.
11 * 2. Redistributions in binary form must reproduce the above copyright
12 * notice, this list of conditions and the following disclaimer in the
13 * documentation and/or other materials provided with the distribution.
15 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
16 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
17 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
18 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
19 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
20 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
21 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
22 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
23 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
24 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
26 * $FreeBSD: src/gnu/usr.bin/gdb/kgdb/main.c,v 1.16 2008/04/29 20:32:45 jhb Exp $
29 #include <sys/cdefs.h>
31 #include <sys/param.h>
33 #include <sys/types.h>
34 #include <sys/ioctl.h>
35 #include <sys/resource.h>
36 #include <sys/select.h>
53 #include <frame-unwind.h>
65 #include <exceptions.h>
67 #include <arch-utils.h>
75 static char crashdir[PATH_MAX];
79 static struct ui_file *parse_gdberr;
86 "usage: %s [-afqtvw] [-d crashdir] [-c core | -n dumpnr | -r device]\n"
87 "\t[kernel [core]]\n", getprogname());
92 kernel_from_dumpnr(int nr)
101 * If there's a kernel image right here in the crash directory, then
102 * use it. The kernel image is either called kern.<nr> or is in a
103 * subdirectory kern.<nr> and called kernel. The latter allows us
104 * to collect the modules in the same place.
106 snprintf(path, sizeof(path), "%s/kern.%d", crashdir, nr);
107 if (stat(path, &st) == 0) {
108 if (S_ISREG(st.st_mode)) {
109 kernel = strdup(path);
112 if (S_ISDIR(st.st_mode)) {
113 snprintf(path, sizeof(path), "%s/kern.%d/kernel",
115 if (stat(path, &st) == 0 && S_ISREG(st.st_mode)) {
116 kernel = strdup(path);
123 * No kernel image here. Parse the dump header. The kernel object
124 * directory can be found there and we probably have the kernel
125 * image still in it. The object directory may also have a kernel
126 * with debugging info (called kernel.debug). If we have a debug
129 snprintf(path, sizeof(path), "%s/info.%d", crashdir, nr);
130 info = fopen(path, "r");
135 while (fgets(path, sizeof(path), info) != NULL) {
137 if (l > 0 && path[l - 1] == '\n')
139 if (strncmp(path, " ", 4) == 0) {
140 s = strchr(path, ':');
141 s = (s == NULL) ? path + 4 : s + 1;
142 l = snprintf(path, sizeof(path), "%s/kernel.debug", s);
143 if (stat(path, &st) == -1 || !S_ISREG(st.st_mode)) {
145 if (stat(path, &st) == -1 ||
146 !S_ISREG(st.st_mode))
149 kernel = strdup(path);
157 kgdb_new_objfile(struct objfile *objfile)
161 if (once && objfile != NULL && objfile == symfile_objfile) {
165 * The initial kernel has just been loaded. Start the
166 * remote target if we have one or attach to the core.
171 asprintf(&buf, "target remote %s", remote);
172 else if (vmcore != NULL)
173 asprintf(&buf, "target kernel %s", vmcore);
176 execute_command(buf, 0);
183 gdb_parse_exp_1 (const char **stringptr, struct block *block, int comma,
184 struct expression **expression)
190 *expression = parse_exp_1 (stringptr, pc ,block, comma);
192 CATCH (except, RETURN_MASK_ERROR)
202 gdb_evaluate_expression (struct expression *exp, struct value **value)
207 *value = evaluate_expression(exp);
209 CATCH (except, RETURN_MASK_ERROR)
219 * Parse an expression and return its value. If 'quiet' is true, then
220 * any error messages from the parser are masked.
223 kgdb_parse_1(const char *exp, int quiet)
225 struct ui_file *old_stderr;
226 struct cleanup *old_chain;
227 struct expression *expr;
232 old_stderr = gdb_stderr;
234 gdb_stderr = parse_gdberr;
237 old_chain = make_cleanup(xfree, (char*)s);
238 if (gdb_parse_exp_1(&s, NULL, 0, &expr) && *s == '\0') {
239 make_cleanup(free_current_contents, &expr);
240 if (gdb_evaluate_expression(expr, &val))
241 n = value_as_address(val);
243 do_cleanups(old_chain);
244 gdb_stderr = old_stderr;
248 #define MSGBUF_SEQ_TO_POS(size, seq) ((seq) % (size))
254 int size, rseq, wseq;
258 * Display the unread portion of the message buffer. This gives the
259 * user a some initial data to work from.
263 bufp = kgdb_parse("msgbufp->msg_ptr");
264 size = (int)kgdb_parse("msgbufp->msg_size");
265 if (bufp == 0 || size == 0)
267 rseq = (int)kgdb_parse("msgbufp->msg_bufr");
268 wseq = (int)kgdb_parse("msgbufp->msg_bufx");
269 rseq = MSGBUF_SEQ_TO_POS(size, rseq);
270 wseq = MSGBUF_SEQ_TO_POS(size, wseq);
274 printf("\nUnread portion of the kernel message buffer:\n");
275 while (rseq < wseq) {
276 read_memory(bufp + rseq, &c, 1);
288 kgdb_init(char *argv0 __unused)
291 parse_gdberr = mem_fileopen();
292 set_prompt("(kgdb) ");
293 initialize_kgdb_target();
294 initialize_kld_target();
295 observer_attach_new_objfile(kgdb_new_objfile);
299 * Remote targets can support any number of syntaxes and we want to
300 * support them all with one addition: we support specifying a device
301 * node for a serial device without the "/dev/" prefix.
303 * What we do is to stat(2) the existing remote target first. If that
304 * fails, we try it with "/dev/" prepended. If that succeeds we use
305 * the resulting path, otherwise we use the original target. If
306 * either stat(2) succeeds make sure the file is either a character
315 if (stat(remote, &st) != 0) {
316 snprintf(path, sizeof(path), "/dev/%s", remote);
317 if (stat(path, &st) != 0)
320 remote = strdup(path);
322 if (!S_ISCHR(st.st_mode) && !S_ISFIFO(st.st_mode))
323 errx(1, "%s: not a special file, FIFO or socket", remote);
327 add_arg(struct captured_main_args *args, char *arg)
331 args->argv = reallocf(args->argv, (args->argc + 1) * sizeof(char *));
332 if (args->argv == NULL)
333 err(1, "Out of memory building argument list");
334 args->argv[args->argc] = arg;
338 main(int argc, char *argv[])
342 struct captured_main_args args;
348 strlcpy(crashdir, "/var/crash", sizeof(crashdir));
349 s = getenv("KGDB_CRASH_DIR");
351 strlcpy(crashdir, s, sizeof(crashdir));
353 /* Convert long options into short options. */
354 for (a = 1; a < argc; a++) {
358 /* Long options take either 1 or 2 dashes. */
361 if (strcmp(s, "quiet") == 0)
363 else if (strcmp(s, "fullname") == 0)
365 else if (strcmp(s, "tui-mode") == 0)
371 memset (&args, 0, sizeof args);
372 args.interpreter_p = INTERP_CONSOLE;
373 args.argv = malloc(sizeof(char *));
374 args.argv[0] = argv[0];
375 add_arg(&args, "--kernel");
377 while ((ch = getopt(argc, argv, "ac:d:fn:qr:tvw")) != -1) {
382 case 'c': /* use given core file. */
383 if (vmcore != NULL) {
384 warnx("option %c: can only be specified once",
389 vmcore = strdup(optarg);
391 case 'd': /* lookup dumps in given directory. */
392 strlcpy(crashdir, optarg, sizeof(crashdir));
395 annotation_level = 1;
397 case 'n': /* use dump with given number. */
398 dumpnr = strtol(optarg, &s, 0);
399 if (dumpnr < 0 || *s != '\0') {
400 warnx("option %c: invalid kernel dump number",
408 add_arg(&args, "-q");
410 case 'r': /* use given device for remote session. */
411 if (remote != NULL) {
412 warnx("option %c: can only be specified once",
417 remote = strdup(optarg);
420 args.interpreter_p = INTERP_TUI;
421 add_arg(&args, "-tui");
423 add_arg(&args, "-q");
425 case 'v': /* increase verbosity. */
428 case 'w': /* core file is writeable. */
429 add_arg(&args, "--write");
437 if (((vmcore != NULL) ? 1 : 0) + ((dumpnr >= 0) ? 1 : 0) +
438 ((remote != NULL) ? 1 : 0) > 1) {
439 warnx("options -c, -n and -r are mutually exclusive");
445 warnx("using %s as the crash directory", crashdir);
448 kernel = strdup(argv[optind++]);
450 if (argc > optind && (dumpnr >= 0 || remote != NULL)) {
451 warnx("options -n and -r do not take a core file. Ignored");
456 snprintf(path, sizeof(path), "%s/vmcore.%d", crashdir, dumpnr);
457 if (stat(path, &st) == -1)
459 if (!S_ISREG(st.st_mode))
460 errx(1, "%s: not a regular file", path);
461 vmcore = strdup(path);
462 } else if (remote != NULL) {
464 } else if (argc > optind) {
466 vmcore = strdup(argv[optind++]);
468 warnx("multiple core files specified. Ignored");
469 } else if (vmcore == NULL && kernel == NULL) {
470 vmcore = strdup(_PATH_MEM);
471 kernel = strdup(getbootfile());
476 warnx("core file: %s", vmcore);
478 warnx("device file: %s", remote);
480 warnx("kernel image: %s", kernel);
483 /* A remote target requires an explicit kernel argument. */
484 if (remote != NULL && kernel == NULL) {
485 warnx("remote debugging requires a kernel");
490 /* If we don't have a kernel image yet, try to find one. */
491 if (kernel == NULL) {
493 kernel_from_dumpnr(dumpnr);
496 errx(1, "couldn't find a suitable kernel image");
498 warnx("kernel image: %s", kernel);
500 add_arg(&args, kernel);
504 add_arg(&args, vmcore);
507 /* The libgdb code uses optind too. Reset it... */
510 /* Terminate argv list. */
511 add_arg(&args, NULL);
515 return (gdb_main(&args));