kdump.c revision 1.66 1 1.66 manu /* $NetBSD: kdump.c,v 1.66 2003/11/16 21:52:33 manu Exp $ */
2 1.17 mikel
3 1.1 cgd /*-
4 1.1 cgd * Copyright (c) 1988, 1993
5 1.1 cgd * The Regents of the University of California. All rights reserved.
6 1.1 cgd *
7 1.1 cgd * Redistribution and use in source and binary forms, with or without
8 1.1 cgd * modification, are permitted provided that the following conditions
9 1.1 cgd * are met:
10 1.1 cgd * 1. Redistributions of source code must retain the above copyright
11 1.1 cgd * notice, this list of conditions and the following disclaimer.
12 1.1 cgd * 2. Redistributions in binary form must reproduce the above copyright
13 1.1 cgd * notice, this list of conditions and the following disclaimer in the
14 1.1 cgd * documentation and/or other materials provided with the distribution.
15 1.59 agc * 3. Neither the name of the University nor the names of its contributors
16 1.1 cgd * may be used to endorse or promote products derived from this software
17 1.1 cgd * without specific prior written permission.
18 1.1 cgd *
19 1.1 cgd * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
20 1.1 cgd * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
21 1.1 cgd * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
22 1.1 cgd * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
23 1.1 cgd * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
24 1.1 cgd * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
25 1.1 cgd * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
26 1.1 cgd * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
27 1.1 cgd * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
28 1.1 cgd * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
29 1.1 cgd * SUCH DAMAGE.
30 1.1 cgd */
31 1.1 cgd
32 1.17 mikel #include <sys/cdefs.h>
33 1.1 cgd #ifndef lint
34 1.17 mikel __COPYRIGHT("@(#) Copyright (c) 1988, 1993\n\
35 1.17 mikel The Regents of the University of California. All rights reserved.\n");
36 1.1 cgd #endif /* not lint */
37 1.1 cgd
38 1.1 cgd #ifndef lint
39 1.12 jtc #if 0
40 1.12 jtc static char sccsid[] = "@(#)kdump.c 8.4 (Berkeley) 4/28/95";
41 1.17 mikel #else
42 1.66 manu __RCSID("$NetBSD: kdump.c,v 1.66 2003/11/16 21:52:33 manu Exp $");
43 1.12 jtc #endif
44 1.1 cgd #endif /* not lint */
45 1.1 cgd
46 1.1 cgd #include <sys/param.h>
47 1.14 mikel #define _KERNEL
48 1.1 cgd #include <sys/errno.h>
49 1.14 mikel #undef _KERNEL
50 1.1 cgd #include <sys/time.h>
51 1.1 cgd #include <sys/uio.h>
52 1.1 cgd #include <sys/ktrace.h>
53 1.1 cgd #include <sys/ioctl.h>
54 1.1 cgd #include <sys/ptrace.h>
55 1.4 mycroft
56 1.46 manu #include <ctype.h>
57 1.4 mycroft #include <err.h>
58 1.4 mycroft #include <signal.h>
59 1.48 dsl #include <stddef.h>
60 1.1 cgd #include <stdio.h>
61 1.1 cgd #include <stdlib.h>
62 1.1 cgd #include <string.h>
63 1.4 mycroft #include <unistd.h>
64 1.4 mycroft #include <vis.h>
65 1.4 mycroft
66 1.1 cgd #include "ktrace.h"
67 1.28 jdolecek #include "setemul.h"
68 1.28 jdolecek
69 1.28 jdolecek #include <sys/syscall.h>
70 1.1 cgd
71 1.47 atatat int timestamp, decimal, plain, tail, maxdata = -1, numeric;
72 1.66 manu int word_size = 0;
73 1.39 atatat pid_t do_pid = -1;
74 1.41 atatat const char *tracefile = NULL;
75 1.1 cgd struct ktr_header ktr_header;
76 1.35 manu int emul_changed = 0;
77 1.1 cgd
78 1.1 cgd #define eqs(s1, s2) (strcmp((s1), (s2)) == 0)
79 1.1 cgd
80 1.17 mikel static const char *ptrace_ops[] = {
81 1.11 christos "PT_TRACE_ME", "PT_READ_I", "PT_READ_D", "PT_READ_U",
82 1.11 christos "PT_WRITE_I", "PT_WRITE_D", "PT_WRITE_U", "PT_CONTINUE",
83 1.11 christos "PT_KILL", "PT_ATTACH", "PT_DETACH",
84 1.11 christos };
85 1.11 christos
86 1.31 jdolecek static const char *linux_ptrace_ops[] = {
87 1.31 jdolecek "PTRACE_TRACEME",
88 1.31 jdolecek "PTRACE_PEEKTEXT", "PTRACE_PEEKDATA", "PTRACE_PEEKUSER",
89 1.31 jdolecek "PTRACE_POKETEXT", "PTRACE_POKEDATA", "PTRACE_POKEUSER",
90 1.31 jdolecek "PTRACE_CONT", "PTRACE_KILL", "PTRACE_SINGLESTEP",
91 1.31 jdolecek NULL, NULL,
92 1.31 jdolecek "PTRACE_GETREGS", "PTRACE_SETREGS", "PTRACE_GETFPREGS",
93 1.31 jdolecek "PTRACE_SETFPREGS", "PTRACE_ATTACH", "PTRACE_DETACH",
94 1.31 jdolecek "PTRACE_SYSCALL",
95 1.31 jdolecek };
96 1.31 jdolecek
97 1.17 mikel int main __P((int, char **));
98 1.17 mikel int fread_tail __P((char *, int, int));
99 1.58 dsl int dumpheader __P((struct ktr_header *));
100 1.17 mikel void ioctldecode __P((u_long));
101 1.17 mikel void ktrsyscall __P((struct ktr_syscall *));
102 1.48 dsl void ktrsysret __P((struct ktr_sysret *, int));
103 1.17 mikel void ktrnamei __P((char *, int));
104 1.27 jdolecek void ktremul __P((char *, int, int));
105 1.17 mikel void ktrgenio __P((struct ktr_genio *, int));
106 1.60 christos void ktrpsig __P((void *, int));
107 1.17 mikel void ktrcsw __P((struct ktr_csw *));
108 1.34 jdolecek void ktruser __P((struct ktr_user *, int));
109 1.46 manu void ktrmmsg __P((struct ktr_mmsg *, int));
110 1.17 mikel void usage __P((void));
111 1.22 christos void eprint __P((int));
112 1.48 dsl void rprint __P((register_t));
113 1.17 mikel char *ioctlname __P((long));
114 1.37 christos static const char *signame __P((long, int));
115 1.64 manu static void hexdump_buf(const void *, int, int);
116 1.58 dsl static void visdump_buf(const void *, int, int);
117 1.17 mikel
118 1.4 mycroft int
119 1.1 cgd main(argc, argv)
120 1.1 cgd int argc;
121 1.1 cgd char *argv[];
122 1.1 cgd {
123 1.1 cgd int ch, ktrlen, size;
124 1.18 lukem void *m;
125 1.58 dsl int trpoints = 0;
126 1.58 dsl int trset = 0;
127 1.27 jdolecek const char *emul_name = "netbsd";
128 1.58 dsl int col;
129 1.65 dsl char *cp;
130 1.11 christos
131 1.66 manu while ((ch = getopt(argc, argv, "e:f:dlm:Nnp:RTt:xX:")) != -1)
132 1.4 mycroft switch (ch) {
133 1.11 christos case 'e':
134 1.27 jdolecek emul_name = strdup(optarg); /* it's safer to copy it */
135 1.11 christos break;
136 1.1 cgd case 'f':
137 1.1 cgd tracefile = optarg;
138 1.1 cgd break;
139 1.1 cgd case 'd':
140 1.1 cgd decimal = 1;
141 1.1 cgd break;
142 1.1 cgd case 'l':
143 1.1 cgd tail = 1;
144 1.1 cgd break;
145 1.39 atatat case 'p':
146 1.39 atatat do_pid = atoi(optarg);
147 1.39 atatat break;
148 1.1 cgd case 'm':
149 1.1 cgd maxdata = atoi(optarg);
150 1.1 cgd break;
151 1.43 atatat case 'N':
152 1.43 atatat numeric++;
153 1.43 atatat break;
154 1.1 cgd case 'n':
155 1.36 christos plain++;
156 1.1 cgd break;
157 1.1 cgd case 'R':
158 1.1 cgd timestamp = 2; /* relative timestamp */
159 1.1 cgd break;
160 1.1 cgd case 'T':
161 1.1 cgd timestamp = 1;
162 1.1 cgd break;
163 1.1 cgd case 't':
164 1.58 dsl trset = 1;
165 1.58 dsl trpoints = getpoints(trpoints, optarg);
166 1.4 mycroft if (trpoints < 0)
167 1.4 mycroft errx(1, "unknown trace point in %s", optarg);
168 1.1 cgd break;
169 1.52 dsl case 'x':
170 1.66 manu if (word_size != 0)
171 1.66 manu errx(1, "-x and -X are mutually exclusive");
172 1.66 manu word_size = 1;
173 1.66 manu break;
174 1.66 manu case 'X':
175 1.66 manu if (word_size != 0)
176 1.66 manu errx(1, "-x and -X are mutually exclusive");
177 1.65 dsl word_size = strtoul(optarg, &cp, 0);
178 1.65 dsl if (*cp != 0 || word_size & (word_size - 1) ||
179 1.65 dsl word_size > 16 || word_size == 0)
180 1.66 manu errx(1, "argument to -X must be "
181 1.66 manu "1, 2, 4, 8 or 16");
182 1.52 dsl break;
183 1.1 cgd default:
184 1.1 cgd usage();
185 1.1 cgd }
186 1.1 cgd argv += optind;
187 1.1 cgd argc -= optind;
188 1.1 cgd
189 1.58 dsl if (!trset)
190 1.58 dsl trpoints = ALL_POINTS;
191 1.58 dsl
192 1.41 atatat if (tracefile == NULL) {
193 1.41 atatat if (argc == 1) {
194 1.41 atatat tracefile = argv[0];
195 1.41 atatat argv++;
196 1.41 atatat argc--;
197 1.41 atatat }
198 1.41 atatat else
199 1.41 atatat tracefile = DEF_TRACEFILE;
200 1.41 atatat }
201 1.41 atatat
202 1.41 atatat if (argc > 0)
203 1.1 cgd usage();
204 1.1 cgd
205 1.27 jdolecek setemul(emul_name, 0, 0);
206 1.42 manu mach_lookup_emul();
207 1.27 jdolecek
208 1.27 jdolecek m = malloc(size = 1024);
209 1.4 mycroft if (m == NULL)
210 1.27 jdolecek errx(1, "malloc: %s", strerror(ENOMEM));
211 1.4 mycroft if (!freopen(tracefile, "r", stdin))
212 1.4 mycroft err(1, "%s", tracefile);
213 1.17 mikel while (fread_tail((char *)&ktr_header, sizeof(struct ktr_header), 1)) {
214 1.58 dsl if (trpoints & (1<<ktr_header.ktr_type)
215 1.58 dsl && (do_pid == -1 || ktr_header.ktr_pid == do_pid))
216 1.58 dsl col = dumpheader(&ktr_header);
217 1.58 dsl else
218 1.58 dsl col = -1;
219 1.4 mycroft if ((ktrlen = ktr_header.ktr_len) < 0)
220 1.4 mycroft errx(1, "bogus length 0x%x", ktrlen);
221 1.1 cgd if (ktrlen > size) {
222 1.58 dsl while (ktrlen > size)
223 1.58 dsl size *= 2;
224 1.58 dsl m = realloc(m, size);
225 1.4 mycroft if (m == NULL)
226 1.27 jdolecek errx(1, "realloc: %s", strerror(ENOMEM));
227 1.1 cgd }
228 1.4 mycroft if (ktrlen && fread_tail(m, ktrlen, 1) == 0)
229 1.4 mycroft errx(1, "data too short");
230 1.58 dsl if (col == -1)
231 1.1 cgd continue;
232 1.27 jdolecek
233 1.27 jdolecek /* update context to match currently processed record */
234 1.27 jdolecek ectx_sanify(ktr_header.ktr_pid);
235 1.27 jdolecek
236 1.1 cgd switch (ktr_header.ktr_type) {
237 1.1 cgd case KTR_SYSCALL:
238 1.58 dsl ktrsyscall(m);
239 1.1 cgd break;
240 1.1 cgd case KTR_SYSRET:
241 1.58 dsl ktrsysret(m, ktrlen);
242 1.1 cgd break;
243 1.1 cgd case KTR_NAMEI:
244 1.1 cgd ktrnamei(m, ktrlen);
245 1.1 cgd break;
246 1.1 cgd case KTR_GENIO:
247 1.58 dsl ktrgenio(m, ktrlen);
248 1.1 cgd break;
249 1.1 cgd case KTR_PSIG:
250 1.60 christos ktrpsig(m, ktrlen);
251 1.1 cgd break;
252 1.1 cgd case KTR_CSW:
253 1.58 dsl ktrcsw(m);
254 1.1 cgd break;
255 1.11 christos case KTR_EMUL:
256 1.27 jdolecek ktremul(m, ktrlen, size);
257 1.11 christos break;
258 1.32 jdolecek case KTR_USER:
259 1.58 dsl ktruser(m, ktrlen);
260 1.32 jdolecek break;
261 1.46 manu case KTR_MMSG:
262 1.58 dsl ktrmmsg(m, ktrlen);
263 1.46 manu break;
264 1.58 dsl case KTR_EXEC_ARG:
265 1.58 dsl case KTR_EXEC_ENV:
266 1.58 dsl visdump_buf(m, ktrlen, col);
267 1.58 dsl break;
268 1.58 dsl default:
269 1.58 dsl printf("\n");
270 1.65 dsl hexdump_buf(m, ktrlen, word_size);
271 1.1 cgd }
272 1.1 cgd if (tail)
273 1.1 cgd (void)fflush(stdout);
274 1.1 cgd }
275 1.17 mikel return (0);
276 1.1 cgd }
277 1.1 cgd
278 1.17 mikel int
279 1.1 cgd fread_tail(buf, size, num)
280 1.1 cgd char *buf;
281 1.1 cgd int num, size;
282 1.1 cgd {
283 1.1 cgd int i;
284 1.1 cgd
285 1.1 cgd while ((i = fread(buf, size, num, stdin)) == 0 && tail) {
286 1.1 cgd (void)sleep(1);
287 1.1 cgd clearerr(stdin);
288 1.1 cgd }
289 1.1 cgd return (i);
290 1.1 cgd }
291 1.1 cgd
292 1.58 dsl int
293 1.1 cgd dumpheader(kth)
294 1.1 cgd struct ktr_header *kth;
295 1.1 cgd {
296 1.6 mycroft char unknown[64], *type;
297 1.6 mycroft static struct timeval prevtime;
298 1.6 mycroft struct timeval temp;
299 1.58 dsl int col;
300 1.1 cgd
301 1.1 cgd switch (kth->ktr_type) {
302 1.1 cgd case KTR_SYSCALL:
303 1.1 cgd type = "CALL";
304 1.1 cgd break;
305 1.1 cgd case KTR_SYSRET:
306 1.1 cgd type = "RET ";
307 1.1 cgd break;
308 1.1 cgd case KTR_NAMEI:
309 1.1 cgd type = "NAMI";
310 1.1 cgd break;
311 1.1 cgd case KTR_GENIO:
312 1.1 cgd type = "GIO ";
313 1.1 cgd break;
314 1.1 cgd case KTR_PSIG:
315 1.1 cgd type = "PSIG";
316 1.1 cgd break;
317 1.1 cgd case KTR_CSW:
318 1.60 christos type = "CSW ";
319 1.1 cgd break;
320 1.11 christos case KTR_EMUL:
321 1.11 christos type = "EMUL";
322 1.11 christos break;
323 1.32 jdolecek case KTR_USER:
324 1.32 jdolecek type = "USER";
325 1.32 jdolecek break;
326 1.46 manu case KTR_MMSG:
327 1.46 manu type = "MMSG";
328 1.46 manu break;
329 1.58 dsl case KTR_EXEC_ENV:
330 1.58 dsl type = "ENV";
331 1.58 dsl break;
332 1.58 dsl case KTR_EXEC_ARG:
333 1.58 dsl type = "ARG";
334 1.58 dsl break;
335 1.1 cgd default:
336 1.1 cgd (void)sprintf(unknown, "UNKNOWN(%d)", kth->ktr_type);
337 1.1 cgd type = unknown;
338 1.1 cgd }
339 1.1 cgd
340 1.58 dsl col = printf("%6d %-8.*s ", kth->ktr_pid, MAXCOMLEN, kth->ktr_comm);
341 1.1 cgd if (timestamp) {
342 1.1 cgd if (timestamp == 2) {
343 1.58 dsl if (prevtime.tv_sec == 0)
344 1.58 dsl temp.tv_sec = temp.tv_usec = 0;
345 1.58 dsl else
346 1.58 dsl timersub(&kth->ktr_time, &prevtime, &temp);
347 1.5 mycroft prevtime = kth->ktr_time;
348 1.5 mycroft } else
349 1.1 cgd temp = kth->ktr_time;
350 1.58 dsl col += printf("%ld.%06ld ",
351 1.26 kleink (long int)temp.tv_sec, (long int)temp.tv_usec);
352 1.1 cgd }
353 1.58 dsl col += printf("%-4s ", type);
354 1.58 dsl return col;
355 1.1 cgd }
356 1.1 cgd
357 1.13 christos void
358 1.13 christos ioctldecode(cmd)
359 1.13 christos u_long cmd;
360 1.13 christos {
361 1.13 christos char dirbuf[4], *dir = dirbuf;
362 1.13 christos
363 1.15 cgd if (cmd & IOC_IN)
364 1.15 cgd *dir++ = 'W';
365 1.13 christos if (cmd & IOC_OUT)
366 1.13 christos *dir++ = 'R';
367 1.13 christos *dir = '\0';
368 1.13 christos
369 1.13 christos printf(decimal ? ",_IO%s('%c',%ld" : ",_IO%s('%c',%#lx",
370 1.30 is dirbuf, (int) ((cmd >> 8) & 0xff), cmd & 0xff);
371 1.13 christos if ((cmd & IOC_VOID) == 0)
372 1.13 christos printf(decimal ? ",%ld)" : ",%#lx)", (cmd >> 16) & 0xff);
373 1.13 christos else
374 1.13 christos printf(")");
375 1.13 christos }
376 1.1 cgd
377 1.17 mikel void
378 1.1 cgd ktrsyscall(ktr)
379 1.18 lukem struct ktr_syscall *ktr;
380 1.1 cgd {
381 1.18 lukem int argsize = ktr->ktr_argsize;
382 1.42 manu const struct emulation *revelant = current;
383 1.18 lukem register_t *ap;
384 1.1 cgd
385 1.43 atatat if (((ktr->ktr_code >= revelant->nsysnames || ktr->ktr_code < 0)
386 1.43 atatat && (mach_traps_dispatch(&ktr->ktr_code, &revelant) == 0)) ||
387 1.43 atatat numeric)
388 1.1 cgd (void)printf("[%d]", ktr->ktr_code);
389 1.1 cgd else
390 1.42 manu (void)printf("%s", revelant->sysnames[ktr->ktr_code]);
391 1.7 cgd ap = (register_t *)((char *)ktr + sizeof(struct ktr_syscall));
392 1.7 cgd if (argsize) {
393 1.1 cgd char c = '(';
394 1.36 christos if (!plain) {
395 1.37 christos char *cp;
396 1.37 christos
397 1.37 christos switch (ktr->ktr_code) {
398 1.37 christos case SYS_ioctl:
399 1.1 cgd if (decimal)
400 1.7 cgd (void)printf("(%ld", (long)*ap);
401 1.1 cgd else
402 1.7 cgd (void)printf("(%#lx", (long)*ap);
403 1.7 cgd ap++;
404 1.7 cgd argsize -= sizeof(register_t);
405 1.7 cgd if ((cp = ioctlname(*ap)) != NULL)
406 1.1 cgd (void)printf(",%s", cp);
407 1.13 christos else
408 1.13 christos ioctldecode(*ap);
409 1.1 cgd c = ',';
410 1.7 cgd ap++;
411 1.7 cgd argsize -= sizeof(register_t);
412 1.37 christos break;
413 1.37 christos
414 1.37 christos case SYS_ptrace:
415 1.42 manu if (strcmp(revelant->name, "linux") == 0) {
416 1.37 christos if (*ap >= 0 && *ap <=
417 1.37 christos sizeof(linux_ptrace_ops) /
418 1.37 christos sizeof(linux_ptrace_ops[0]))
419 1.37 christos (void)printf("(%s",
420 1.37 christos linux_ptrace_ops[*ap]);
421 1.31 jdolecek else
422 1.31 jdolecek (void)printf("(%ld", (long)*ap);
423 1.31 jdolecek } else {
424 1.31 jdolecek if (*ap >= 0 && *ap <=
425 1.12 jtc sizeof(ptrace_ops) / sizeof(ptrace_ops[0]))
426 1.7 cgd (void)printf("(%s", ptrace_ops[*ap]);
427 1.31 jdolecek else
428 1.7 cgd (void)printf("(%ld", (long)*ap);
429 1.31 jdolecek }
430 1.1 cgd c = ',';
431 1.7 cgd ap++;
432 1.7 cgd argsize -= sizeof(register_t);
433 1.37 christos break;
434 1.37 christos
435 1.37 christos case SYS_kill:
436 1.37 christos if (decimal)
437 1.37 christos (void)printf("(%ld, SIG%s",
438 1.37 christos (long)ap[0], signame(ap[1], 1));
439 1.37 christos else
440 1.37 christos (void)printf("(%#lx, SIG%s",
441 1.37 christos (long)ap[0], signame(ap[1], 1));
442 1.37 christos ap += 2;
443 1.37 christos argsize -= 2 * sizeof(register_t);
444 1.37 christos break;
445 1.37 christos
446 1.37 christos default:
447 1.37 christos /* No special handling */
448 1.37 christos break;
449 1.1 cgd }
450 1.1 cgd }
451 1.7 cgd while (argsize) {
452 1.1 cgd if (decimal)
453 1.7 cgd (void)printf("%c%ld", c, (long)*ap);
454 1.1 cgd else
455 1.7 cgd (void)printf("%c%#lx", c, (long)*ap);
456 1.1 cgd c = ',';
457 1.7 cgd ap++;
458 1.7 cgd argsize -= sizeof(register_t);
459 1.1 cgd }
460 1.1 cgd (void)putchar(')');
461 1.1 cgd }
462 1.1 cgd (void)putchar('\n');
463 1.1 cgd }
464 1.1 cgd
465 1.17 mikel void
466 1.48 dsl ktrsysret(ktr, len)
467 1.1 cgd struct ktr_sysret *ktr;
468 1.48 dsl int len;
469 1.1 cgd {
470 1.35 manu const struct emulation *revelant;
471 1.18 lukem int error = ktr->ktr_error;
472 1.18 lukem int code = ktr->ktr_code;
473 1.1 cgd
474 1.35 manu if (emul_changed)
475 1.35 manu revelant = previous;
476 1.35 manu else
477 1.35 manu revelant = current;
478 1.35 manu emul_changed = 0;
479 1.35 manu
480 1.42 manu if ((code >= revelant->nsysnames || code < 0 || plain > 1)
481 1.42 manu && (mach_traps_dispatch(&code, &revelant) == 0))
482 1.1 cgd (void)printf("[%d] ", code);
483 1.1 cgd else
484 1.35 manu (void)printf("%s ", revelant->sysnames[code]);
485 1.1 cgd
486 1.22 christos switch (error) {
487 1.22 christos case 0:
488 1.48 dsl rprint(ktr->ktr_retval);
489 1.48 dsl if (len > offsetof(struct ktr_sysret, ktr_retval_1) &&
490 1.48 dsl ktr->ktr_retval_1 != 0) {
491 1.48 dsl (void)printf(", ");
492 1.48 dsl rprint(ktr->ktr_retval_1);
493 1.1 cgd }
494 1.22 christos break;
495 1.22 christos
496 1.22 christos default:
497 1.22 christos eprint(error);
498 1.22 christos break;
499 1.22 christos }
500 1.22 christos (void)putchar('\n');
501 1.48 dsl }
502 1.48 dsl
503 1.48 dsl void
504 1.48 dsl rprint(register_t ret)
505 1.48 dsl {
506 1.48 dsl if (!plain) {
507 1.48 dsl (void)printf("%ld", (long)ret);
508 1.48 dsl if (ret < 0 || ret > 9)
509 1.48 dsl (void)printf("/%#lx", (long)ret);
510 1.48 dsl } else {
511 1.48 dsl if (decimal)
512 1.48 dsl (void)printf("%ld", (long)ret);
513 1.48 dsl else
514 1.48 dsl (void)printf("%#lx", (long)ret);
515 1.48 dsl }
516 1.22 christos }
517 1.22 christos
518 1.22 christos /*
519 1.22 christos * We print the original emulation's error numerically, but we
520 1.22 christos * translate it to netbsd to print it symbolically.
521 1.22 christos */
522 1.22 christos void
523 1.22 christos eprint(e)
524 1.22 christos int e;
525 1.22 christos {
526 1.22 christos int i = e;
527 1.22 christos
528 1.33 itojun if (current->errnomap) {
529 1.22 christos
530 1.22 christos /* No remapping for ERESTART and EJUSTRETURN */
531 1.22 christos /* Kludge for linux that has negative error numbers */
532 1.33 itojun if (current->errnomap[2] > 0 && e < 0)
533 1.22 christos goto normal;
534 1.22 christos
535 1.33 itojun for (i = 0; i < current->nerrnomap; i++)
536 1.33 itojun if (e == current->errnomap[i])
537 1.22 christos break;
538 1.22 christos
539 1.33 itojun if (i == current->nerrnomap) {
540 1.22 christos printf("-1 unknown errno %d", e);
541 1.22 christos return;
542 1.22 christos }
543 1.22 christos }
544 1.22 christos
545 1.22 christos normal:
546 1.22 christos switch (i) {
547 1.22 christos case ERESTART:
548 1.1 cgd (void)printf("RESTART");
549 1.22 christos break;
550 1.22 christos
551 1.22 christos case EJUSTRETURN:
552 1.1 cgd (void)printf("JUSTRETURN");
553 1.22 christos break;
554 1.22 christos
555 1.22 christos default:
556 1.22 christos (void)printf("-1 errno %d", e);
557 1.36 christos if (!plain)
558 1.22 christos (void)printf(" %s", strerror(i));
559 1.1 cgd }
560 1.1 cgd }
561 1.1 cgd
562 1.17 mikel void
563 1.16 pk ktrnamei(cp, len)
564 1.1 cgd char *cp;
565 1.17 mikel int len;
566 1.1 cgd {
567 1.17 mikel
568 1.1 cgd (void)printf("\"%.*s\"\n", len, cp);
569 1.1 cgd }
570 1.1 cgd
571 1.17 mikel void
572 1.27 jdolecek ktremul(name, len, bufsize)
573 1.27 jdolecek char *name;
574 1.27 jdolecek int len, bufsize;
575 1.11 christos {
576 1.27 jdolecek if (len >= bufsize)
577 1.27 jdolecek len = bufsize - 1;
578 1.11 christos
579 1.27 jdolecek name[len] = '\0';
580 1.27 jdolecek setemul(name, ktr_header.ktr_pid, 1);
581 1.35 manu emul_changed = 1;
582 1.11 christos
583 1.11 christos (void)printf("\"%s\"\n", name);
584 1.11 christos }
585 1.11 christos
586 1.52 dsl static void
587 1.65 dsl hexdump_buf(vdp, datalen, word_sz)
588 1.64 manu const void *vdp;
589 1.64 manu int datalen;
590 1.65 dsl int word_sz;
591 1.52 dsl {
592 1.65 dsl const char hex[] = "0123456789abcdef";
593 1.52 dsl char chars[16];
594 1.65 dsl char bytes[16 * 3 + 4];
595 1.58 dsl const unsigned char *dp = vdp;
596 1.65 dsl const unsigned char *datalim = dp + datalen;
597 1.65 dsl const unsigned char *line_end;
598 1.65 dsl int off, l, c;
599 1.65 dsl char *cp, *bp;
600 1.65 dsl int divmask = word_sz - 1; /* block size in bytes */
601 1.65 dsl int gdelim = 3; /* gap between blocks */
602 1.65 dsl int bsize = 2; /* increment for each byte */
603 1.65 dsl int width;
604 1.65 dsl #if _BYTE_ORDER == _LITTLE_ENDIAN
605 1.65 dsl int bswap = word_sz - 1;
606 1.65 dsl #else
607 1.65 dsl #define bswap 0
608 1.65 dsl #endif
609 1.65 dsl
610 1.65 dsl switch (word_sz) {
611 1.65 dsl case 2:
612 1.65 dsl gdelim = 2;
613 1.64 manu break;
614 1.64 manu case 1:
615 1.65 dsl divmask = 7;
616 1.65 dsl bsize = 3;
617 1.65 dsl gdelim = 1;
618 1.65 dsl break;
619 1.64 manu default:
620 1.64 manu break;
621 1.64 manu }
622 1.65 dsl width = 16 * bsize + (16 / (divmask + 1)) * gdelim;
623 1.65 dsl if (word_size != 1)
624 1.65 dsl width += 2;
625 1.65 dsl
626 1.65 dsl for (off = 0; dp < datalim; off += l) {
627 1.65 dsl memset(bytes, ' ', sizeof bytes);
628 1.65 dsl line_end = dp + 16;
629 1.65 dsl if (line_end > datalim)
630 1.65 dsl line_end = datalim;
631 1.52 dsl
632 1.65 dsl for (l = 0, bp = bytes, cp = chars; dp < line_end; l++) {
633 1.52 dsl c = *dp++;
634 1.65 dsl if ((l & divmask) == 0)
635 1.65 dsl bp += gdelim;
636 1.65 dsl bp[(l ^ bswap) * bsize] = hex[c >> 4];
637 1.65 dsl bp[(l ^ bswap) * bsize + 1] = hex[c & 0xf];
638 1.52 dsl *cp++ = isgraph(c) ? c : '.';
639 1.58 dsl };
640 1.64 manu
641 1.65 dsl printf("\t%3.3x %.*s%.*s\n", off, width, bytes, l, chars);
642 1.52 dsl }
643 1.52 dsl }
644 1.52 dsl
645 1.58 dsl static void
646 1.58 dsl visdump_buf(const void *vdp, int datalen, int col)
647 1.1 cgd {
648 1.58 dsl const unsigned char *dp = vdp;
649 1.18 lukem char *cp;
650 1.18 lukem int width;
651 1.1 cgd char visbuf[5];
652 1.20 mrg static int screenwidth = 0;
653 1.1 cgd
654 1.1 cgd if (screenwidth == 0) {
655 1.1 cgd struct winsize ws;
656 1.1 cgd
657 1.36 christos if (!plain && ioctl(fileno(stderr), TIOCGWINSZ, &ws) != -1 &&
658 1.1 cgd ws.ws_col > 8)
659 1.1 cgd screenwidth = ws.ws_col;
660 1.1 cgd else
661 1.1 cgd screenwidth = 80;
662 1.1 cgd }
663 1.58 dsl
664 1.58 dsl (void)printf("\"");
665 1.58 dsl col++;
666 1.4 mycroft for (; datalen > 0; datalen--, dp++) {
667 1.58 dsl (void)svis(visbuf, *dp, VIS_CSTYLE,
668 1.58 dsl datalen > 1 ? *(dp + 1) : 0, "\"");
669 1.1 cgd cp = visbuf;
670 1.1 cgd /*
671 1.1 cgd * Keep track of printables and
672 1.1 cgd * space chars (like fold(1)).
673 1.1 cgd */
674 1.1 cgd if (col == 0) {
675 1.1 cgd (void)putchar('\t');
676 1.1 cgd col = 8;
677 1.1 cgd }
678 1.1 cgd switch(*cp) {
679 1.1 cgd case '\n':
680 1.1 cgd col = 0;
681 1.1 cgd (void)putchar('\n');
682 1.1 cgd continue;
683 1.1 cgd case '\t':
684 1.58 dsl width = 8 - (col & 07);
685 1.1 cgd break;
686 1.1 cgd default:
687 1.1 cgd width = strlen(cp);
688 1.1 cgd }
689 1.58 dsl if (col + width > (screenwidth - 2)) {
690 1.1 cgd (void)printf("\\\n\t");
691 1.1 cgd col = 8;
692 1.1 cgd }
693 1.1 cgd col += width;
694 1.1 cgd do {
695 1.1 cgd (void)putchar(*cp++);
696 1.1 cgd } while (*cp);
697 1.1 cgd }
698 1.1 cgd if (col == 0)
699 1.1 cgd (void)printf(" ");
700 1.1 cgd (void)printf("\"\n");
701 1.58 dsl }
702 1.58 dsl
703 1.58 dsl void
704 1.58 dsl ktrgenio(ktr, len)
705 1.58 dsl struct ktr_genio *ktr;
706 1.58 dsl int len;
707 1.58 dsl {
708 1.58 dsl int datalen = len - sizeof (struct ktr_genio);
709 1.58 dsl char *dp = (char *)ktr + sizeof (struct ktr_genio);
710 1.58 dsl
711 1.58 dsl printf("fd %d %s %d bytes\n", ktr->ktr_fd,
712 1.58 dsl ktr->ktr_rw == UIO_READ ? "read" : "wrote", datalen);
713 1.58 dsl if (maxdata == 0)
714 1.58 dsl return;
715 1.58 dsl if (maxdata > 0 && datalen > maxdata)
716 1.58 dsl datalen = maxdata;
717 1.65 dsl if (word_size) {
718 1.65 dsl hexdump_buf(dp, datalen, word_size);
719 1.58 dsl return;
720 1.58 dsl }
721 1.58 dsl (void)printf(" ");
722 1.58 dsl visdump_buf(dp, datalen, 7);
723 1.1 cgd }
724 1.1 cgd
725 1.17 mikel void
726 1.60 christos ktrpsig(v, len)
727 1.60 christos void *v;
728 1.60 christos int len;
729 1.1 cgd {
730 1.21 mycroft int signo, first;
731 1.60 christos struct {
732 1.60 christos struct ktr_psig ps;
733 1.60 christos siginfo_t si;
734 1.60 christos } *psig = v;
735 1.60 christos siginfo_t *si = &psig->si;
736 1.60 christos const char *code;
737 1.60 christos
738 1.60 christos (void)printf("SIG%s ", signame(psig->ps.signo, 0));
739 1.60 christos if (psig->ps.action == SIG_DFL)
740 1.60 christos (void)printf("SIG_DFL");
741 1.21 mycroft else {
742 1.60 christos (void)printf("caught handler=%p mask=(", psig->ps.action);
743 1.21 mycroft first = 1;
744 1.21 mycroft for (signo = 1; signo < NSIG; signo++) {
745 1.60 christos if (sigismember(&psig->ps.mask, signo)) {
746 1.21 mycroft if (first)
747 1.21 mycroft first = 0;
748 1.21 mycroft else
749 1.21 mycroft (void)printf(",");
750 1.21 mycroft (void)printf("%d", signo);
751 1.21 mycroft }
752 1.21 mycroft }
753 1.60 christos (void)printf(")");
754 1.60 christos }
755 1.60 christos switch (len) {
756 1.60 christos case sizeof(struct ktr_psig):
757 1.61 christos if (psig->ps.code)
758 1.61 christos printf(" code=0x%x", psig->ps.code);
759 1.61 christos printf(psig->ps.action == SIG_DFL ? "\n" : ")\n");
760 1.60 christos return;
761 1.60 christos case sizeof(*psig):
762 1.60 christos if (si->si_code == 0) {
763 1.61 christos printf(": code=SI_USER sent by pid=%d, uid=%d)\n",
764 1.60 christos si->si_pid, si->si_uid);
765 1.60 christos return;
766 1.60 christos }
767 1.60 christos
768 1.60 christos if (si->si_code < 0) {
769 1.60 christos switch (si->si_code) {
770 1.60 christos case SI_TIMER:
771 1.61 christos printf(": code=SI_TIMER sigval %p)\n",
772 1.60 christos si->si_sigval.sival_ptr);
773 1.60 christos return;
774 1.60 christos case SI_QUEUE:
775 1.60 christos code = "SI_QUEUE";
776 1.60 christos break;
777 1.60 christos case SI_ASYNCIO:
778 1.60 christos code = "SI_ASYNCIO";
779 1.60 christos break;
780 1.60 christos case SI_MESGQ:
781 1.60 christos code = "SI_MESGQ";
782 1.60 christos break;
783 1.60 christos default:
784 1.60 christos code = NULL;
785 1.60 christos break;
786 1.60 christos }
787 1.60 christos if (code)
788 1.61 christos printf(": code=%s unimplemented)\n", code);
789 1.60 christos else
790 1.61 christos printf(": code=%d unimplemented)\n",
791 1.60 christos si->si_code);
792 1.60 christos return;
793 1.60 christos }
794 1.60 christos
795 1.60 christos code = siginfocodename(si->si_signo, si->si_code);
796 1.60 christos switch (si->si_signo) {
797 1.60 christos case SIGCHLD:
798 1.60 christos printf(": code=%s child pid=%d, uid=%d, "
799 1.61 christos " status=%u, utime=%lu, stime=%lu)\n",
800 1.60 christos code, si->si_pid,
801 1.62 matt si->si_uid, si->si_status,
802 1.62 matt (unsigned long) si->si_utime,
803 1.62 matt (unsigned long) si->si_stime);
804 1.60 christos return;
805 1.60 christos case SIGILL:
806 1.60 christos case SIGFPE:
807 1.60 christos case SIGSEGV:
808 1.60 christos case SIGBUS:
809 1.60 christos case SIGTRAP:
810 1.61 christos printf(": code=%s, addr=%p, trap=%d)\n",
811 1.60 christos code, si->si_addr, si->si_trap);
812 1.60 christos return;
813 1.60 christos case SIGIO:
814 1.61 christos printf(": code=%s, fd=%d, band=%lx)\n",
815 1.60 christos code, si->si_fd, si->si_band);
816 1.60 christos return;
817 1.60 christos default:
818 1.61 christos printf(": code=%s, errno=%d)\n",
819 1.60 christos code, si->si_errno);
820 1.60 christos return;
821 1.60 christos }
822 1.60 christos /*NOTREACHED*/
823 1.60 christos default:
824 1.60 christos warnx("Unhandled size %d for ktrpsig\n", len);
825 1.60 christos break;
826 1.21 mycroft }
827 1.1 cgd }
828 1.1 cgd
829 1.17 mikel void
830 1.1 cgd ktrcsw(cs)
831 1.1 cgd struct ktr_csw *cs;
832 1.1 cgd {
833 1.17 mikel
834 1.1 cgd (void)printf("%s %s\n", cs->out ? "stop" : "resume",
835 1.4 mycroft cs->user ? "user" : "kernel");
836 1.32 jdolecek }
837 1.32 jdolecek
838 1.32 jdolecek void
839 1.34 jdolecek ktruser(usr, len)
840 1.34 jdolecek struct ktr_user *usr;
841 1.32 jdolecek int len;
842 1.32 jdolecek {
843 1.32 jdolecek int i;
844 1.40 jdolecek unsigned char *dta;
845 1.34 jdolecek
846 1.34 jdolecek printf("\"%.*s: %d, ", KTR_USER_MAXIDLEN, usr->ktr_id, len);
847 1.40 jdolecek dta = (unsigned char *)usr;
848 1.34 jdolecek for(i=sizeof(struct ktr_user); i < len; i++)
849 1.40 jdolecek printf("%02x", (unsigned int) dta[i]);
850 1.32 jdolecek printf("\"\n");
851 1.37 christos }
852 1.37 christos
853 1.46 manu void
854 1.46 manu ktrmmsg(mmsg, len)
855 1.46 manu struct ktr_mmsg *mmsg;
856 1.46 manu int len;
857 1.46 manu {
858 1.63 manu const char *service_name;
859 1.63 manu char *reply;
860 1.63 manu int id;
861 1.63 manu
862 1.63 manu id = mmsg->ktr_id;
863 1.63 manu if ((id / 100) % 2) { /* Message reply */
864 1.63 manu reply = " reply";
865 1.63 manu id -= 100;
866 1.63 manu } else {
867 1.63 manu reply = "";
868 1.63 manu }
869 1.63 manu
870 1.63 manu if ((service_name = mach_service_name(id)) != NULL)
871 1.63 manu printf("%s%s\n", service_name, reply);
872 1.63 manu else
873 1.63 manu printf("unknown service%s [%d]\n", reply, mmsg->ktr_id);
874 1.46 manu
875 1.65 dsl hexdump_buf(mmsg, len, word_size ? word_size : 4);
876 1.46 manu }
877 1.46 manu
878 1.37 christos static const char *
879 1.37 christos signame(long sig, int xlat)
880 1.37 christos {
881 1.37 christos static char buf[64];
882 1.44 jdolecek if (sig == 0)
883 1.44 jdolecek return " 0";
884 1.44 jdolecek else if (sig < 0 || sig >= NSIG) {
885 1.37 christos (void)snprintf(buf, sizeof(buf), "*unknown %ld*", sig);
886 1.37 christos return buf;
887 1.37 christos } else
888 1.38 christos return sys_signame[(xlat && current->signalmap != NULL) ?
889 1.38 christos current->signalmap[sig] : sig];
890 1.1 cgd }
891 1.1 cgd
892 1.17 mikel void
893 1.1 cgd usage()
894 1.1 cgd {
895 1.4 mycroft
896 1.64 manu (void)fprintf(stderr, "usage: kdump [-dlNnRT] [-e emulation] "
897 1.46 manu "[-f file] [-m maxdata] [-p pid]\n [-t trstr] "
898 1.66 manu "[-x | -X size] [file]\n");
899 1.1 cgd exit(1);
900 1.11 christos }
901