/* * Copyright (c) 1991, 1992 Paul Kranenburg * Copyright (c) 1993 Branko Lankester * Copyright (c) 1993, 1994, 1995, 1996 Rick Sladkey * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. The name of the author may not be used to endorse or promote products * derived from this software without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. * * $Id$ */ #ifdef HAVE_CONFIG_H #include "config.h" #endif #ifdef MIPS #include #endif #ifdef linux #include #endif #ifdef _LARGEFILE64_SOURCE /* This is the macro everything checks before using foo64 names. */ # ifndef _LFS64_LARGEFILE # define _LFS64_LARGEFILE 1 # endif #endif /* configuration section */ #ifndef MAX_QUALS #if defined(LINUX) && defined(MIPS) #define MAX_QUALS 7000 /* maximum number of syscalls, signals, etc. */ #else #define MAX_QUALS 2048 /* maximum number of syscalls, signals, etc. */ #endif #endif #ifndef DEFAULT_STRLEN #define DEFAULT_STRLEN 32 /* default maximum # of bytes printed in `printstr', change with `-s' switch */ #endif #ifndef DEFAULT_ACOLUMN #define DEFAULT_ACOLUMN 40 /* default alignment column for results */ #endif #ifndef MAX_ARGS #define MAX_ARGS 32 /* maximum number of args to a syscall */ #endif #ifndef DEFAULT_SORTBY #define DEFAULT_SORTBY "time" /* default sorting method for call profiling */ #endif #include #include #include #include #include #include #include #include #include #ifdef HAVE_STDBOOL_H #include #endif #ifdef STDC_HEADERS #include #endif /* STDC_HEADERS */ #ifdef HAVE_SIGINFO_T #include #endif #if defined(LINUX) # if defined(SPARC) || defined(SPARC64) # define LINUXSPARC # endif # if defined(ALPHA) # define LINUX_64BIT # endif # if defined(X86_64) # define LINUX_X86_64 # endif # if defined(MIPS) && _MIPS_SIM == _MIPS_SIM_ABI32 # define LINUX_MIPSO32 # endif # if defined(MIPS) && _MIPS_SIM == _MIPS_SIM_NABI32 # define LINUX_MIPSN32 # define LINUX_MIPS64 # endif # if defined(MIPS) && _MIPS_SIM == _MIPS_SIM_ABI64 # define LINUX_MIPSN64 # define LINUX_MIPS64 # endif #endif #if defined(SVR4) || defined(FREEBSD) #define USE_PROCFS #else #undef USE_PROCFS #endif #ifdef FREEBSD #ifndef I386 #error "FreeBSD support is only for i386 arch right now." #endif #include #include #include #endif #ifdef USE_PROCFS #include #ifdef HAVE_MP_PROCFS #include #endif #ifdef FREEBSD #include #endif /* FREEBSD */ #else /* !USE_PROCFS */ #if (defined(LINUXSPARC) || defined (LINUX_X86_64)) && defined(__GLIBC__) #include #else /* Work around awkward prototype in ptrace.h. */ #define ptrace xptrace #include #undef ptrace #ifdef POWERPC #define __KERNEL__ #include #undef __KERNEL__ #endif #ifdef __STDC__ #ifdef LINUX extern long ptrace(int, int, char *, long); #else /* !LINUX */ extern int ptrace(int, int, char *, int, ...); #endif /* !LINUX */ #else /* !__STDC__ */ extern int ptrace(); #endif /* !__STDC__ */ #endif /* !LINUXSPARC */ #endif /* !SVR4 */ #ifdef LINUX #if !defined(__GLIBC__) #define PTRACE_PEEKUSER PTRACE_PEEKUSR #define PTRACE_POKEUSER PTRACE_POKEUSR #endif #ifdef ALPHA # define REG_R0 0 # define REG_A0 16 # define REG_A3 19 # define REG_FP 30 # define REG_PC 64 #endif /* ALPHA */ #ifdef MIPS # define REG_V0 2 # define REG_A0 4 # define REG_A3 7 # define REG_SP 29 # define REG_EPC 64 #endif /* MIPS */ #ifdef HPPA # define PT_GR20 (20*4) # define PT_GR26 (26*4) # define PT_GR28 (28*4) # define PT_IAOQ0 (106*4) # define PT_IAOQ1 (107*4) #endif /* HPPA */ #ifdef SH64 /* SH64 Linux - this code assumes the following kernel API for system calls: PC Offset 0 System Call Offset 16 (actually, (syscall no.) | (0x1n << 16), where n = no. of parameters. Other regs Offset 24+ On entry: R2-7 = parameters 1-6 (as many as necessary) On return: R9 = result. */ /* Offset for peeks of registers */ # define REG_OFFSET (24) # define REG_GENERAL(x) (8*(x)+REG_OFFSET) # define REG_PC (0*8) # define REG_SYSCALL (2*8) #endif /* SH64 */ #endif /* LINUX */ #define SUPPORTED_PERSONALITIES 1 #define DEFAULT_PERSONALITY 0 #ifdef LINUXSPARC #define PERSONALITY0_WORDSIZE 4 #define PERSONALITY1_WORDSIZE 4 #undef SUPPORTED_PERSONALITIES #if defined(SPARC64) #include #define SUPPORTED_PERSONALITIES 3 #define PERSONALITY2_WORDSIZE 8 #else #include #define SUPPORTED_PERSONALITIES 2 #endif /* SPARC64 */ #endif /* LINUXSPARC */ #ifdef X86_64 #undef SUPPORTED_PERSONALITIES #define SUPPORTED_PERSONALITIES 2 #define PERSONALITY0_WORDSIZE 8 #define PERSONALITY1_WORDSIZE 4 #endif #ifdef ARM #undef SUPPORTED_PERSONALITIES #define SUPPORTED_PERSONALITIES 2 #define PERSONALITY0_WORDSIZE 4 #define PERSONALITY1_WORDSIZE 4 #endif #ifdef SVR4 #ifdef HAVE_MP_PROCFS extern int mp_ioctl (int f, int c, void *a, int s); #define IOCTL(f,c,a) mp_ioctl (f, c, a, sizeof *a) #define IOCTL_STATUS(t) \ pread (t->pfd_stat, &t->status, sizeof t->status, 0) #define IOCTL_WSTOP(t) \ (IOCTL (t->pfd, PCWSTOP, (char *)NULL) < 0 ? -1 : \ IOCTL_STATUS (t)) #define PR_WHY pr_lwp.pr_why #define PR_WHAT pr_lwp.pr_what #define PR_REG pr_lwp.pr_context.uc_mcontext.gregs #define PR_FLAGS pr_lwp.pr_flags #define PR_SYSCALL pr_lwp.pr_syscall #define PR_INFO pr_lwp.pr_info #define PIOCSTIP PCSTOP #define PIOCSET PCSET #define PIOCRESET PCRESET #define PIOCSTRACE PCSTRACE #define PIOCSFAULT PCSFAULT #define PIOCWSTOP PCWSTOP #define PIOCSTOP PCSTOP #define PIOCSENTRY PCSENTRY #define PIOCSEXIT PCSEXIT #define PIOCRUN PCRUN #else #define IOCTL ioctl #define IOCTL_STATUS(t) ioctl (t->pfd, PIOCSTATUS, &t->status) #define IOCTL_WSTOP(t) ioctl (t->pfd, PIOCWSTOP, &t->status) #define PR_WHY pr_why #define PR_WHAT pr_what #define PR_REG pr_reg #define PR_FLAGS pr_flags #define PR_SYSCALL pr_syscall #define PR_INFO pr_info #endif #endif #ifdef FREEBSD #define IOCTL ioctl #define IOCTL_STATUS(t) ioctl (t->pfd, PIOCSTATUS, &t->status) #define IOCTL_WSTOP(t) ioctl (t->pfd, PIOCWAIT, &t->status) #define PIOCRUN PIOCCONT #define PIOCWSTOP PIOCWAIT #define PR_WHY why #define PR_WHAT val #define PR_FLAGS state /* from /usr/src/sys/miscfs/procfs/procfs_vnops.c, status.state = 0 for running, 1 for stopped */ #define PR_ASLEEP 1 #define PR_SYSENTRY S_SCE #define PR_SYSEXIT S_SCX #define PR_SIGNALLED S_SIG #define PR_FAULTED S_CORE #endif /* Trace Control Block */ struct tcb { short flags; /* See below for TCB_ values */ int pid; /* Process Id of this entry */ long scno; /* System call number */ int u_nargs; /* System call arguments */ long u_arg[MAX_ARGS]; /* System call arguments */ #if defined (LINUX_MIPSN32) long long ext_arg[MAX_ARGS]; /* System call arguments */ #endif int u_error; /* Error code */ long u_rval; /* (first) return value */ #ifdef HAVE_LONG_LONG long long u_lrval; /* long long return value */ #endif FILE *outf; /* Output file for this process */ const char *auxstr; /* Auxiliary info from syscall (see RVAL_STR) */ struct timeval stime; /* System time usage as of last process wait */ struct timeval dtime; /* Delta for system time usage */ struct timeval etime; /* Syscall entry time */ /* Support for tracing forked processes */ struct tcb *parent; /* Parent of this process */ int nchildren; /* # of traced children */ int waitpid; /* pid(s) this process is waiting for */ int nzombies; /* # of formerly traced children now dead */ #ifdef LINUX int nclone_threads; /* # of nchildren with CLONE_THREAD */ int nclone_detached; /* # of nchildren with CLONE_DETACHED */ int nclone_waiting; /* clone threads in wait4 (TCB_SUSPENDED) */ #endif /* (1st arg of wait4()) */ long baddr; /* `Breakpoint' address */ long inst[2]; /* Instructions on above */ int pfd; /* proc file descriptor */ #ifdef SVR4 #ifdef HAVE_MP_PROCFS int pfd_stat; int pfd_as; pstatus_t status; #else prstatus_t status; /* procfs status structure */ #endif #endif #ifdef FREEBSD struct procfs_status status; int pfd_reg; int pfd_status; #endif }; /* TCB flags */ #define TCB_STARTUP 00001 /* We have just begun ptracing this process */ #define TCB_INUSE 00002 /* This table entry is in use */ #define TCB_INSYSCALL 00004 /* A system call is in progress */ #define TCB_ATTACHED 00010 /* Process is not our own child */ #define TCB_EXITING 00020 /* As far as we know, this process is exiting */ #define TCB_SUSPENDED 00040 /* Process has done a wait(4), that can not be allowed to complete just now */ #define TCB_BPTSET 00100 /* "Breakpoint" set after fork(2) */ #define TCB_SIGTRAPPED 00200 /* Process wanted to block SIGTRAP */ #define TCB_FOLLOWFORK 00400 /* Process should have forks followed */ #define TCB_REPRINT 01000 /* We should reprint this syscall on exit */ #ifdef LINUX # if defined(ALPHA) || defined(SPARC) || defined(SPARC64) || defined(POWERPC) || defined(IA64) || defined(HPPA) || defined(SH) || defined(SH64) || defined(S390) || defined(S390X) || defined(ARM) || defined(MIPS) # define TCB_WAITEXECVE 02000 /* ignore SIGTRAP after exceve */ # endif # define TCB_CLONE_DETACHED 04000 /* CLONE_DETACHED set in creating syscall */ # define TCB_CLONE_THREAD 010000 /* CLONE_THREAD set in creating syscall */ # define TCB_GROUP_EXITING 020000 /* TCB_EXITING was exit_group, not _exit */ # include # ifndef __NR_exit_group # /* Hack: Most headers around are too old to have __NR_exit_group. */ # ifdef ALPHA # define __NR_exit_group 405 # elif defined I386 # define __NR_exit_group 252 # elif defined X86_64 # define __NR_exit_group 231 # elif defined IA64 # define __NR_exit_group 1236 # elif defined POWERPC # define __NR_exit_group 234 # elif defined S390 || defined S390X # define __NR_exit_group 248 # elif defined SPARC || defined SPARC64 # define __NR_exit_group 188 # elif defined M68K # define __NR_exit_group 247 # endif /* ALPHA et al */ # endif /* !__NR_exit_group */ #endif /* LINUX */ /* qualifier flags */ #define QUAL_TRACE 0001 /* this system call should be traced */ #define QUAL_ABBREV 0002 /* abbreviate the structures of this syscall */ #define QUAL_VERBOSE 0004 /* decode the structures of this syscall */ #define QUAL_RAW 0010 /* print all args in hex for this syscall */ #define QUAL_SIGNAL 0020 /* report events with this signal */ #define QUAL_FAULT 0040 /* report events with this fault */ #define QUAL_READ 0100 /* dump data read on this file descriptor */ #define QUAL_WRITE 0200 /* dump data written to this file descriptor */ #define entering(tcp) (!((tcp)->flags & TCB_INSYSCALL)) #define exiting(tcp) ((tcp)->flags & TCB_INSYSCALL) #define syserror(tcp) ((tcp)->u_error != 0) #define verbose(tcp) (qual_flags[(tcp)->scno] & QUAL_VERBOSE) #define abbrev(tcp) (qual_flags[(tcp)->scno] & QUAL_ABBREV) struct xlat { int val; char *str; }; /* Format of syscall return values */ #define RVAL_DECIMAL 000 /* decimal format */ #define RVAL_HEX 001 /* hex format */ #define RVAL_OCTAL 002 /* octal format */ #define RVAL_UDECIMAL 003 /* unsigned decimal format */ #define RVAL_LDECIMAL 004 /* long decimal format */ #define RVAL_LHEX 005 /* long hex format */ #define RVAL_LOCTAL 006 /* long octal format */ #define RVAL_LUDECIMAL 007 /* long unsigned decimal format */ #define RVAL_MASK 007 /* mask for these values */ #define RVAL_STR 010 /* Print `auxstr' field after return val */ #define RVAL_NONE 020 /* Print nothing */ #ifndef offsetof #define offsetof(type, member) (((char *) &(((type *) NULL)->member)) - \ ((char *) (type *) NULL)) #endif /* !offsetof */ /* get offset of member within a user struct */ #define uoff(member) offsetof(struct user, member) #define TRACE_FILE 001 /* Trace file-related syscalls. */ #define TRACE_IPC 002 /* Trace IPC-related syscalls. */ #define TRACE_NETWORK 004 /* Trace network-related syscalls. */ #define TRACE_PROCESS 010 /* Trace process-related syscalls. */ #define TRACE_SIGNAL 020 /* Trace signal-related syscalls. */ #define TRACE_DESC 040 /* Trace file descriptor-related syscalls. */ extern struct tcb **tcbtab; extern int *qual_flags; extern int debug, followfork; extern int dtime, cflag, xflag, qflag; extern int acolumn; extern unsigned int nprocs, tcbtabsize; extern int max_strlen; extern struct tcb *tcp_last; #ifdef __STDC__ #define P(args) args #else #define P(args) () #endif enum bitness_t { BITNESS_CURRENT = 0, BITNESS_32 }; extern int set_personality P((int personality)); extern const char *xlookup P((const struct xlat *, int)); extern struct tcb *alloc_tcb P((int, int)); extern struct tcb *pid2tcb P((int)); extern void droptcb P((struct tcb *)); extern int expand_tcbtab P((void)); #define alloctcb(pid) alloc_tcb((pid), 1) extern void set_sortby P((char *)); extern void set_overhead P((int)); extern void qualify P((char *)); extern int get_scno P((struct tcb *)); extern long known_scno P((struct tcb *)); extern int trace_syscall P((struct tcb *)); extern int count_syscall P((struct tcb *, struct timeval *)); extern void printxval P((const struct xlat *, int, const char *)); extern int printargs P((struct tcb *)); extern int addflags P((const struct xlat *, int)); extern int printflags P((const struct xlat *, int, const char *)); extern const char *sprintflags P((const char *, const struct xlat *, int)); extern int umoven P((struct tcb *, long, int, char *)); extern int umovestr P((struct tcb *, long, int, char *)); extern int upeek P((int, long, long *)); extern void dumpiov P((struct tcb *, int, long)); extern void dumpstr P((struct tcb *, long, int)); extern void printstr P((struct tcb *, long, int)); extern void printnum P((struct tcb *, long, char *)); extern void printnum_int P((struct tcb *, long, char *)); extern void printpath P((struct tcb *, long)); extern void printpathn P((struct tcb *, long, int)); extern void printtv_bitness P((struct tcb *, long, enum bitness_t, int)); extern void sprinttv P((struct tcb *, long, enum bitness_t, char *)); extern void print_timespec P((struct tcb *, long)); extern void sprint_timespec P((char *, struct tcb *, long)); #ifdef HAVE_SIGINFO_T extern void printsiginfo P((siginfo_t *, int)); #endif extern void printsock P((struct tcb *, long, int)); extern void print_sock_optmgmt P((struct tcb *, long, int)); extern void printrusage P((struct tcb *, long)); extern void printuid P((const char *, unsigned long)); extern int clearbpt P((struct tcb *)); extern int setbpt P((struct tcb *)); extern int sigishandled P((struct tcb *, int)); extern void printcall P((struct tcb *)); extern const char *signame P((int)); extern void print_sigset P((struct tcb *, long, int)); extern void printsignal P((int)); extern void printleader P((struct tcb *)); extern void printtrailer P((struct tcb *)); extern void tabto P((int)); extern void call_summary P((FILE *)); extern void tprint_iov P((struct tcb *, unsigned long, unsigned long)); extern void tprint_open_modes P((struct tcb *, mode_t)); #ifdef LINUX extern int internal_clone P((struct tcb *)); #endif extern int internal_fork P((struct tcb *)); extern int internal_exec P((struct tcb *)); extern int internal_wait P((struct tcb *, int)); extern int internal_exit P((struct tcb *)); extern const struct ioctlent *ioctl_lookup P((long)); extern const struct ioctlent *ioctl_next_match P((const struct ioctlent *)); extern int ioctl_decode P((struct tcb *, long, long)); extern int term_ioctl P((struct tcb *, long, long)); extern int sock_ioctl P((struct tcb *, long, long)); extern int proc_ioctl P((struct tcb *, int, int)); extern int stream_ioctl P((struct tcb *, int, int)); #ifdef LINUX extern int rtc_ioctl P((struct tcb *, long, long)); extern int scsi_ioctl P((struct tcb *, long, long)); #endif extern void tv_tv P((struct timeval *, int, int)); extern int tv_nz P((struct timeval *)); extern int tv_cmp P((struct timeval *, struct timeval *)); extern double tv_float P((struct timeval *)); extern void tv_add P((struct timeval *, struct timeval *, struct timeval *)); extern void tv_sub P((struct timeval *, struct timeval *, struct timeval *)); extern void tv_mul P((struct timeval *, struct timeval *, int)); extern void tv_div P((struct timeval *, struct timeval *, int)); #ifdef SUNOS4 extern int fixvfork P((struct tcb *)); #endif #if !(defined(LINUX) && !defined(SPARC) && !defined(SPARC64) && !defined(IA64)) extern long getrval2 P((struct tcb *)); #endif #ifdef USE_PROCFS extern int proc_open P((struct tcb *tcp, int attaching)); #endif #define umove(pid, addr, objp) \ umoven((pid), (addr), sizeof *(objp), (char *) (objp)) #define printtv(tcp, addr) \ printtv_bitness((tcp), (addr), BITNESS_CURRENT, 0) #define printtv_special(tcp, addr) \ printtv_bitness((tcp), (addr), BITNESS_CURRENT, 1) #ifdef __STDC__ #ifdef __GNUC__ extern void tprintf(const char *fmt, ...) __attribute__ ((format (printf, 1, 2))); #else extern void tprintf(const char *fmt, ...); #endif #else extern void tprintf(); #endif #ifndef HAVE_STRERROR const char *strerror P((int)); #endif #ifndef HAVE_STRSIGNAL const char *strsignal P((int)); #endif extern int current_personality; extern const int personality_wordsize[]; struct sysent { int nargs; int sys_flags; int (*sys_func)(); const char *sys_name; long native_scno; /* Match against SYS_* constants. */ }; extern const struct sysent *sysent; extern int nsyscalls; extern const char *const *errnoent; extern int nerrnos; struct ioctlent { const char *doth; const char *symbol; unsigned long code; }; extern const struct ioctlent *ioctlent; extern int nioctlents; extern const char *const *signalent; extern int nsignals; extern const struct ioctlent ioctlent0[]; extern const int nioctlents0; extern const char *const signalent0[]; extern const int nsignals0; #if SUPPORTED_PERSONALITIES >= 2 extern const struct ioctlent ioctlent1[]; extern const int nioctlents1; extern const char *const signalent1[]; extern const int nsignals1; #endif /* SUPPORTED_PERSONALITIES >= 2 */ #if SUPPORTED_PERSONALITIES >= 3 extern const struct ioctlent ioctlent2[]; extern const int nioctlents2; extern const char *const signalent2[]; extern const int nsignals2; #endif /* SUPPORTED_PERSONALITIES >= 3 */ #if defined(FREEBSD) || (defined(LINUX) \ && defined(POWERPC) && !defined(__powerpc64__)) \ || defined (LINUX_MIPSO32) /* ARRGH! off_t args are aligned on 64 bit boundaries! */ #define ALIGN64(tcp,arg) \ do { \ if (arg % 2) \ memmove (&tcp->u_arg[arg], &tcp->u_arg[arg + 1], \ (tcp->u_nargs - arg - 1) * sizeof tcp->u_arg[0]); \ } while (0) #else #define ALIGN64(tcp,arg) do { } while (0) #endif #if HAVE_LONG_LONG /* _l refers to the lower numbered u_arg, * _h refers to the higher numbered u_arg */ #if HAVE_LITTLE_ENDIAN_LONG_LONG #define LONG_LONG(_l,_h) \ ((long long)((unsigned long long)(unsigned)(_l) | ((unsigned long long)(_h)<<32))) #else #define LONG_LONG(_l,_h) \ ((long long)((unsigned long long)(unsigned)(_h) | ((unsigned long long)(_l)<<32))) #endif #endif #ifdef IA64 extern long ia32; #endif extern int not_failing_only;