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 */
67 #define MAX_ARGS 32 /* maximum number of args to a syscall */
69 #ifndef DEFAULT_SORTBY
70 #define DEFAULT_SORTBY "time" /* default sorting method for call profiling */
73 #include <sys/types.h>
89 #endif /* STDC_HEADERS */
96 # if defined(SPARC) || defined(SPARC64)
100 # define LINUX_X86_64
102 # if defined(MIPS) && _MIPS_SIM == _MIPS_SIM_ABI32
103 # define LINUX_MIPSO32
105 # if defined(MIPS) && _MIPS_SIM == _MIPS_SIM_NABI32
106 # define LINUX_MIPSN32
107 # define LINUX_MIPS64
109 # if defined(MIPS) && _MIPS_SIM == _MIPS_SIM_ABI64
110 # define LINUX_MIPSN64
111 # define LINUX_MIPS64
118 #if defined(SVR4) || defined(FREEBSD)
126 #error "FreeBSD support is only for i386 arch right now."
128 #include <machine/psl.h>
129 #include <machine/reg.h>
130 #include <sys/syscall.h>
134 #include <sys/procfs.h>
135 #ifdef HAVE_MP_PROCFS
139 #include <sys/pioctl.h>
141 #else /* !USE_PROCFS */
142 #if (defined(LINUXSPARC) || defined(LINUX_X86_64) || defined(LINUX_ARM)) && defined(__GLIBC__)
143 #include <sys/ptrace.h>
145 /* Work around awkward prototype in ptrace.h. */
146 #define ptrace xptrace
147 #include <sys/ptrace.h>
151 #include <asm/ptrace.h>
156 extern long ptrace(int, int, char *, long);
158 extern int ptrace(int, int, char *, int, ...);
160 #else /* !__STDC__ */
162 #endif /* !__STDC__ */
163 #endif /* !LINUXSPARC */
167 #if !defined(__GLIBC__)
168 #define PTRACE_PEEKUSER PTRACE_PEEKUSR
169 #define PTRACE_POKEUSER PTRACE_POKEUSR
186 # define PT_GR20 (20*4)
187 # define PT_GR26 (26*4)
188 # define PT_GR28 (28*4)
189 # define PT_IAOQ0 (106*4)
190 # define PT_IAOQ1 (107*4)
193 /* SH64 Linux - this code assumes the following kernel API for system calls:
195 System Call Offset 16 (actually, (syscall no.) | (0x1n << 16),
196 where n = no. of parameters.
197 Other regs Offset 24+
199 On entry: R2-7 = parameters 1-6 (as many as necessary)
200 On return: R9 = result. */
202 /* Offset for peeks of registers */
203 # define REG_OFFSET (24)
204 # define REG_GENERAL(x) (8*(x)+REG_OFFSET)
205 # define REG_PC (0*8)
206 # define REG_SYSCALL (2*8)
210 #define SUPPORTED_PERSONALITIES 1
211 #define DEFAULT_PERSONALITY 0
214 #define PERSONALITY0_WORDSIZE 4
215 #define PERSONALITY1_WORDSIZE 4
216 #undef SUPPORTED_PERSONALITIES
218 #include <asm/psrcompat.h>
219 #define SUPPORTED_PERSONALITIES 3
220 #define PERSONALITY2_WORDSIZE 8
223 #define SUPPORTED_PERSONALITIES 2
225 #endif /* LINUXSPARC */
228 #undef SUPPORTED_PERSONALITIES
229 #define SUPPORTED_PERSONALITIES 2
230 #define PERSONALITY0_WORDSIZE 8
231 #define PERSONALITY1_WORDSIZE 4
235 #undef SUPPORTED_PERSONALITIES
236 #define SUPPORTED_PERSONALITIES 2
237 #define PERSONALITY0_WORDSIZE 4
238 #define PERSONALITY1_WORDSIZE 4
242 #ifdef HAVE_MP_PROCFS
243 extern int mp_ioctl (int f, int c, void *a, int s);
244 #define IOCTL(f,c,a) mp_ioctl (f, c, a, sizeof *a)
245 #define IOCTL_STATUS(t) \
246 pread (t->pfd_stat, &t->status, sizeof t->status, 0)
247 #define IOCTL_WSTOP(t) \
248 (IOCTL (t->pfd, PCWSTOP, (char *)NULL) < 0 ? -1 : \
250 #define PR_WHY pr_lwp.pr_why
251 #define PR_WHAT pr_lwp.pr_what
252 #define PR_REG pr_lwp.pr_context.uc_mcontext.gregs
253 #define PR_FLAGS pr_lwp.pr_flags
254 #define PR_SYSCALL pr_lwp.pr_syscall
255 #define PR_INFO pr_lwp.pr_info
256 #define PIOCSTIP PCSTOP
257 #define PIOCSET PCSET
258 #define PIOCRESET PCRESET
259 #define PIOCSTRACE PCSTRACE
260 #define PIOCSFAULT PCSFAULT
261 #define PIOCWSTOP PCWSTOP
262 #define PIOCSTOP PCSTOP
263 #define PIOCSENTRY PCSENTRY
264 #define PIOCSEXIT PCSEXIT
265 #define PIOCRUN PCRUN
268 #define IOCTL_STATUS(t) ioctl (t->pfd, PIOCSTATUS, &t->status)
269 #define IOCTL_WSTOP(t) ioctl (t->pfd, PIOCWSTOP, &t->status)
270 #define PR_WHY pr_why
271 #define PR_WHAT pr_what
272 #define PR_REG pr_reg
273 #define PR_FLAGS pr_flags
274 #define PR_SYSCALL pr_syscall
275 #define PR_INFO pr_info
280 #define IOCTL_STATUS(t) ioctl (t->pfd, PIOCSTATUS, &t->status)
281 #define IOCTL_WSTOP(t) ioctl (t->pfd, PIOCWAIT, &t->status)
282 #define PIOCRUN PIOCCONT
283 #define PIOCWSTOP PIOCWAIT
286 #define PR_FLAGS state
287 /* from /usr/src/sys/miscfs/procfs/procfs_vnops.c,
288 status.state = 0 for running, 1 for stopped */
290 #define PR_SYSENTRY S_SCE
291 #define PR_SYSEXIT S_SCX
292 #define PR_SIGNALLED S_SIG
293 #define PR_FAULTED S_CORE
296 /* Trace Control Block */
298 int flags; /* See below for TCB_ values */
299 int pid; /* Process Id of this entry */
300 int wait_status; /* Status from last wait() */
301 struct tcb *next_need_service;
302 /* Linked list of tracees found by wait()s */
303 long scno; /* System call number */
304 int u_nargs; /* System call arguments */
305 long u_arg[MAX_ARGS]; /* System call arguments */
306 #if defined (LINUX_MIPSN32)
307 long long ext_arg[MAX_ARGS]; /* System call arguments */
309 int u_error; /* Error code */
310 long u_rval; /* (first) return value */
311 #ifdef HAVE_LONG_LONG
312 long long u_lrval; /* long long return value */
314 FILE *outf; /* Output file for this process */
315 const char *auxstr; /* Auxiliary info from syscall (see RVAL_STR) */
316 struct timeval stime; /* System time usage as of last process wait */
317 struct timeval dtime; /* Delta for system time usage */
318 struct timeval etime; /* Syscall entry time */
319 /* Support for tracing forked processes */
320 struct tcb *parent; /* Parent of this process */
321 int nchildren; /* # of traced children */
322 int waitpid; /* pid(s) this process is waiting for */
323 int nzombies; /* # of formerly traced children now dead */
325 int nclone_threads; /* # of nchildren with CLONE_THREAD */
326 int nclone_detached; /* # of nchildren with CLONE_DETACHED */
327 int nclone_waiting; /* clone threads in wait4 (TCB_SUSPENDED) */
328 /* (1st arg of wait4()) */
330 long baddr; /* `Breakpoint' address */
331 long inst[2]; /* Instructions on above */
332 int pfd; /* proc file descriptor */
334 #ifdef HAVE_MP_PROCFS
339 prstatus_t status; /* procfs status structure */
344 struct procfs_status status;
351 #define TCB_STARTUP 00001 /* We have just begun ptracing this process */
352 #define TCB_INUSE 00002 /* This table entry is in use */
353 #define TCB_INSYSCALL 00004 /* A system call is in progress */
354 #define TCB_ATTACHED 00010 /* Process is not our own child */
355 #define TCB_EXITING 00020 /* As far as we know, this process is exiting */
356 #define TCB_SUSPENDED 00040 /* Process has done a wait(4), that can
357 not be allowed to complete just now */
358 #define TCB_BPTSET 00100 /* "Breakpoint" set after fork(2) */
359 #define TCB_SIGTRAPPED 00200 /* Process wanted to block SIGTRAP */
360 #define TCB_FOLLOWFORK 00400 /* Process should have forks followed */
361 #define TCB_REPRINT 01000 /* We should reprint this syscall on exit */
363 /* TCB_WAITEXECVE bit means "ignore next SIGTRAP, it's execve exit stop".
364 * it is not reliable if traced program masks SIGTRAP.
366 * x86 does not need TCB_WAITEXECVE.
367 * It can detect execve's SIGTRAP by looking at eax/rax.
368 * See "stray syscall exit: eax = " message in syscall_fixup().
370 * Note that on newer kernels, we use ptrace options and therefore
371 * can filter out execve stops reliably on any architecture,
372 * without using TCB_WAITEXECVE flag.
373 * I guess we can remove it from the source somewhere around year 2010 :)
375 # 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) || defined(BFIN)
376 # define TCB_WAITEXECVE 02000 /* ignore SIGTRAP after exceve */
378 # define TCB_CLONE_DETACHED 04000 /* CLONE_DETACHED set in creating syscall */
379 # define TCB_CLONE_THREAD 010000 /* CLONE_THREAD set in creating syscall */
380 # define TCB_GROUP_EXITING 020000 /* TCB_EXITING was exit_group, not _exit */
381 # include <sys/syscall.h>
382 # ifndef __NR_exit_group
383 # /* Hack: Most headers around are too old to have __NR_exit_group. */
385 # define __NR_exit_group 405
387 # define __NR_exit_group 252
388 # elif defined X86_64
389 # define __NR_exit_group 231
391 # define __NR_exit_group 1236
392 # elif defined POWERPC
393 # define __NR_exit_group 234
394 # elif defined S390 || defined S390X
395 # define __NR_exit_group 248
396 # elif defined SPARC || defined SPARC64
397 # define __NR_exit_group 188
399 # define __NR_exit_group 247
400 # endif /* ALPHA et al */
401 # endif /* !__NR_exit_group */
404 /* qualifier flags */
405 #define QUAL_TRACE 0001 /* this system call should be traced */
406 #define QUAL_ABBREV 0002 /* abbreviate the structures of this syscall */
407 #define QUAL_VERBOSE 0004 /* decode the structures of this syscall */
408 #define QUAL_RAW 0010 /* print all args in hex for this syscall */
409 #define QUAL_SIGNAL 0020 /* report events with this signal */
410 #define QUAL_FAULT 0040 /* report events with this fault */
411 #define QUAL_READ 0100 /* dump data read on this file descriptor */
412 #define QUAL_WRITE 0200 /* dump data written to this file descriptor */
414 #define entering(tcp) (!((tcp)->flags & TCB_INSYSCALL))
415 #define exiting(tcp) ((tcp)->flags & TCB_INSYSCALL)
416 #define syserror(tcp) ((tcp)->u_error != 0)
417 #define verbose(tcp) (qual_flags[(tcp)->scno] & QUAL_VERBOSE)
418 #define abbrev(tcp) (qual_flags[(tcp)->scno] & QUAL_ABBREV)
425 extern const struct xlat open_mode_flags[];
426 extern const struct xlat addrfams[];
427 extern const struct xlat struct_user_offsets[];
428 extern const struct xlat open_access_modes[];
430 /* Format of syscall return values */
431 #define RVAL_DECIMAL 000 /* decimal format */
432 #define RVAL_HEX 001 /* hex format */
433 #define RVAL_OCTAL 002 /* octal format */
434 #define RVAL_UDECIMAL 003 /* unsigned decimal format */
435 #define RVAL_LDECIMAL 004 /* long decimal format */
436 #define RVAL_LHEX 005 /* long hex format */
437 #define RVAL_LOCTAL 006 /* long octal format */
438 #define RVAL_LUDECIMAL 007 /* long unsigned decimal format */
439 #define RVAL_MASK 007 /* mask for these values */
441 #define RVAL_STR 010 /* Print `auxstr' field after return val */
442 #define RVAL_NONE 020 /* Print nothing */
445 #define offsetof(type, member) (((char *) &(((type *) NULL)->member)) - \
446 ((char *) (type *) NULL))
447 #endif /* !offsetof */
449 /* get offset of member within a user struct */
450 #define uoff(member) offsetof(struct user, member)
452 #define TRACE_FILE 001 /* Trace file-related syscalls. */
453 #define TRACE_IPC 002 /* Trace IPC-related syscalls. */
454 #define TRACE_NETWORK 004 /* Trace network-related syscalls. */
455 #define TRACE_PROCESS 010 /* Trace process-related syscalls. */
456 #define TRACE_SIGNAL 020 /* Trace signal-related syscalls. */
457 #define TRACE_DESC 040 /* Trace file descriptor-related syscalls. */
459 extern struct tcb **tcbtab;
460 extern int *qual_flags;
461 extern int debug, followfork;
462 extern int dtime, cflag, xflag, qflag;
464 extern unsigned int nprocs, tcbtabsize;
465 extern int max_strlen;
466 extern struct tcb *tcp_last;
474 enum bitness_t { BITNESS_CURRENT = 0, BITNESS_32 };
476 extern int set_personality P((int personality));
477 extern const char *xlookup P((const struct xlat *, int));
478 extern struct tcb *alloc_tcb P((int, int));
479 extern struct tcb *pid2tcb P((int));
480 extern void droptcb P((struct tcb *));
481 extern void expand_tcbtab P((void));
483 #define alloctcb(pid) alloc_tcb((pid), 1)
485 extern void set_sortby P((char *));
486 extern void set_overhead P((int));
487 extern void qualify P((char *));
488 extern int get_scno P((struct tcb *));
489 extern long known_scno P((struct tcb *));
490 extern long do_ptrace P((int request, struct tcb *tcp, void *addr, void *data));
491 extern int ptrace_restart P((int request, struct tcb *tcp, int sig));
492 extern int trace_syscall P((struct tcb *));
493 extern int count_syscall P((struct tcb *, struct timeval *));
494 extern void printxval P((const struct xlat *, int, const char *));
495 extern int printargs P((struct tcb *));
496 extern int addflags P((const struct xlat *, int));
497 extern int printflags P((const struct xlat *, int, const char *));
498 extern const char *sprintflags P((const char *, const struct xlat *, int));
499 extern int umoven P((struct tcb *, long, int, char *));
500 extern int umovestr P((struct tcb *, long, int, char *));
501 extern int upeek P((struct tcb *, long, long *));
502 extern void dumpiov P((struct tcb *, int, long));
503 extern void dumpstr P((struct tcb *, long, int));
504 extern void printstr P((struct tcb *, long, int));
505 extern void printnum P((struct tcb *, long, char *));
506 extern void printnum_int P((struct tcb *, long, char *));
507 extern void printpath P((struct tcb *, long));
508 extern void printpathn P((struct tcb *, long, int));
509 extern void printtv_bitness P((struct tcb *, long, enum bitness_t, int));
510 extern void sprinttv P((struct tcb *, long, enum bitness_t, char *));
511 extern void print_timespec P((struct tcb *, long));
512 extern void sprint_timespec P((char *, struct tcb *, long));
513 #ifdef HAVE_SIGINFO_T
514 extern void printsiginfo P((siginfo_t *, int));
516 extern void printsock P((struct tcb *, long, int));
517 extern void print_sock_optmgmt P((struct tcb *, long, int));
518 extern void printrusage P((struct tcb *, long));
519 extern void printuid P((const char *, unsigned long));
520 extern int clearbpt P((struct tcb *));
521 extern int setbpt P((struct tcb *));
522 extern int sigishandled P((struct tcb *, int));
523 extern void printcall P((struct tcb *));
524 extern const char *signame P((int));
525 extern void print_sigset P((struct tcb *, long, int));
526 extern void printsignal P((int));
527 extern void printleader P((struct tcb *));
528 extern void printtrailer P((void));
529 extern void tabto P((int));
530 extern void call_summary P((FILE *));
531 extern void tprint_iov P((struct tcb *, unsigned long, unsigned long));
532 extern void tprint_open_modes P((struct tcb *, mode_t));
533 extern int is_restart_error P((struct tcb *));
535 extern int change_syscall P((struct tcb *, int));
537 extern int internal_clone P((struct tcb *));
539 extern int internal_fork P((struct tcb *));
540 extern int internal_exec P((struct tcb *));
541 extern int internal_wait P((struct tcb *, int));
542 extern int internal_exit P((struct tcb *));
544 extern const struct ioctlent *ioctl_lookup P((long));
545 extern const struct ioctlent *ioctl_next_match P((const struct ioctlent *));
546 extern int ioctl_decode P((struct tcb *, long, long));
547 extern int term_ioctl P((struct tcb *, long, long));
548 extern int sock_ioctl P((struct tcb *, long, long));
549 extern int proc_ioctl P((struct tcb *, int, int));
550 extern int stream_ioctl P((struct tcb *, int, int));
552 extern int rtc_ioctl P((struct tcb *, long, long));
553 extern int scsi_ioctl P((struct tcb *, long, long));
556 extern void tv_tv P((struct timeval *, int, int));
557 extern int tv_nz P((struct timeval *));
558 extern int tv_cmp P((struct timeval *, struct timeval *));
559 extern double tv_float P((struct timeval *));
560 extern void tv_add P((struct timeval *, struct timeval *, struct timeval *));
561 extern void tv_sub P((struct timeval *, struct timeval *, struct timeval *));
562 extern void tv_mul P((struct timeval *, struct timeval *, int));
563 extern void tv_div P((struct timeval *, struct timeval *, int));
566 extern int fixvfork P((struct tcb *));
568 #if !(defined(LINUX) && !defined(SPARC) && !defined(SPARC64) && !defined(IA64))
569 extern long getrval2 P((struct tcb *));
572 extern int proc_open P((struct tcb *tcp, int attaching));
575 #define umove(pid, addr, objp) \
576 umoven((pid), (addr), sizeof *(objp), (char *) (objp))
578 #define printtv(tcp, addr) \
579 printtv_bitness((tcp), (addr), BITNESS_CURRENT, 0)
580 #define printtv_special(tcp, addr) \
581 printtv_bitness((tcp), (addr), BITNESS_CURRENT, 1)
585 extern void tprintf(const char *fmt, ...)
586 __attribute__ ((format (printf, 1, 2)));
588 extern void tprintf(const char *fmt, ...);
591 extern void tprintf();
594 #ifndef HAVE_STRERROR
595 const char *strerror P((int));
597 #ifndef HAVE_STRSIGNAL
598 const char *strsignal P((int));
601 extern int current_personality;
602 extern const int personality_wordsize[];
608 const char *sys_name;
609 long native_scno; /* Match against SYS_* constants. */
612 extern const struct sysent *sysent;
613 extern int nsyscalls;
615 extern const char *const *errnoent;
624 extern const struct ioctlent *ioctlent;
625 extern int nioctlents;
627 extern const char *const *signalent;
630 extern const struct ioctlent ioctlent0[];
631 extern const int nioctlents0;
632 extern const char *const signalent0[];
633 extern const int nsignals0;
635 #if SUPPORTED_PERSONALITIES >= 2
636 extern const struct ioctlent ioctlent1[];
637 extern const int nioctlents1;
638 extern const char *const signalent1[];
639 extern const int nsignals1;
640 #endif /* SUPPORTED_PERSONALITIES >= 2 */
642 #if SUPPORTED_PERSONALITIES >= 3
643 extern const struct ioctlent ioctlent2[];
644 extern const int nioctlents2;
645 extern const char *const signalent2[];
646 extern const int nsignals2;
647 #endif /* SUPPORTED_PERSONALITIES >= 3 */
649 #if defined(FREEBSD) || (defined(LINUX) \
650 && defined(POWERPC) && !defined(__powerpc64__)) \
651 || defined (LINUX_MIPSO32)
652 /* ARRGH! off_t args are aligned on 64 bit boundaries! */
653 #define ALIGN64(tcp,arg) \
656 memmove (&tcp->u_arg[arg], &tcp->u_arg[arg + 1], \
657 (tcp->u_nargs - arg - 1) * sizeof tcp->u_arg[0]); \
660 #define ALIGN64(tcp,arg) do { } while (0)
665 /* _l refers to the lower numbered u_arg,
666 * _h refers to the higher numbered u_arg
669 #if HAVE_LITTLE_ENDIAN_LONG_LONG
670 #define LONG_LONG(_l,_h) \
671 ((long long)((unsigned long long)(unsigned)(_l) | ((unsigned long long)(_h)<<32)))
673 #define LONG_LONG(_l,_h) \
674 ((long long)((unsigned long long)(unsigned)(_h) | ((unsigned long long)(_l)<<32)))
682 extern int not_failing_only;