kdump.c revision 1.65 1 1.65 dsl /* $NetBSD: kdump.c,v 1.65 2003/11/16 14:51:26 dsl 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.65 dsl __RCSID("$NetBSD: kdump.c,v 1.65 2003/11/16 14:51:26 dsl 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.65 dsl int word_size;
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.64 manu while ((ch = getopt(argc, argv, "e:f:dlm:Nnp:RTt:x:")) != -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.65 dsl word_size = strtoul(optarg, &cp, 0);
171 1.65 dsl if (*cp != 0 || word_size & (word_size - 1) ||
172 1.65 dsl word_size > 16 || word_size == 0)
173 1.65 dsl errx(1, "argument to -x must be 1, 2, 4, 8 or 16");
174 1.52 dsl break;
175 1.1 cgd default:
176 1.1 cgd usage();
177 1.1 cgd }
178 1.1 cgd argv += optind;
179 1.1 cgd argc -= optind;
180 1.1 cgd
181 1.58 dsl if (!trset)
182 1.58 dsl trpoints = ALL_POINTS;
183 1.58 dsl
184 1.41 atatat if (tracefile == NULL) {
185 1.41 atatat if (argc == 1) {
186 1.41 atatat tracefile = argv[0];
187 1.41 atatat argv++;
188 1.41 atatat argc--;
189 1.41 atatat }
190 1.41 atatat else
191 1.41 atatat tracefile = DEF_TRACEFILE;
192 1.41 atatat }
193 1.41 atatat
194 1.41 atatat if (argc > 0)
195 1.1 cgd usage();
196 1.1 cgd
197 1.27 jdolecek setemul(emul_name, 0, 0);
198 1.42 manu mach_lookup_emul();
199 1.27 jdolecek
200 1.27 jdolecek m = malloc(size = 1024);
201 1.4 mycroft if (m == NULL)
202 1.27 jdolecek errx(1, "malloc: %s", strerror(ENOMEM));
203 1.4 mycroft if (!freopen(tracefile, "r", stdin))
204 1.4 mycroft err(1, "%s", tracefile);
205 1.17 mikel while (fread_tail((char *)&ktr_header, sizeof(struct ktr_header), 1)) {
206 1.58 dsl if (trpoints & (1<<ktr_header.ktr_type)
207 1.58 dsl && (do_pid == -1 || ktr_header.ktr_pid == do_pid))
208 1.58 dsl col = dumpheader(&ktr_header);
209 1.58 dsl else
210 1.58 dsl col = -1;
211 1.4 mycroft if ((ktrlen = ktr_header.ktr_len) < 0)
212 1.4 mycroft errx(1, "bogus length 0x%x", ktrlen);
213 1.1 cgd if (ktrlen > size) {
214 1.58 dsl while (ktrlen > size)
215 1.58 dsl size *= 2;
216 1.58 dsl m = realloc(m, size);
217 1.4 mycroft if (m == NULL)
218 1.27 jdolecek errx(1, "realloc: %s", strerror(ENOMEM));
219 1.1 cgd }
220 1.4 mycroft if (ktrlen && fread_tail(m, ktrlen, 1) == 0)
221 1.4 mycroft errx(1, "data too short");
222 1.58 dsl if (col == -1)
223 1.1 cgd continue;
224 1.27 jdolecek
225 1.27 jdolecek /* update context to match currently processed record */
226 1.27 jdolecek ectx_sanify(ktr_header.ktr_pid);
227 1.27 jdolecek
228 1.1 cgd switch (ktr_header.ktr_type) {
229 1.1 cgd case KTR_SYSCALL:
230 1.58 dsl ktrsyscall(m);
231 1.1 cgd break;
232 1.1 cgd case KTR_SYSRET:
233 1.58 dsl ktrsysret(m, ktrlen);
234 1.1 cgd break;
235 1.1 cgd case KTR_NAMEI:
236 1.1 cgd ktrnamei(m, ktrlen);
237 1.1 cgd break;
238 1.1 cgd case KTR_GENIO:
239 1.58 dsl ktrgenio(m, ktrlen);
240 1.1 cgd break;
241 1.1 cgd case KTR_PSIG:
242 1.60 christos ktrpsig(m, ktrlen);
243 1.1 cgd break;
244 1.1 cgd case KTR_CSW:
245 1.58 dsl ktrcsw(m);
246 1.1 cgd break;
247 1.11 christos case KTR_EMUL:
248 1.27 jdolecek ktremul(m, ktrlen, size);
249 1.11 christos break;
250 1.32 jdolecek case KTR_USER:
251 1.58 dsl ktruser(m, ktrlen);
252 1.32 jdolecek break;
253 1.46 manu case KTR_MMSG:
254 1.58 dsl ktrmmsg(m, ktrlen);
255 1.46 manu break;
256 1.58 dsl case KTR_EXEC_ARG:
257 1.58 dsl case KTR_EXEC_ENV:
258 1.58 dsl visdump_buf(m, ktrlen, col);
259 1.58 dsl break;
260 1.58 dsl default:
261 1.58 dsl printf("\n");
262 1.65 dsl hexdump_buf(m, ktrlen, word_size);
263 1.1 cgd }
264 1.1 cgd if (tail)
265 1.1 cgd (void)fflush(stdout);
266 1.1 cgd }
267 1.17 mikel return (0);
268 1.1 cgd }
269 1.1 cgd
270 1.17 mikel int
271 1.1 cgd fread_tail(buf, size, num)
272 1.1 cgd char *buf;
273 1.1 cgd int num, size;
274 1.1 cgd {
275 1.1 cgd int i;
276 1.1 cgd
277 1.1 cgd while ((i = fread(buf, size, num, stdin)) == 0 && tail) {
278 1.1 cgd (void)sleep(1);
279 1.1 cgd clearerr(stdin);
280 1.1 cgd }
281 1.1 cgd return (i);
282 1.1 cgd }
283 1.1 cgd
284 1.58 dsl int
285 1.1 cgd dumpheader(kth)
286 1.1 cgd struct ktr_header *kth;
287 1.1 cgd {
288 1.6 mycroft char unknown[64], *type;
289 1.6 mycroft static struct timeval prevtime;
290 1.6 mycroft struct timeval temp;
291 1.58 dsl int col;
292 1.1 cgd
293 1.1 cgd switch (kth->ktr_type) {
294 1.1 cgd case KTR_SYSCALL:
295 1.1 cgd type = "CALL";
296 1.1 cgd break;
297 1.1 cgd case KTR_SYSRET:
298 1.1 cgd type = "RET ";
299 1.1 cgd break;
300 1.1 cgd case KTR_NAMEI:
301 1.1 cgd type = "NAMI";
302 1.1 cgd break;
303 1.1 cgd case KTR_GENIO:
304 1.1 cgd type = "GIO ";
305 1.1 cgd break;
306 1.1 cgd case KTR_PSIG:
307 1.1 cgd type = "PSIG";
308 1.1 cgd break;
309 1.1 cgd case KTR_CSW:
310 1.60 christos type = "CSW ";
311 1.1 cgd break;
312 1.11 christos case KTR_EMUL:
313 1.11 christos type = "EMUL";
314 1.11 christos break;
315 1.32 jdolecek case KTR_USER:
316 1.32 jdolecek type = "USER";
317 1.32 jdolecek break;
318 1.46 manu case KTR_MMSG:
319 1.46 manu type = "MMSG";
320 1.46 manu break;
321 1.58 dsl case KTR_EXEC_ENV:
322 1.58 dsl type = "ENV";
323 1.58 dsl break;
324 1.58 dsl case KTR_EXEC_ARG:
325 1.58 dsl type = "ARG";
326 1.58 dsl break;
327 1.1 cgd default:
328 1.1 cgd (void)sprintf(unknown, "UNKNOWN(%d)", kth->ktr_type);
329 1.1 cgd type = unknown;
330 1.1 cgd }
331 1.1 cgd
332 1.58 dsl col = printf("%6d %-8.*s ", kth->ktr_pid, MAXCOMLEN, kth->ktr_comm);
333 1.1 cgd if (timestamp) {
334 1.1 cgd if (timestamp == 2) {
335 1.58 dsl if (prevtime.tv_sec == 0)
336 1.58 dsl temp.tv_sec = temp.tv_usec = 0;
337 1.58 dsl else
338 1.58 dsl timersub(&kth->ktr_time, &prevtime, &temp);
339 1.5 mycroft prevtime = kth->ktr_time;
340 1.5 mycroft } else
341 1.1 cgd temp = kth->ktr_time;
342 1.58 dsl col += printf("%ld.%06ld ",
343 1.26 kleink (long int)temp.tv_sec, (long int)temp.tv_usec);
344 1.1 cgd }
345 1.58 dsl col += printf("%-4s ", type);
346 1.58 dsl return col;
347 1.1 cgd }
348 1.1 cgd
349 1.13 christos void
350 1.13 christos ioctldecode(cmd)
351 1.13 christos u_long cmd;
352 1.13 christos {
353 1.13 christos char dirbuf[4], *dir = dirbuf;
354 1.13 christos
355 1.15 cgd if (cmd & IOC_IN)
356 1.15 cgd *dir++ = 'W';
357 1.13 christos if (cmd & IOC_OUT)
358 1.13 christos *dir++ = 'R';
359 1.13 christos *dir = '\0';
360 1.13 christos
361 1.13 christos printf(decimal ? ",_IO%s('%c',%ld" : ",_IO%s('%c',%#lx",
362 1.30 is dirbuf, (int) ((cmd >> 8) & 0xff), cmd & 0xff);
363 1.13 christos if ((cmd & IOC_VOID) == 0)
364 1.13 christos printf(decimal ? ",%ld)" : ",%#lx)", (cmd >> 16) & 0xff);
365 1.13 christos else
366 1.13 christos printf(")");
367 1.13 christos }
368 1.1 cgd
369 1.17 mikel void
370 1.1 cgd ktrsyscall(ktr)
371 1.18 lukem struct ktr_syscall *ktr;
372 1.1 cgd {
373 1.18 lukem int argsize = ktr->ktr_argsize;
374 1.42 manu const struct emulation *revelant = current;
375 1.18 lukem register_t *ap;
376 1.1 cgd
377 1.43 atatat if (((ktr->ktr_code >= revelant->nsysnames || ktr->ktr_code < 0)
378 1.43 atatat && (mach_traps_dispatch(&ktr->ktr_code, &revelant) == 0)) ||
379 1.43 atatat numeric)
380 1.1 cgd (void)printf("[%d]", ktr->ktr_code);
381 1.1 cgd else
382 1.42 manu (void)printf("%s", revelant->sysnames[ktr->ktr_code]);
383 1.7 cgd ap = (register_t *)((char *)ktr + sizeof(struct ktr_syscall));
384 1.7 cgd if (argsize) {
385 1.1 cgd char c = '(';
386 1.36 christos if (!plain) {
387 1.37 christos char *cp;
388 1.37 christos
389 1.37 christos switch (ktr->ktr_code) {
390 1.37 christos case SYS_ioctl:
391 1.1 cgd if (decimal)
392 1.7 cgd (void)printf("(%ld", (long)*ap);
393 1.1 cgd else
394 1.7 cgd (void)printf("(%#lx", (long)*ap);
395 1.7 cgd ap++;
396 1.7 cgd argsize -= sizeof(register_t);
397 1.7 cgd if ((cp = ioctlname(*ap)) != NULL)
398 1.1 cgd (void)printf(",%s", cp);
399 1.13 christos else
400 1.13 christos ioctldecode(*ap);
401 1.1 cgd c = ',';
402 1.7 cgd ap++;
403 1.7 cgd argsize -= sizeof(register_t);
404 1.37 christos break;
405 1.37 christos
406 1.37 christos case SYS_ptrace:
407 1.42 manu if (strcmp(revelant->name, "linux") == 0) {
408 1.37 christos if (*ap >= 0 && *ap <=
409 1.37 christos sizeof(linux_ptrace_ops) /
410 1.37 christos sizeof(linux_ptrace_ops[0]))
411 1.37 christos (void)printf("(%s",
412 1.37 christos linux_ptrace_ops[*ap]);
413 1.31 jdolecek else
414 1.31 jdolecek (void)printf("(%ld", (long)*ap);
415 1.31 jdolecek } else {
416 1.31 jdolecek if (*ap >= 0 && *ap <=
417 1.12 jtc sizeof(ptrace_ops) / sizeof(ptrace_ops[0]))
418 1.7 cgd (void)printf("(%s", ptrace_ops[*ap]);
419 1.31 jdolecek else
420 1.7 cgd (void)printf("(%ld", (long)*ap);
421 1.31 jdolecek }
422 1.1 cgd c = ',';
423 1.7 cgd ap++;
424 1.7 cgd argsize -= sizeof(register_t);
425 1.37 christos break;
426 1.37 christos
427 1.37 christos case SYS_kill:
428 1.37 christos if (decimal)
429 1.37 christos (void)printf("(%ld, SIG%s",
430 1.37 christos (long)ap[0], signame(ap[1], 1));
431 1.37 christos else
432 1.37 christos (void)printf("(%#lx, SIG%s",
433 1.37 christos (long)ap[0], signame(ap[1], 1));
434 1.37 christos ap += 2;
435 1.37 christos argsize -= 2 * sizeof(register_t);
436 1.37 christos break;
437 1.37 christos
438 1.37 christos default:
439 1.37 christos /* No special handling */
440 1.37 christos break;
441 1.1 cgd }
442 1.1 cgd }
443 1.7 cgd while (argsize) {
444 1.1 cgd if (decimal)
445 1.7 cgd (void)printf("%c%ld", c, (long)*ap);
446 1.1 cgd else
447 1.7 cgd (void)printf("%c%#lx", c, (long)*ap);
448 1.1 cgd c = ',';
449 1.7 cgd ap++;
450 1.7 cgd argsize -= sizeof(register_t);
451 1.1 cgd }
452 1.1 cgd (void)putchar(')');
453 1.1 cgd }
454 1.1 cgd (void)putchar('\n');
455 1.1 cgd }
456 1.1 cgd
457 1.17 mikel void
458 1.48 dsl ktrsysret(ktr, len)
459 1.1 cgd struct ktr_sysret *ktr;
460 1.48 dsl int len;
461 1.1 cgd {
462 1.35 manu const struct emulation *revelant;
463 1.18 lukem int error = ktr->ktr_error;
464 1.18 lukem int code = ktr->ktr_code;
465 1.1 cgd
466 1.35 manu if (emul_changed)
467 1.35 manu revelant = previous;
468 1.35 manu else
469 1.35 manu revelant = current;
470 1.35 manu emul_changed = 0;
471 1.35 manu
472 1.42 manu if ((code >= revelant->nsysnames || code < 0 || plain > 1)
473 1.42 manu && (mach_traps_dispatch(&code, &revelant) == 0))
474 1.1 cgd (void)printf("[%d] ", code);
475 1.1 cgd else
476 1.35 manu (void)printf("%s ", revelant->sysnames[code]);
477 1.1 cgd
478 1.22 christos switch (error) {
479 1.22 christos case 0:
480 1.48 dsl rprint(ktr->ktr_retval);
481 1.48 dsl if (len > offsetof(struct ktr_sysret, ktr_retval_1) &&
482 1.48 dsl ktr->ktr_retval_1 != 0) {
483 1.48 dsl (void)printf(", ");
484 1.48 dsl rprint(ktr->ktr_retval_1);
485 1.1 cgd }
486 1.22 christos break;
487 1.22 christos
488 1.22 christos default:
489 1.22 christos eprint(error);
490 1.22 christos break;
491 1.22 christos }
492 1.22 christos (void)putchar('\n');
493 1.48 dsl }
494 1.48 dsl
495 1.48 dsl void
496 1.48 dsl rprint(register_t ret)
497 1.48 dsl {
498 1.48 dsl if (!plain) {
499 1.48 dsl (void)printf("%ld", (long)ret);
500 1.48 dsl if (ret < 0 || ret > 9)
501 1.48 dsl (void)printf("/%#lx", (long)ret);
502 1.48 dsl } else {
503 1.48 dsl if (decimal)
504 1.48 dsl (void)printf("%ld", (long)ret);
505 1.48 dsl else
506 1.48 dsl (void)printf("%#lx", (long)ret);
507 1.48 dsl }
508 1.22 christos }
509 1.22 christos
510 1.22 christos /*
511 1.22 christos * We print the original emulation's error numerically, but we
512 1.22 christos * translate it to netbsd to print it symbolically.
513 1.22 christos */
514 1.22 christos void
515 1.22 christos eprint(e)
516 1.22 christos int e;
517 1.22 christos {
518 1.22 christos int i = e;
519 1.22 christos
520 1.33 itojun if (current->errnomap) {
521 1.22 christos
522 1.22 christos /* No remapping for ERESTART and EJUSTRETURN */
523 1.22 christos /* Kludge for linux that has negative error numbers */
524 1.33 itojun if (current->errnomap[2] > 0 && e < 0)
525 1.22 christos goto normal;
526 1.22 christos
527 1.33 itojun for (i = 0; i < current->nerrnomap; i++)
528 1.33 itojun if (e == current->errnomap[i])
529 1.22 christos break;
530 1.22 christos
531 1.33 itojun if (i == current->nerrnomap) {
532 1.22 christos printf("-1 unknown errno %d", e);
533 1.22 christos return;
534 1.22 christos }
535 1.22 christos }
536 1.22 christos
537 1.22 christos normal:
538 1.22 christos switch (i) {
539 1.22 christos case ERESTART:
540 1.1 cgd (void)printf("RESTART");
541 1.22 christos break;
542 1.22 christos
543 1.22 christos case EJUSTRETURN:
544 1.1 cgd (void)printf("JUSTRETURN");
545 1.22 christos break;
546 1.22 christos
547 1.22 christos default:
548 1.22 christos (void)printf("-1 errno %d", e);
549 1.36 christos if (!plain)
550 1.22 christos (void)printf(" %s", strerror(i));
551 1.1 cgd }
552 1.1 cgd }
553 1.1 cgd
554 1.17 mikel void
555 1.16 pk ktrnamei(cp, len)
556 1.1 cgd char *cp;
557 1.17 mikel int len;
558 1.1 cgd {
559 1.17 mikel
560 1.1 cgd (void)printf("\"%.*s\"\n", len, cp);
561 1.1 cgd }
562 1.1 cgd
563 1.17 mikel void
564 1.27 jdolecek ktremul(name, len, bufsize)
565 1.27 jdolecek char *name;
566 1.27 jdolecek int len, bufsize;
567 1.11 christos {
568 1.27 jdolecek if (len >= bufsize)
569 1.27 jdolecek len = bufsize - 1;
570 1.11 christos
571 1.27 jdolecek name[len] = '\0';
572 1.27 jdolecek setemul(name, ktr_header.ktr_pid, 1);
573 1.35 manu emul_changed = 1;
574 1.11 christos
575 1.11 christos (void)printf("\"%s\"\n", name);
576 1.11 christos }
577 1.11 christos
578 1.52 dsl static void
579 1.65 dsl hexdump_buf(vdp, datalen, word_sz)
580 1.64 manu const void *vdp;
581 1.64 manu int datalen;
582 1.65 dsl int word_sz;
583 1.52 dsl {
584 1.65 dsl const char hex[] = "0123456789abcdef";
585 1.52 dsl char chars[16];
586 1.65 dsl char bytes[16 * 3 + 4];
587 1.58 dsl const unsigned char *dp = vdp;
588 1.65 dsl const unsigned char *datalim = dp + datalen;
589 1.65 dsl const unsigned char *line_end;
590 1.65 dsl int off, l, c;
591 1.65 dsl char *cp, *bp;
592 1.65 dsl int divmask = word_sz - 1; /* block size in bytes */
593 1.65 dsl int gdelim = 3; /* gap between blocks */
594 1.65 dsl int bsize = 2; /* increment for each byte */
595 1.65 dsl int width;
596 1.65 dsl #if _BYTE_ORDER == _LITTLE_ENDIAN
597 1.65 dsl int bswap = word_sz - 1;
598 1.65 dsl #else
599 1.65 dsl #define bswap 0
600 1.65 dsl #endif
601 1.65 dsl
602 1.65 dsl switch (word_sz) {
603 1.65 dsl case 2:
604 1.65 dsl gdelim = 2;
605 1.64 manu break;
606 1.64 manu case 1:
607 1.65 dsl divmask = 7;
608 1.65 dsl bsize = 3;
609 1.65 dsl gdelim = 1;
610 1.65 dsl break;
611 1.64 manu default:
612 1.64 manu break;
613 1.64 manu }
614 1.65 dsl width = 16 * bsize + (16 / (divmask + 1)) * gdelim;
615 1.65 dsl if (word_size != 1)
616 1.65 dsl width += 2;
617 1.65 dsl
618 1.65 dsl for (off = 0; dp < datalim; off += l) {
619 1.65 dsl memset(bytes, ' ', sizeof bytes);
620 1.65 dsl line_end = dp + 16;
621 1.65 dsl if (line_end > datalim)
622 1.65 dsl line_end = datalim;
623 1.52 dsl
624 1.65 dsl for (l = 0, bp = bytes, cp = chars; dp < line_end; l++) {
625 1.52 dsl c = *dp++;
626 1.65 dsl if ((l & divmask) == 0)
627 1.65 dsl bp += gdelim;
628 1.65 dsl bp[(l ^ bswap) * bsize] = hex[c >> 4];
629 1.65 dsl bp[(l ^ bswap) * bsize + 1] = hex[c & 0xf];
630 1.52 dsl *cp++ = isgraph(c) ? c : '.';
631 1.58 dsl };
632 1.64 manu
633 1.65 dsl printf("\t%3.3x %.*s%.*s\n", off, width, bytes, l, chars);
634 1.52 dsl }
635 1.52 dsl }
636 1.52 dsl
637 1.58 dsl static void
638 1.58 dsl visdump_buf(const void *vdp, int datalen, int col)
639 1.1 cgd {
640 1.58 dsl const unsigned char *dp = vdp;
641 1.18 lukem char *cp;
642 1.18 lukem int width;
643 1.1 cgd char visbuf[5];
644 1.20 mrg static int screenwidth = 0;
645 1.1 cgd
646 1.1 cgd if (screenwidth == 0) {
647 1.1 cgd struct winsize ws;
648 1.1 cgd
649 1.36 christos if (!plain && ioctl(fileno(stderr), TIOCGWINSZ, &ws) != -1 &&
650 1.1 cgd ws.ws_col > 8)
651 1.1 cgd screenwidth = ws.ws_col;
652 1.1 cgd else
653 1.1 cgd screenwidth = 80;
654 1.1 cgd }
655 1.58 dsl
656 1.58 dsl (void)printf("\"");
657 1.58 dsl col++;
658 1.4 mycroft for (; datalen > 0; datalen--, dp++) {
659 1.58 dsl (void)svis(visbuf, *dp, VIS_CSTYLE,
660 1.58 dsl datalen > 1 ? *(dp + 1) : 0, "\"");
661 1.1 cgd cp = visbuf;
662 1.1 cgd /*
663 1.1 cgd * Keep track of printables and
664 1.1 cgd * space chars (like fold(1)).
665 1.1 cgd */
666 1.1 cgd if (col == 0) {
667 1.1 cgd (void)putchar('\t');
668 1.1 cgd col = 8;
669 1.1 cgd }
670 1.1 cgd switch(*cp) {
671 1.1 cgd case '\n':
672 1.1 cgd col = 0;
673 1.1 cgd (void)putchar('\n');
674 1.1 cgd continue;
675 1.1 cgd case '\t':
676 1.58 dsl width = 8 - (col & 07);
677 1.1 cgd break;
678 1.1 cgd default:
679 1.1 cgd width = strlen(cp);
680 1.1 cgd }
681 1.58 dsl if (col + width > (screenwidth - 2)) {
682 1.1 cgd (void)printf("\\\n\t");
683 1.1 cgd col = 8;
684 1.1 cgd }
685 1.1 cgd col += width;
686 1.1 cgd do {
687 1.1 cgd (void)putchar(*cp++);
688 1.1 cgd } while (*cp);
689 1.1 cgd }
690 1.1 cgd if (col == 0)
691 1.1 cgd (void)printf(" ");
692 1.1 cgd (void)printf("\"\n");
693 1.58 dsl }
694 1.58 dsl
695 1.58 dsl void
696 1.58 dsl ktrgenio(ktr, len)
697 1.58 dsl struct ktr_genio *ktr;
698 1.58 dsl int len;
699 1.58 dsl {
700 1.58 dsl int datalen = len - sizeof (struct ktr_genio);
701 1.58 dsl char *dp = (char *)ktr + sizeof (struct ktr_genio);
702 1.58 dsl
703 1.58 dsl printf("fd %d %s %d bytes\n", ktr->ktr_fd,
704 1.58 dsl ktr->ktr_rw == UIO_READ ? "read" : "wrote", datalen);
705 1.58 dsl if (maxdata == 0)
706 1.58 dsl return;
707 1.58 dsl if (maxdata > 0 && datalen > maxdata)
708 1.58 dsl datalen = maxdata;
709 1.65 dsl if (word_size) {
710 1.65 dsl hexdump_buf(dp, datalen, word_size);
711 1.58 dsl return;
712 1.58 dsl }
713 1.58 dsl (void)printf(" ");
714 1.58 dsl visdump_buf(dp, datalen, 7);
715 1.1 cgd }
716 1.1 cgd
717 1.17 mikel void
718 1.60 christos ktrpsig(v, len)
719 1.60 christos void *v;
720 1.60 christos int len;
721 1.1 cgd {
722 1.21 mycroft int signo, first;
723 1.60 christos struct {
724 1.60 christos struct ktr_psig ps;
725 1.60 christos siginfo_t si;
726 1.60 christos } *psig = v;
727 1.60 christos siginfo_t *si = &psig->si;
728 1.60 christos const char *code;
729 1.60 christos
730 1.60 christos (void)printf("SIG%s ", signame(psig->ps.signo, 0));
731 1.60 christos if (psig->ps.action == SIG_DFL)
732 1.60 christos (void)printf("SIG_DFL");
733 1.21 mycroft else {
734 1.60 christos (void)printf("caught handler=%p mask=(", psig->ps.action);
735 1.21 mycroft first = 1;
736 1.21 mycroft for (signo = 1; signo < NSIG; signo++) {
737 1.60 christos if (sigismember(&psig->ps.mask, signo)) {
738 1.21 mycroft if (first)
739 1.21 mycroft first = 0;
740 1.21 mycroft else
741 1.21 mycroft (void)printf(",");
742 1.21 mycroft (void)printf("%d", signo);
743 1.21 mycroft }
744 1.21 mycroft }
745 1.60 christos (void)printf(")");
746 1.60 christos }
747 1.60 christos switch (len) {
748 1.60 christos case sizeof(struct ktr_psig):
749 1.61 christos if (psig->ps.code)
750 1.61 christos printf(" code=0x%x", psig->ps.code);
751 1.61 christos printf(psig->ps.action == SIG_DFL ? "\n" : ")\n");
752 1.60 christos return;
753 1.60 christos case sizeof(*psig):
754 1.60 christos if (si->si_code == 0) {
755 1.61 christos printf(": code=SI_USER sent by pid=%d, uid=%d)\n",
756 1.60 christos si->si_pid, si->si_uid);
757 1.60 christos return;
758 1.60 christos }
759 1.60 christos
760 1.60 christos if (si->si_code < 0) {
761 1.60 christos switch (si->si_code) {
762 1.60 christos case SI_TIMER:
763 1.61 christos printf(": code=SI_TIMER sigval %p)\n",
764 1.60 christos si->si_sigval.sival_ptr);
765 1.60 christos return;
766 1.60 christos case SI_QUEUE:
767 1.60 christos code = "SI_QUEUE";
768 1.60 christos break;
769 1.60 christos case SI_ASYNCIO:
770 1.60 christos code = "SI_ASYNCIO";
771 1.60 christos break;
772 1.60 christos case SI_MESGQ:
773 1.60 christos code = "SI_MESGQ";
774 1.60 christos break;
775 1.60 christos default:
776 1.60 christos code = NULL;
777 1.60 christos break;
778 1.60 christos }
779 1.60 christos if (code)
780 1.61 christos printf(": code=%s unimplemented)\n", code);
781 1.60 christos else
782 1.61 christos printf(": code=%d unimplemented)\n",
783 1.60 christos si->si_code);
784 1.60 christos return;
785 1.60 christos }
786 1.60 christos
787 1.60 christos code = siginfocodename(si->si_signo, si->si_code);
788 1.60 christos switch (si->si_signo) {
789 1.60 christos case SIGCHLD:
790 1.60 christos printf(": code=%s child pid=%d, uid=%d, "
791 1.61 christos " status=%u, utime=%lu, stime=%lu)\n",
792 1.60 christos code, si->si_pid,
793 1.62 matt si->si_uid, si->si_status,
794 1.62 matt (unsigned long) si->si_utime,
795 1.62 matt (unsigned long) si->si_stime);
796 1.60 christos return;
797 1.60 christos case SIGILL:
798 1.60 christos case SIGFPE:
799 1.60 christos case SIGSEGV:
800 1.60 christos case SIGBUS:
801 1.60 christos case SIGTRAP:
802 1.61 christos printf(": code=%s, addr=%p, trap=%d)\n",
803 1.60 christos code, si->si_addr, si->si_trap);
804 1.60 christos return;
805 1.60 christos case SIGIO:
806 1.61 christos printf(": code=%s, fd=%d, band=%lx)\n",
807 1.60 christos code, si->si_fd, si->si_band);
808 1.60 christos return;
809 1.60 christos default:
810 1.61 christos printf(": code=%s, errno=%d)\n",
811 1.60 christos code, si->si_errno);
812 1.60 christos return;
813 1.60 christos }
814 1.60 christos /*NOTREACHED*/
815 1.60 christos default:
816 1.60 christos warnx("Unhandled size %d for ktrpsig\n", len);
817 1.60 christos break;
818 1.21 mycroft }
819 1.1 cgd }
820 1.1 cgd
821 1.17 mikel void
822 1.1 cgd ktrcsw(cs)
823 1.1 cgd struct ktr_csw *cs;
824 1.1 cgd {
825 1.17 mikel
826 1.1 cgd (void)printf("%s %s\n", cs->out ? "stop" : "resume",
827 1.4 mycroft cs->user ? "user" : "kernel");
828 1.32 jdolecek }
829 1.32 jdolecek
830 1.32 jdolecek void
831 1.34 jdolecek ktruser(usr, len)
832 1.34 jdolecek struct ktr_user *usr;
833 1.32 jdolecek int len;
834 1.32 jdolecek {
835 1.32 jdolecek int i;
836 1.40 jdolecek unsigned char *dta;
837 1.34 jdolecek
838 1.34 jdolecek printf("\"%.*s: %d, ", KTR_USER_MAXIDLEN, usr->ktr_id, len);
839 1.40 jdolecek dta = (unsigned char *)usr;
840 1.34 jdolecek for(i=sizeof(struct ktr_user); i < len; i++)
841 1.40 jdolecek printf("%02x", (unsigned int) dta[i]);
842 1.32 jdolecek printf("\"\n");
843 1.37 christos }
844 1.37 christos
845 1.46 manu void
846 1.46 manu ktrmmsg(mmsg, len)
847 1.46 manu struct ktr_mmsg *mmsg;
848 1.46 manu int len;
849 1.46 manu {
850 1.63 manu const char *service_name;
851 1.63 manu char *reply;
852 1.63 manu int id;
853 1.63 manu
854 1.63 manu id = mmsg->ktr_id;
855 1.63 manu if ((id / 100) % 2) { /* Message reply */
856 1.63 manu reply = " reply";
857 1.63 manu id -= 100;
858 1.63 manu } else {
859 1.63 manu reply = "";
860 1.63 manu }
861 1.63 manu
862 1.63 manu if ((service_name = mach_service_name(id)) != NULL)
863 1.63 manu printf("%s%s\n", service_name, reply);
864 1.63 manu else
865 1.63 manu printf("unknown service%s [%d]\n", reply, mmsg->ktr_id);
866 1.46 manu
867 1.65 dsl hexdump_buf(mmsg, len, word_size ? word_size : 4);
868 1.46 manu }
869 1.46 manu
870 1.37 christos static const char *
871 1.37 christos signame(long sig, int xlat)
872 1.37 christos {
873 1.37 christos static char buf[64];
874 1.44 jdolecek if (sig == 0)
875 1.44 jdolecek return " 0";
876 1.44 jdolecek else if (sig < 0 || sig >= NSIG) {
877 1.37 christos (void)snprintf(buf, sizeof(buf), "*unknown %ld*", sig);
878 1.37 christos return buf;
879 1.37 christos } else
880 1.38 christos return sys_signame[(xlat && current->signalmap != NULL) ?
881 1.38 christos current->signalmap[sig] : sig];
882 1.1 cgd }
883 1.1 cgd
884 1.17 mikel void
885 1.1 cgd usage()
886 1.1 cgd {
887 1.4 mycroft
888 1.64 manu (void)fprintf(stderr, "usage: kdump [-dlNnRT] [-e emulation] "
889 1.46 manu "[-f file] [-m maxdata] [-p pid]\n [-t trstr] "
890 1.64 manu "[-x [size]] [file]\n");
891 1.1 cgd exit(1);
892 1.11 christos }
893