2 * Copyright (c) 1991, 1992 Paul Kranenburg <pk@cs.few.eur.nl>
3 * Copyright (c) 1993 Branko Lankester <branko@hacktic.nl>
4 * Copyright (c) 1993, 1994, 1995, 1996 Rick Sladkey <jrs@world.std.com>
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following conditions
10 * 1. Redistributions of source code must retain the above copyright
11 * notice, this list of conditions and the following disclaimer.
12 * 2. Redistributions in binary form must reproduce the above copyright
13 * notice, this list of conditions and the following disclaimer in the
14 * documentation and/or other materials provided with the distribution.
15 * 3. The name of the author may not be used to endorse or promote products
16 * derived from this software without specific prior written permission.
18 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
19 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
20 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
21 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
22 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
23 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
24 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
25 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
26 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
27 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
44 #ifdef _LARGEFILE64_SOURCE
45 /* This is the macro everything checks before using foo64 names. */
46 # ifndef _LFS64_LARGEFILE
47 # define _LFS64_LARGEFILE 1
51 /* configuration section */
53 #if defined(LINUX) && defined(MIPS)
54 #define MAX_QUALS 7000 /* maximum number of syscalls, signals, etc. */
56 #define MAX_QUALS 2048 /* maximum number of syscalls, signals, etc. */
59 #ifndef DEFAULT_STRLEN
60 #define DEFAULT_STRLEN 32 /* default maximum # of bytes printed in
61 `printstr', change with `-s' switch */
63 #ifndef DEFAULT_ACOLUMN
64 #define DEFAULT_ACOLUMN 40 /* default alignment column for results */
68 # define MAX_ARGS 6 /* maximum number of args to a syscall */
70 # define MAX_ARGS 32 /* maximum number of args to a syscall */
73 #ifndef DEFAULT_SORTBY
74 #define DEFAULT_SORTBY "time" /* default sorting method for call profiling */
77 #include <sys/types.h>
93 #endif /* STDC_HEADERS */
100 # if defined(SPARC) || defined(SPARC64)
104 # define LINUX_X86_64
106 # if defined(MIPS) && _MIPS_SIM == _MIPS_SIM_ABI32
107 # define LINUX_MIPSO32
109 # if defined(MIPS) && _MIPS_SIM == _MIPS_SIM_NABI32
110 # define LINUX_MIPSN32
111 # define LINUX_MIPS64
113 # if defined(MIPS) && _MIPS_SIM == _MIPS_SIM_ABI64
114 # define LINUX_MIPSN64
115 # define LINUX_MIPS64
125 #if defined(SVR4) || defined(FREEBSD)
133 #error "FreeBSD support is only for i386 arch right now."
135 #include <machine/psl.h>
136 #include <machine/reg.h>
137 #include <sys/syscall.h>
141 #include <sys/procfs.h>
142 #ifdef HAVE_MP_PROCFS
146 #include <sys/pioctl.h>
148 #else /* !USE_PROCFS */
149 #if (defined(LINUXSPARC) || defined(LINUX_X86_64) || defined(LINUX_ARM) || defined(LINUX_AVR32)) && defined(__GLIBC__)
150 #include <sys/ptrace.h>
152 /* Work around awkward prototype in ptrace.h. */
153 #define ptrace xptrace
154 #include <sys/ptrace.h>
158 #include <asm/ptrace.h>
162 extern long ptrace(int, int, char *, long);
164 extern int ptrace(int, int, char *, int, ...);
166 #endif /* !LINUXSPARC */
170 #if !defined(__GLIBC__)
171 #define PTRACE_PEEKUSER PTRACE_PEEKUSR
172 #define PTRACE_POKEUSER PTRACE_POKEUSR
189 # define PT_GR20 (20*4)
190 # define PT_GR26 (26*4)
191 # define PT_GR28 (28*4)
192 # define PT_IAOQ0 (106*4)
193 # define PT_IAOQ1 (107*4)
196 /* SH64 Linux - this code assumes the following kernel API for system calls:
198 System Call Offset 16 (actually, (syscall no.) | (0x1n << 16),
199 where n = no. of parameters.
200 Other regs Offset 24+
202 On entry: R2-7 = parameters 1-6 (as many as necessary)
203 On return: R9 = result. */
205 /* Offset for peeks of registers */
206 # define REG_OFFSET (24)
207 # define REG_GENERAL(x) (8*(x)+REG_OFFSET)
208 # define REG_PC (0*8)
209 # define REG_SYSCALL (2*8)
213 #define SUPPORTED_PERSONALITIES 1
214 #define DEFAULT_PERSONALITY 0
217 /* Indexes into the pt_regs.u_reg[] array -- UREG_XX from kernel are all off
218 * by 1 and use Ix instead of Ox. These work for both 32 and 64 bit Linux. */
222 #define PERSONALITY0_WORDSIZE 4
223 #define PERSONALITY1_WORDSIZE 4
224 #undef SUPPORTED_PERSONALITIES
226 #include <asm/psrcompat.h>
227 #define SUPPORTED_PERSONALITIES 3
228 #define PERSONALITY2_WORDSIZE 8
231 #define SUPPORTED_PERSONALITIES 2
233 #endif /* LINUXSPARC */
236 #undef SUPPORTED_PERSONALITIES
237 #define SUPPORTED_PERSONALITIES 2
238 #define PERSONALITY0_WORDSIZE 8
239 #define PERSONALITY1_WORDSIZE 4
243 #undef SUPPORTED_PERSONALITIES
244 #define SUPPORTED_PERSONALITIES 2
245 #define PERSONALITY0_WORDSIZE 4
246 #define PERSONALITY1_WORDSIZE 4
250 #undef SUPPORTED_PERSONALITIES
251 #define SUPPORTED_PERSONALITIES 2
252 #define PERSONALITY0_WORDSIZE 8
253 #define PERSONALITY1_WORDSIZE 4
257 #ifdef HAVE_MP_PROCFS
258 extern int mp_ioctl (int f, int c, void *a, int s);
259 #define IOCTL(f,c,a) mp_ioctl (f, c, a, sizeof *a)
260 #define IOCTL_STATUS(t) \
261 pread (t->pfd_stat, &t->status, sizeof t->status, 0)
262 #define IOCTL_WSTOP(t) \
263 (IOCTL (t->pfd, PCWSTOP, (char *)NULL) < 0 ? -1 : \
265 #define PR_WHY pr_lwp.pr_why
266 #define PR_WHAT pr_lwp.pr_what
267 #define PR_REG pr_lwp.pr_context.uc_mcontext.gregs
268 #define PR_FLAGS pr_lwp.pr_flags
269 #define PR_SYSCALL pr_lwp.pr_syscall
270 #define PR_INFO pr_lwp.pr_info
271 #define PIOCSTIP PCSTOP
272 #define PIOCSET PCSET
273 #define PIOCRESET PCRESET
274 #define PIOCSTRACE PCSTRACE
275 #define PIOCSFAULT PCSFAULT
276 #define PIOCWSTOP PCWSTOP
277 #define PIOCSTOP PCSTOP
278 #define PIOCSENTRY PCSENTRY
279 #define PIOCSEXIT PCSEXIT
280 #define PIOCRUN PCRUN
283 #define IOCTL_STATUS(t) ioctl (t->pfd, PIOCSTATUS, &t->status)
284 #define IOCTL_WSTOP(t) ioctl (t->pfd, PIOCWSTOP, &t->status)
285 #define PR_WHY pr_why
286 #define PR_WHAT pr_what
287 #define PR_REG pr_reg
288 #define PR_FLAGS pr_flags
289 #define PR_SYSCALL pr_syscall
290 #define PR_INFO pr_info
295 #define IOCTL_STATUS(t) ioctl (t->pfd, PIOCSTATUS, &t->status)
296 #define IOCTL_WSTOP(t) ioctl (t->pfd, PIOCWAIT, &t->status)
297 #define PIOCRUN PIOCCONT
298 #define PIOCWSTOP PIOCWAIT
301 #define PR_FLAGS state
302 /* from /usr/src/sys/miscfs/procfs/procfs_vnops.c,
303 status.state = 0 for running, 1 for stopped */
305 #define PR_SYSENTRY S_SCE
306 #define PR_SYSEXIT S_SCX
307 #define PR_SIGNALLED S_SIG
308 #define PR_FAULTED S_CORE
312 # ifndef PTRACE_SETOPTIONS
313 # define PTRACE_SETOPTIONS 0x4200
315 # ifndef PTRACE_GETEVENTMSG
316 # define PTRACE_GETEVENTMSG 0x4201
318 # ifndef PTRACE_O_TRACEFORK
319 # define PTRACE_O_TRACEFORK 0x00000002
321 # ifndef PTRACE_O_TRACEVFORK
322 # define PTRACE_O_TRACEVFORK 0x00000004
324 # ifndef PTRACE_O_TRACECLONE
325 # define PTRACE_O_TRACECLONE 0x00000008
328 # ifndef PTRACE_EVENT_FORK
329 # define PTRACE_EVENT_FORK 1
331 # ifndef PTRACE_EVENT_VFORK
332 # define PTRACE_EVENT_VFORK 2
334 # ifndef PTRACE_EVENT_CLONE
335 # define PTRACE_EVENT_CLONE 3
339 /* Trace Control Block */
341 short flags; /* See below for TCB_ values */
342 int pid; /* Process Id of this entry */
343 long scno; /* System call number */
344 int u_nargs; /* System call arguments */
345 long u_arg[MAX_ARGS]; /* System call arguments */
346 #if defined (LINUX_MIPSN32)
347 long long ext_arg[MAX_ARGS]; /* System call arguments */
349 int u_error; /* Error code */
350 long u_rval; /* (first) return value */
351 #ifdef HAVE_LONG_LONG
352 long long u_lrval; /* long long return value */
354 FILE *outf; /* Output file for this process */
355 int curcol; /* Output column for this process */
356 const char *auxstr; /* Auxiliary info from syscall (see RVAL_STR) */
357 struct timeval stime; /* System time usage as of last process wait */
358 struct timeval dtime; /* Delta for system time usage */
359 struct timeval etime; /* Syscall entry time */
360 /* Support for tracing forked processes */
361 struct tcb *parent; /* Parent of this process */
362 int nchildren; /* # of traced children */
363 int waitpid; /* pid(s) this process is waiting for */
364 int nzombies; /* # of formerly traced children now dead */
366 int nclone_threads; /* # of nchildren with CLONE_THREAD */
367 int nclone_waiting; /* clone threads in wait4 (TCB_SUSPENDED) */
369 /* (1st arg of wait4()) */
370 long baddr; /* `Breakpoint' address */
371 long inst[2]; /* Instructions on above */
372 int pfd; /* proc file descriptor */
374 #ifdef HAVE_MP_PROCFS
379 prstatus_t status; /* procfs status structure */
384 struct procfs_status status;
391 #define TCB_STARTUP 00001 /* We have just begun ptracing this process */
392 #define TCB_INUSE 00002 /* This table entry is in use */
393 #define TCB_INSYSCALL 00004 /* A system call is in progress */
394 #define TCB_ATTACHED 00010 /* Process is not our own child */
395 #define TCB_EXITING 00020 /* As far as we know, this process is exiting */
396 #define TCB_SUSPENDED 00040 /* Process can not be allowed to resume just now */
397 #define TCB_BPTSET 00100 /* "Breakpoint" set after fork(2) */
398 #define TCB_SIGTRAPPED 00200 /* Process wanted to block SIGTRAP */
399 #define TCB_FOLLOWFORK 00400 /* Process should have forks followed */
400 #define TCB_REPRINT 01000 /* We should reprint this syscall on exit */
402 /* x86 does not need TCB_WAITEXECVE.
403 * It can detect execve's SIGTRAP by looking at eax/rax.
404 * See "stray syscall exit: eax = " message in syscall_fixup().
406 # if defined(ALPHA) || defined(AVR32) || defined(SPARC) || defined(SPARC64) \
407 || defined(POWERPC) || defined(IA64) || defined(HPPA) \
408 || defined(SH) || defined(SH64) || defined(S390) || defined(S390X) \
409 || defined(ARM) || defined(MIPS) || defined(BFIN) || defined(TILE)
410 # define TCB_WAITEXECVE 02000 /* ignore SIGTRAP after exceve */
412 # define TCB_CLONE_THREAD 010000 /* CLONE_THREAD set in creating syscall */
413 # define TCB_GROUP_EXITING 020000 /* TCB_EXITING was exit_group, not _exit */
414 # include <sys/syscall.h>
415 # ifndef __NR_exit_group
416 # /* Hack: Most headers around are too old to have __NR_exit_group. */
418 # define __NR_exit_group 405
420 # define __NR_exit_group 252
421 # elif defined X86_64
422 # define __NR_exit_group 231
424 # define __NR_exit_group 1236
425 # elif defined POWERPC
426 # define __NR_exit_group 234
427 # elif defined S390 || defined S390X
428 # define __NR_exit_group 248
429 # elif defined SPARC || defined SPARC64
430 # define __NR_exit_group 188
432 # define __NR_exit_group 247
433 # endif /* ALPHA et al */
434 # endif /* !__NR_exit_group */
437 /* qualifier flags */
438 #define QUAL_TRACE 0001 /* this system call should be traced */
439 #define QUAL_ABBREV 0002 /* abbreviate the structures of this syscall */
440 #define QUAL_VERBOSE 0004 /* decode the structures of this syscall */
441 #define QUAL_RAW 0010 /* print all args in hex for this syscall */
442 #define QUAL_SIGNAL 0020 /* report events with this signal */
443 #define QUAL_FAULT 0040 /* report events with this fault */
444 #define QUAL_READ 0100 /* dump data read on this file descriptor */
445 #define QUAL_WRITE 0200 /* dump data written to this file descriptor */
447 #define entering(tcp) (!((tcp)->flags & TCB_INSYSCALL))
448 #define exiting(tcp) ((tcp)->flags & TCB_INSYSCALL)
449 #define syserror(tcp) ((tcp)->u_error != 0)
450 #define verbose(tcp) (qual_flags[(tcp)->scno] & QUAL_VERBOSE)
451 #define abbrev(tcp) (qual_flags[(tcp)->scno] & QUAL_ABBREV)
458 extern const struct xlat open_mode_flags[];
459 extern const struct xlat addrfams[];
460 extern const struct xlat struct_user_offsets[];
461 extern const struct xlat open_access_modes[];
463 /* Format of syscall return values */
464 #define RVAL_DECIMAL 000 /* decimal format */
465 #define RVAL_HEX 001 /* hex format */
466 #define RVAL_OCTAL 002 /* octal format */
467 #define RVAL_UDECIMAL 003 /* unsigned decimal format */
468 #define RVAL_LDECIMAL 004 /* long decimal format */
469 #define RVAL_LHEX 005 /* long hex format */
470 #define RVAL_LOCTAL 006 /* long octal format */
471 #define RVAL_LUDECIMAL 007 /* long unsigned decimal format */
472 #define RVAL_MASK 007 /* mask for these values */
474 #define RVAL_STR 010 /* Print `auxstr' field after return val */
475 #define RVAL_NONE 020 /* Print nothing */
478 #define offsetof(type, member) (((char *) &(((type *) NULL)->member)) - \
479 ((char *) (type *) NULL))
480 #endif /* !offsetof */
482 /* get offset of member within a user struct */
483 #define uoff(member) offsetof(struct user, member)
485 #define TRACE_FILE 001 /* Trace file-related syscalls. */
486 #define TRACE_IPC 002 /* Trace IPC-related syscalls. */
487 #define TRACE_NETWORK 004 /* Trace network-related syscalls. */
488 #define TRACE_PROCESS 010 /* Trace process-related syscalls. */
489 #define TRACE_SIGNAL 020 /* Trace signal-related syscalls. */
490 #define TRACE_DESC 040 /* Trace file descriptor-related syscalls. */
498 extern struct tcb **tcbtab;
499 extern int *qual_flags;
500 extern int debug, followfork;
501 extern unsigned int ptrace_setoptions;
502 extern int dtime, xflag, qflag;
503 extern cflag_t cflag;
505 extern unsigned int nprocs, tcbtabsize;
506 extern int max_strlen;
507 extern struct tcb *tcp_last;
509 enum bitness_t { BITNESS_CURRENT = 0, BITNESS_32 };
511 extern int set_personality(int personality);
512 extern const char *xlookup(const struct xlat *, int);
513 extern struct tcb *alloc_tcb(int, int);
514 extern struct tcb *pid2tcb(int);
515 extern void droptcb(struct tcb *);
516 extern void expand_tcbtab(void);
518 #define alloctcb(pid) alloc_tcb((pid), 1)
520 extern void set_sortby(const char *);
521 extern void set_overhead(int);
522 extern void qualify(const char *);
523 extern int get_scno(struct tcb *);
524 extern long known_scno(struct tcb *);
525 extern long do_ptrace(int request, struct tcb *tcp, void *addr, void *data);
526 extern int ptrace_restart(int request, struct tcb *tcp, int sig);
527 extern int force_result(struct tcb *, int, long);
528 extern int trace_syscall(struct tcb *);
529 extern int count_syscall(struct tcb *, struct timeval *);
530 extern void printxval(const struct xlat *, int, const char *);
531 extern int printargs(struct tcb *);
532 extern int addflags(const struct xlat *, int);
533 extern int printflags(const struct xlat *, int, const char *);
534 extern const char *sprintflags(const char *, const struct xlat *, int);
535 extern int umoven(struct tcb *, long, int, char *);
536 extern int umovestr(struct tcb *, long, int, char *);
537 extern int upeek(struct tcb *, long, long *);
538 extern void dumpiov(struct tcb *, int, long);
539 extern void dumpstr(struct tcb *, long, int);
540 extern void printstr(struct tcb *, long, int);
541 extern void printnum(struct tcb *, long, const char *);
542 extern void printnum_int(struct tcb *, long, const char *);
543 extern void printpath(struct tcb *, long);
544 extern void printpathn(struct tcb *, long, int);
545 extern void printtv_bitness(struct tcb *, long, enum bitness_t, int);
546 extern void sprinttv(struct tcb *, long, enum bitness_t, char *);
547 extern void print_timespec(struct tcb *, long);
548 extern void sprint_timespec(char *, struct tcb *, long);
549 #ifdef HAVE_SIGINFO_T
550 extern void printsiginfo(siginfo_t *, int);
552 extern void printsock(struct tcb *, long, int);
553 extern void print_sock_optmgmt(struct tcb *, long, int);
554 extern void printrusage(struct tcb *, long);
555 extern void printuid(const char *, unsigned long);
556 extern int clearbpt(struct tcb *);
557 extern int setbpt(struct tcb *);
558 extern int sigishandled(struct tcb *, int);
559 extern void printcall(struct tcb *);
560 extern const char *signame(int);
561 extern void print_sigset(struct tcb *, long, int);
562 extern void printsignal(int);
563 extern void printleader(struct tcb *);
564 extern void printtrailer(void);
565 extern void tabto(int);
566 extern void call_summary(FILE *);
567 extern void tprint_iov(struct tcb *, unsigned long, unsigned long);
568 extern void tprint_open_modes(mode_t);
569 extern const char *sprint_open_modes(mode_t);
570 extern int is_restart_error(struct tcb *);
572 extern int change_syscall(struct tcb *, int);
573 extern int internal_fork(struct tcb *);
574 extern int internal_exec(struct tcb *);
575 extern int internal_wait(struct tcb *, int);
576 extern int internal_exit(struct tcb *);
578 extern int handle_new_child(struct tcb *, int, int);
581 extern const struct ioctlent *ioctl_lookup(long);
582 extern const struct ioctlent *ioctl_next_match(const struct ioctlent *);
583 extern int ioctl_decode(struct tcb *, long, long);
584 extern int term_ioctl(struct tcb *, long, long);
585 extern int sock_ioctl(struct tcb *, long, long);
586 extern int proc_ioctl(struct tcb *, int, int);
587 extern int stream_ioctl(struct tcb *, int, int);
589 extern int rtc_ioctl(struct tcb *, long, long);
590 extern int scsi_ioctl(struct tcb *, long, long);
593 extern int tv_nz(struct timeval *);
594 extern int tv_cmp(struct timeval *, struct timeval *);
595 extern double tv_float(struct timeval *);
596 extern void tv_add(struct timeval *, struct timeval *, struct timeval *);
597 extern void tv_sub(struct timeval *, struct timeval *, struct timeval *);
598 extern void tv_mul(struct timeval *, struct timeval *, int);
599 extern void tv_div(struct timeval *, struct timeval *, int);
602 extern int fixvfork(struct tcb *);
604 #if !(defined(LINUX) && !defined(SPARC) && !defined(SPARC64) && !defined(IA64))
605 extern long getrval2(struct tcb *);
608 extern int proc_open(struct tcb *tcp, int attaching);
611 #define umove(pid, addr, objp) \
612 umoven((pid), (addr), sizeof *(objp), (char *) (objp))
614 #define printtv(tcp, addr) \
615 printtv_bitness((tcp), (addr), BITNESS_CURRENT, 0)
616 #define printtv_special(tcp, addr) \
617 printtv_bitness((tcp), (addr), BITNESS_CURRENT, 1)
620 extern void tprintf(const char *fmt, ...)
621 __attribute__ ((format (printf, 1, 2)));
623 extern void tprintf(const char *fmt, ...);
626 #ifndef HAVE_STRERROR
627 const char *strerror(int);
629 #ifndef HAVE_STRSIGNAL
630 const char *strsignal(int);
633 extern int current_personality;
634 extern const int personality_wordsize[];
640 const char *sys_name;
641 long native_scno; /* Match against SYS_* constants. */
644 extern const struct sysent *sysent;
645 extern int nsyscalls;
647 extern const char *const *errnoent;
656 extern const struct ioctlent *ioctlent;
657 extern int nioctlents;
659 extern const char *const *signalent;
662 extern const struct ioctlent ioctlent0[];
663 extern const int nioctlents0;
664 extern const char *const signalent0[];
665 extern const int nsignals0;
667 #if SUPPORTED_PERSONALITIES >= 2
668 extern const struct ioctlent ioctlent1[];
669 extern const int nioctlents1;
670 extern const char *const signalent1[];
671 extern const int nsignals1;
672 #endif /* SUPPORTED_PERSONALITIES >= 2 */
674 #if SUPPORTED_PERSONALITIES >= 3
675 extern const struct ioctlent ioctlent2[];
676 extern const int nioctlents2;
677 extern const char *const signalent2[];
678 extern const int nsignals2;
679 #endif /* SUPPORTED_PERSONALITIES >= 3 */
683 /* _l refers to the lower numbered u_arg,
684 * _h refers to the higher numbered u_arg
687 #if HAVE_LITTLE_ENDIAN_LONG_LONG
688 #define LONG_LONG(_l,_h) \
689 ((long long)((unsigned long long)(unsigned)(_l) | ((unsigned long long)(_h)<<32)))
691 #define LONG_LONG(_l,_h) \
692 ((long long)((unsigned long long)(unsigned)(_h) | ((unsigned long long)(_l)<<32)))
695 extern int printllval(struct tcb *, const char *, int);
702 extern int not_failing_only;