1 /*
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>
5 * Copyright (c) 1996-1999 Wichert Akkerman <wichert@cistron.nl>
6 * Copyright (c) 1999 IBM Deutschland Entwicklung GmbH, IBM Corporation
7 * Linux for s390 port by D.J. Barrow
8 * <barrow_dj@mail.yahoo.com,djbarrow@de.ibm.com>
9 * Copyright (c) 2000 PocketPenguins Inc. Linux for Hitachi SuperH
10 * port by Greg Banks <gbanks@pocketpenguins.com>
11 *
12 * All rights reserved.
13 *
14 * Redistribution and use in source and binary forms, with or without
15 * modification, are permitted provided that the following conditions
16 * are met:
17 * 1. Redistributions of source code must retain the above copyright
18 * notice, this list of conditions and the following disclaimer.
19 * 2. Redistributions in binary form must reproduce the above copyright
20 * notice, this list of conditions and the following disclaimer in the
21 * documentation and/or other materials provided with the distribution.
22 * 3. The name of the author may not be used to endorse or promote products
23 * derived from this software without specific prior written permission.
24 *
25 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
26 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
27 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
28 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
29 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
30 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
31 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
32 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
33 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
34 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
35 */
36
37 #include "defs.h"
38
39 #ifdef HAVE_ELF_H
40 # include <elf.h>
41 #endif
42
43 #include "xlat/nt_descriptor_types.h"
44
45 #include "regs.h"
46 #include "ptrace.h"
47 #include "xlat/ptrace_cmds.h"
48 #include "xlat/ptrace_setoptions_flags.h"
49
50 #define uoff(member) offsetof(struct user, member)
51 #define XLAT_UOFF(member) { uoff(member), "offsetof(struct user, " #member ")" }
52
53 static const struct xlat struct_user_offsets[] = {
54 #include "userent.h"
55 XLAT_END
56 };
57
SYS_FUNC(ptrace)58 SYS_FUNC(ptrace)
59 {
60 const struct xlat *x;
61 unsigned long addr;
62
63 if (entering(tcp)) {
64 printxval(ptrace_cmds, tcp->u_arg[0], "PTRACE_???");
65 tprintf(", %lu, ", tcp->u_arg[1]);
66
67 addr = tcp->u_arg[2];
68 if (tcp->u_arg[0] == PTRACE_PEEKUSER
69 || tcp->u_arg[0] == PTRACE_POKEUSER
70 ) {
71 for (x = struct_user_offsets; x->str; x++) {
72 if (x->val >= addr)
73 break;
74 }
75 if (!x->str)
76 tprintf("%#lx, ", addr);
77 else if (x->val > addr && x != struct_user_offsets) {
78 x--;
79 tprintf("%s + %ld, ", x->str, addr - x->val);
80 }
81 else
82 tprintf("%s, ", x->str);
83 } else
84 if (tcp->u_arg[0] == PTRACE_GETREGSET
85 || tcp->u_arg[0] == PTRACE_SETREGSET
86 ) {
87 printxval(nt_descriptor_types, tcp->u_arg[2], "NT_???");
88 tprints(", ");
89 } else
90 tprintf("%#lx, ", addr);
91
92
93 switch (tcp->u_arg[0]) {
94 #ifndef IA64
95 case PTRACE_PEEKDATA:
96 case PTRACE_PEEKTEXT:
97 case PTRACE_PEEKUSER:
98 break;
99 #endif
100 case PTRACE_CONT:
101 case PTRACE_SINGLESTEP:
102 case PTRACE_SYSCALL:
103 case PTRACE_DETACH:
104 printsignal(tcp->u_arg[3]);
105 break;
106 case PTRACE_SETOPTIONS:
107 printflags(ptrace_setoptions_flags, tcp->u_arg[3], "PTRACE_O_???");
108 break;
109 case PTRACE_SETSIGINFO: {
110 printsiginfo_at(tcp, tcp->u_arg[3]);
111 break;
112 }
113 case PTRACE_SETREGSET:
114 tprint_iov(tcp, /*len:*/ 1, tcp->u_arg[3], /*as string:*/ 0);
115 break;
116 case PTRACE_GETSIGINFO:
117 case PTRACE_GETREGSET:
118 /* Don't print anything, do it at syscall return. */
119 break;
120 default:
121 tprintf("%#lx", tcp->u_arg[3]);
122 break;
123 }
124 } else {
125 switch (tcp->u_arg[0]) {
126 case PTRACE_PEEKDATA:
127 case PTRACE_PEEKTEXT:
128 case PTRACE_PEEKUSER:
129 #ifdef IA64
130 return RVAL_HEX;
131 #else
132 printnum_long(tcp, tcp->u_arg[3], "%#lx");
133 break;
134 #endif
135 case PTRACE_GETSIGINFO: {
136 printsiginfo_at(tcp, tcp->u_arg[3]);
137 break;
138 }
139 case PTRACE_GETREGSET:
140 tprint_iov(tcp, /*len:*/ 1, tcp->u_arg[3], /*as string:*/ 0);
141 break;
142 }
143 }
144 return 0;
145 }
146