Home | History | Annotate | Line # | Download | only in kdump
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