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.
40 /* configuration section */
42 #if defined(linux) && defined(MIPS)
43 #define MAX_QUALS 4999 /* maximum number of syscalls, signals, etc. */
45 #define MAX_QUALS 2048 /* maximum number of syscalls, signals, etc. */
49 #define MAX_PROCS 64 /* maximum number of processes tracable */
51 #ifndef DEFAULT_STRLEN
52 #define DEFAULT_STRLEN 32 /* default maximum # of bytes printed in
53 `printstr', change with `-s' switch */
55 #ifndef DEFAULT_ACOLUMN
56 #define DEFAULT_ACOLUMN 40 /* default alignment column for results */
59 #define MAX_ARGS 32 /* maximum number of args to a syscall */
61 #ifndef DEFAULT_SORTBY
62 #define DEFAULT_SORTBY "time" /* default sorting method for call profiling */
65 #include <sys/types.h>
77 #endif /* STDC_HEADERS */
88 #if defined(SVR4) || defined(FREEBSD)
96 #error "FreeBSD support is only for i386 arch right now."
98 #include <machine/psl.h>
99 #include <machine/reg.h>
100 #include <sys/syscall.h>
104 #include <sys/procfs.h>
105 #ifdef HAVE_MP_PROCFS
109 #include <sys/pioctl.h>
111 #else /* !USE_PROCFS */
112 #if defined(LINUXSPARC) && defined(__GLIBC__)
113 #include <sys/ptrace.h>
115 /* Work around awkward prototype in ptrace.h. */
116 #define ptrace xptrace
117 #include <sys/ptrace.h>
121 #include <asm/ptrace.h>
127 #define ORIG_EAX PT_ORIG_R3
131 extern long ptrace(int, int, char *, long);
133 extern int ptrace(int, int, char *, int, ...);
135 #else /* !__STDC__ */
137 #endif /* !__STDC__ */
138 #endif /* !LINUXSPARC */
142 #if !defined(__GLIBC__)
143 #define PTRACE_PEEKUSER PTRACE_PEEKUSR
144 #define PTRACE_POKEUSER PTRACE_POKEUSR
162 #define SUPPORTED_PERSONALITIES 1
163 #define DEFAULT_PERSONALITY 0
166 #include <linux/a.out.h>
168 #undef SUPPORTED_PERSONALITIES
169 #define SUPPORTED_PERSONALITIES 2
170 #endif /* LINUXSPARC */
174 #ifdef HAVE_MP_PROCFS
175 extern int mp_ioctl (int f, int c, void *a, int s);
176 #define IOCTL(f,c,a) mp_ioctl (f, c, a, sizeof *a)
177 #define IOCTL_STATUS(t) \
178 pread (t->pfd_stat, &t->status, sizeof t->status, 0)
179 #define IOCTL_WSTOP(t) \
180 (IOCTL (t->pfd, PCWSTOP, (char *)NULL) < 0 ? -1 : \
182 #define PR_WHY pr_lwp.pr_why
183 #define PR_WHAT pr_lwp.pr_what
184 #define PR_REG pr_lwp.pr_context.uc_mcontext.gregs
185 #define PR_FLAGS pr_lwp.pr_flags
186 #define PR_SYSCALL pr_lwp.pr_syscall
187 #define PIOCSTIP PCSTOP
188 #define PIOCSET PCSET
189 #define PIOCRESET PCRESET
190 #define PIOCSTRACE PCSTRACE
191 #define PIOCSFAULT PCSFAULT
192 #define PIOCWSTOP PCWSTOP
193 #define PIOCSTOP PCSTOP
194 #define PIOCSENTRY PCSENTRY
195 #define PIOCSEXIT PCSEXIT
196 #define PIOCRUN PCRUN
199 #define IOCTL_STATUS(t) ioctl (t->pfd, PIOCSTATUS, &t->status)
200 #define IOCTL_WSTOP(t) ioctl (t->pfd, PIOCWSTOP, &t->status)
201 #define PR_WHY pr_why
202 #define PR_WHAT pr_what
203 #define PR_REG pr_reg
204 #define PR_FLAGS pr_flags
205 #define PR_SYSCALL pr_syscall
210 #define IOCTL_STATUS(t) ioctl (t->pfd, PIOCSTATUS, &t->status)
211 #define IOCTL_WSTOP(t) ioctl (t->pfd, PIOCWAIT, &t->status)
212 #define PIOCRUN PIOCCONT
213 #define PIOCWSTOP PIOCWAIT
216 #define PR_FLAGS state
217 /* from /usr/src/sys/miscfs/procfs/procfs_vnops.c,
218 status.state = 0 for running, 1 for stopped */
220 #define PR_SYSENTRY S_SCE
221 #define PR_SYSEXIT S_SCX
222 #define PR_SIGNALLED S_SIG
223 #define PR_FAULTED S_CORE
226 /* Trace Control Block */
228 short flags; /* See below for TCB_ values */
229 int pid; /* Process Id of this entry */
230 long scno; /* System call number */
231 int u_nargs; /* System call arguments */
232 long u_arg[MAX_ARGS]; /* System call arguments */
233 int u_error; /* Error code */
234 long u_rval; /* (first) return value */
235 #ifdef HAVE_LONG_LONG
236 long long u_lrval; /* long long return value */
238 FILE *outf; /* Output file for this process */
239 const char *auxstr; /* Auxiliary info from syscall (see RVAL_STR) */
240 struct timeval stime; /* System time usage as of last process wait */
241 struct timeval dtime; /* Delta for system time usage */
242 struct timeval etime; /* Syscall entry time */
243 /* Support for tracing forked processes */
244 struct tcb *parent; /* Parent of this process */
245 int nchildren; /* # of traced children */
246 int waitpid; /* pid(s) this process is waiting for */
247 /* (1st arg of wait4()) */
248 long baddr; /* `Breakpoint' address */
249 long inst[2]; /* Instructions on above */
250 int pfd; /* proc file descriptor */
252 #ifdef HAVE_MP_PROCFS
257 prstatus_t status; /* procfs status structure */
261 struct procfs_status status;
268 #define TCB_STARTUP 00001 /* We have just begun ptracing this process */
269 #define TCB_INUSE 00002 /* This table entry is in use */
270 #define TCB_INSYSCALL 00004 /* A system call is in progress */
271 #define TCB_ATTACHED 00010 /* Process is not our own child */
272 #define TCB_EXITING 00020 /* As far as we know, this process is exiting */
273 #define TCB_SUSPENDED 00040 /* Process has done a wait(4), that can
274 not be allowed to complete just now */
275 #define TCB_BPTSET 00100 /* "Breakpoint" set after fork(2) */
276 #define TCB_SIGTRAPPED 00200 /* Process wanted to block SIGTRAP */
277 #define TCB_FOLLOWFORK 00400 /* Process should have forks followed */
278 #define TCB_REPRINT 01000 /* We should reprint this syscall on exit */
280 #if defined(ALPHA) || defined(SPARC) || defined(POWERPC)
281 #define TCB_WAITEXECVE 02000 /* ignore SIGTRAP after exceve */
285 /* qualifier flags */
286 #define QUAL_TRACE 0001 /* this system call should be traced */
287 #define QUAL_ABBREV 0002 /* abbreviate the structures of this syscall */
288 #define QUAL_VERBOSE 0004 /* decode the structures of this syscall */
289 #define QUAL_RAW 0010 /* print all args in hex for this syscall */
290 #define QUAL_SIGNAL 0020 /* report events with this signal */
291 #define QUAL_FAULT 0040 /* report events with this fault */
292 #define QUAL_READ 0100 /* dump data read on this file descriptor */
293 #define QUAL_WRITE 0200 /* dump data written to this file descriptor */
295 #define entering(tcp) (!((tcp)->flags & TCB_INSYSCALL))
296 #define exiting(tcp) ((tcp)->flags & TCB_INSYSCALL)
297 #define syserror(tcp) ((tcp)->u_error != 0)
298 #define verbose(tcp) (qual_flags[(tcp)->scno] & QUAL_VERBOSE)
299 #define abbrev(tcp) (qual_flags[(tcp)->scno] & QUAL_ABBREV)
300 #define waiting_parent(tcp) \
302 (tcp->parent->flags & TCB_SUSPENDED) && \
303 (tcp->parent->waitpid <= 0 || tcp->parent->waitpid == tcp->pid))
310 /* Format of syscall return values */
311 #define RVAL_DECIMAL 000 /* decimal format */
312 #define RVAL_HEX 001 /* hex format */
313 #define RVAL_OCTAL 002 /* octal format */
314 #define RVAL_UDECIMAL 003 /* unsigned decimal format */
315 #define RVAL_LDECIMAL 004 /* long decimal format */
316 #define RVAL_LHEX 005 /* long hex format */
317 #define RVAL_LOCTAL 006 /* long octal format */
318 #define RVAL_LUDECIMAL 007 /* long unsigned decimal format */
319 #define RVAL_MASK 007 /* mask for these values */
321 #define RVAL_STR 010 /* Print `auxstr' field after return val */
322 #define RVAL_NONE 020 /* Print nothing */
325 #define offsetof(type, member) (((char *) &(((type *) NULL)->member)) - \
326 ((char *) (type *) NULL))
327 #endif /* !offsetof */
329 /* get offset of member within a user struct */
330 #define uoff(member) offsetof(struct user, member)
332 #define TRACE_FILE 001 /* Trace file-related syscalls. */
333 #define TRACE_IPC 002 /* Trace IPC-related syscalls. */
334 #define TRACE_NETWORK 004 /* Trace network-related syscalls. */
335 #define TRACE_PROCESS 010 /* Trace process-related syscalls. */
336 #define TRACE_SIGNAL 020 /* Trace signal-related syscalls. */
338 extern struct tcb tcbtab[];
339 extern int qual_flags[];
340 extern int debug, followfork, followvfork;
341 extern int rflag, tflag, dtime, cflag, xflag, qflag;
343 extern char *outfname;
345 extern int max_strlen;
346 extern struct tcb *tcp_last;
354 extern int set_personality P((int personality));
355 extern char *xlookup P((struct xlat *, int));
356 extern struct tcb *alloctcb P((int));
357 extern void droptcb P((struct tcb *));
359 extern void set_sortby P((char *));
360 extern void set_overhead P((int));
361 extern void qualify P((char *));
362 extern void newoutf P((struct tcb *));
363 extern int get_scno P((struct tcb *));
364 extern int trace_syscall P((struct tcb *));
365 extern void printxval P((struct xlat *, int, char *));
366 extern int printargs P((struct tcb *));
367 extern int addflags P((struct xlat *, int));
368 extern int printflags P((struct xlat *, int));
369 extern int umoven P((struct tcb *, long, int, char *));
370 extern int umovestr P((struct tcb *, long, int, char *));
371 extern int upeek P((int, long, long *));
372 extern void dumpstr P((struct tcb *, long, int));
373 extern void string_quote P((char *str));
374 extern void printstr P((struct tcb *, long, int));
375 extern void printnum P((struct tcb *, long, char *));
376 extern void printpath P((struct tcb *, long));
377 extern void printpathn P((struct tcb *, long, int));
378 extern void printtv P((struct tcb *, long));
379 extern void printsock P((struct tcb *, long, int));
380 extern void printrusage P((struct tcb *, long));
381 extern int clearbpt P((struct tcb *));
382 extern int setbpt P((struct tcb *));
383 extern int sigishandled P((struct tcb *, int));
384 extern void printcall P((struct tcb *));
385 extern char *signame P((int));
386 extern void printsignal P((int));
387 extern void printleader P((struct tcb *));
388 extern void printtrailer P((struct tcb *));
389 extern void tabto P((int));
390 extern void call_summary P((FILE *));
391 extern void fake_execve P((struct tcb *, char *, char *[], char *[]));
392 extern void printtv32 P((struct tcb*, long));
395 extern int internal_clone P((struct tcb *));
397 extern int internal_fork P((struct tcb *));
398 extern int internal_exec P((struct tcb *));
399 extern int internal_wait P((struct tcb *));
400 extern int internal_exit P((struct tcb *));
402 extern char *ioctl_lookup P((long));
403 extern int ioctl_decode P((struct tcb *, long, long));
404 extern int term_ioctl P((struct tcb *, long, long));
405 extern int sock_ioctl P((struct tcb *, long, long));
406 extern int proc_ioctl P((struct tcb *, int, int));
407 extern int stream_ioctl P((struct tcb *, int, int));
409 extern void tv_tv P((struct timeval *, int, int));
410 extern int tv_nz P((struct timeval *));
411 extern int tv_cmp P((struct timeval *, struct timeval *));
412 extern double tv_float P((struct timeval *));
413 extern void tv_add P((struct timeval *, struct timeval *, struct timeval *));
414 extern void tv_sub P((struct timeval *, struct timeval *, struct timeval *));
415 extern void tv_mul P((struct timeval *, struct timeval *, int));
416 extern void tv_div P((struct timeval *, struct timeval *, int));
419 extern int fixvfork P((struct tcb *));
421 #if !(defined(LINUX) && !defined(SPARC))
422 extern long getrval2 P((struct tcb *));
425 extern int proc_open P((struct tcb *tcp, int attaching));
428 #define umove(pid, addr, objp) \
429 umoven((pid), (addr), sizeof *(objp), (char *) (objp))
433 extern void tprintf(const char *fmt, ...)
434 __attribute__ ((format (printf, 1, 2)));
436 extern void tprintf(const char *fmt, ...);
439 extern void tprintf();
442 #ifndef HAVE_STRERROR
443 const char *strerror P((int));
445 #ifndef HAVE_STRSIGNAL
446 const char *strsignal P((int));
449 extern int current_personality;
458 extern struct sysent *sysent;
459 extern int nsyscalls;
461 extern char **errnoent;
470 extern struct ioctlent *ioctlent;
471 extern int nioctlent;
473 extern char **signalent;
476 extern struct ioctlent *ioctlent;
477 extern int nioctlents;
478 extern char **signalent;
481 extern struct ioctlent ioctlent0[];
482 extern int nioctlents0;
483 extern char *signalent0[];
484 extern int nsignals0;
486 #if SUPPORTED_PERSONALITIES >= 2
487 extern struct ioctlent ioctlent1[];
488 extern int nioctlents1;
489 extern char *signalent1[];
490 extern int nsignals1;
491 #endif /* SUPPORTED_PERSONALITIES >= 2 */
493 #if SUPPORTED_PERSONALITIES >= 3
494 extern struct ioctlent ioctlent2[];
495 extern int nioctlents2;
496 extern char *signalent2[];
497 extern int nsignals2;
498 #endif /* SUPPORTED_PERSONALITIES >= 3 */
501 /* ARRGH! off_t args are aligned on 64 bit boundaries! */
502 #define ALIGN64(tcp,arg) \
505 memmove (&tcp->u_arg[arg], &tcp->u_arg[arg + 1], \
506 (tcp->u_nargs - arg - 1) * sizeof tcp->u_arg[0]); \
509 #define ALIGN64(tcp,arg) do { } while (0)
512 #if _LFS64_LARGEFILE || FREEBSD
514 /* _l refers to the lower numbered u_arg,
515 * _h refers to the higher numbered u_arg
519 /* This should work, assuming we can do non-aligned 64 bit fetches.
520 * if not we'll have to figure out how which of the other versions to use.
523 #define get64(_l,_h) (*(long long *) &(_l))
528 #define get64(_l,_h) ((long long)((unsigned long long)(_l) | ((unsigned long long)(_h)<<32)))
530 #define get64(_l,_h) ((long long)((unsigned long long)(_h) | ((unsigned long long)(_l)<<32)))