|
|
@@ -0,0 +1,645 @@
|
|
|
1
|
+/*
|
|
|
2
|
+ pstack.c -- asynchronous stack trace of a running process
|
|
|
3
|
+ Copyright (c) 1999 Ross Thompson
|
|
|
4
|
+ Copyright (c) 2001, 2003 Red Hat, Inc.
|
|
|
5
|
+
|
|
|
6
|
+ Original Author: Ross Thompson <ross@whatsis.com>
|
|
|
7
|
+ Critical bug fix: Tim Waugh
|
|
|
8
|
+
|
|
|
9
|
+*/
|
|
|
10
|
+
|
|
|
11
|
+/*
|
|
|
12
|
+ This file is free software; you can redistribute it and/or modify
|
|
|
13
|
+ it under the terms of the GNU General Public License as published by
|
|
|
14
|
+ the Free Software Foundation; either version 2 of the License, or
|
|
|
15
|
+ (at your option) any later version.
|
|
|
16
|
+
|
|
|
17
|
+ This program is distributed in the hope that it will be useful,
|
|
|
18
|
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
19
|
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
20
|
+ GNU General Public License for more details.
|
|
|
21
|
+
|
|
|
22
|
+ You should have received a copy of the GNU General Public License
|
|
|
23
|
+ along with this program; if not, write to the Free Software
|
|
|
24
|
+ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
|
|
25
|
+*/
|
|
|
26
|
+
|
|
|
27
|
+/* RESTRICTIONS:
|
|
|
28
|
+
|
|
|
29
|
+ pstack currently works only on Linux, only on an x86 machine running
|
|
|
30
|
+ 32 bit ELF binaries (64 bit not supported). Also, for symbolic
|
|
|
31
|
+ information, you need to use a GNU compiler to generate your
|
|
|
32
|
+ program, and you can't strip symbols from the binaries. For thread
|
|
|
33
|
+ information to be dumped, you have to use the debug-aware version
|
|
|
34
|
+ of libpthread.so. (To check, run 'nm' on your libpthread.so, and
|
|
|
35
|
+ make sure that the symbol "__pthread_threads_debug" is defined.)
|
|
|
36
|
+*/
|
|
|
37
|
+
|
|
|
38
|
+#include <sys/ptrace.h>
|
|
|
39
|
+#include <asm/ptrace.h>
|
|
|
40
|
+#include <sys/types.h>
|
|
|
41
|
+#include <sys/stat.h>
|
|
|
42
|
+#include <sys/wait.h>
|
|
|
43
|
+
|
|
|
44
|
+#include <fcntl.h>
|
|
|
45
|
+#include <link.h>
|
|
|
46
|
+#include <malloc.h>
|
|
|
47
|
+#include <string.h>
|
|
|
48
|
+#include <unistd.h>
|
|
|
49
|
+#include <stdlib.h>
|
|
|
50
|
+#include <stdio.h>
|
|
|
51
|
+#include <errno.h>
|
|
|
52
|
+
|
|
|
53
|
+static int thePid; /* pid requested by caller. */
|
|
|
54
|
+static struct {
|
|
|
55
|
+ int found;
|
|
|
56
|
+ int *pids; /* pid[0] is dad, pid[1] is manager */
|
|
|
57
|
+ int *attached; /* pid[i] is attached? 1 = yes, 0 = no */
|
|
|
58
|
+ int npids;
|
|
|
59
|
+} threads;
|
|
|
60
|
+
|
|
|
61
|
+/* ------------------------------ */
|
|
|
62
|
+
|
|
|
63
|
+static int attach(int pid)
|
|
|
64
|
+{
|
|
|
65
|
+ int status;
|
|
|
66
|
+
|
|
|
67
|
+ errno = 0;
|
|
|
68
|
+ ptrace(PTRACE_ATTACH, pid, 0, 0);
|
|
|
69
|
+
|
|
|
70
|
+ if (errno)
|
|
|
71
|
+ return errno;
|
|
|
72
|
+
|
|
|
73
|
+ waitpid (pid, &status, WUNTRACED);
|
|
|
74
|
+
|
|
|
75
|
+ /* If we failed due to an ECHILD, then retry with the __WCLONE
|
|
|
76
|
+ flag. Note we loop as the the PID we get back may not be
|
|
|
77
|
+ one we care about. */
|
|
|
78
|
+ if (errno == ECHILD) {
|
|
|
79
|
+ int x;
|
|
|
80
|
+
|
|
|
81
|
+ errno = 0;
|
|
|
82
|
+ while (1) {
|
|
|
83
|
+ x = waitpid (-1, &status, (__WCLONE));
|
|
|
84
|
+
|
|
|
85
|
+ if (x == pid || x < 0 || errno != 0) break;
|
|
|
86
|
+ }
|
|
|
87
|
+ }
|
|
|
88
|
+
|
|
|
89
|
+ return errno;
|
|
|
90
|
+}
|
|
|
91
|
+
|
|
|
92
|
+static int detachall(void)
|
|
|
93
|
+{
|
|
|
94
|
+ int i;
|
|
|
95
|
+
|
|
|
96
|
+ /* First detach from all the threads, except the one we initially
|
|
|
97
|
+ attached to. Note that the PTRACE_DETACH will continue the
|
|
|
98
|
+ thread, so there is no need to issue a separate PTRACE_CONTINUE
|
|
|
99
|
+ call. */
|
|
|
100
|
+ if (threads.found) {
|
|
|
101
|
+ for (i = 0; i < threads.npids; i++) {
|
|
|
102
|
+ if (threads.pids[i] != thePid && threads.attached[i]) {
|
|
|
103
|
+ errno = 0;
|
|
|
104
|
+ ptrace(PTRACE_DETACH, threads.pids[i], 0, 0);
|
|
|
105
|
+ if (errno) perror("detach");
|
|
|
106
|
+ }
|
|
|
107
|
+ }
|
|
|
108
|
+ }
|
|
|
109
|
+
|
|
|
110
|
+ /* Now attach from the thread we initially attached to. Note that
|
|
|
111
|
+ the PTRACE_DETACH will continue the thread, so there is no need
|
|
|
112
|
+ is issue a separate PTRACE_CONTINUE call. */
|
|
|
113
|
+ ptrace(PTRACE_DETACH, thePid, 0, 0);
|
|
|
114
|
+
|
|
|
115
|
+ return errno;
|
|
|
116
|
+}
|
|
|
117
|
+
|
|
|
118
|
+static void handle_signal (int signum)
|
|
|
119
|
+{
|
|
|
120
|
+ signal (signum, SIG_DFL);
|
|
|
121
|
+ psignal (signum, "pstack signal received");
|
|
|
122
|
+ if (thePid) detachall();
|
|
|
123
|
+ exit (1);
|
|
|
124
|
+}
|
|
|
125
|
+
|
|
|
126
|
+static void quit(char *msg)
|
|
|
127
|
+{
|
|
|
128
|
+ fputs(msg, stderr);
|
|
|
129
|
+ fputc('\n', stderr);
|
|
|
130
|
+ if (thePid) detachall();
|
|
|
131
|
+ exit(1);
|
|
|
132
|
+}
|
|
|
133
|
+
|
|
|
134
|
+/* ------------------------------ */
|
|
|
135
|
+
|
|
|
136
|
+static Elf32_Addr DebugInfo;
|
|
|
137
|
+
|
|
|
138
|
+typedef struct _t_Symbols {
|
|
|
139
|
+ struct _t_Symbols *next;
|
|
|
140
|
+ char *name;
|
|
|
141
|
+ Elf32_Sym *symbols;
|
|
|
142
|
+ int nsyms;
|
|
|
143
|
+ char *strings;
|
|
|
144
|
+ int strslen, noffsets;
|
|
|
145
|
+ Elf32_Addr baseAddr;
|
|
|
146
|
+ Elf32_Dyn *dynamic;
|
|
|
147
|
+ int ndyns;
|
|
|
148
|
+} *Symbols;
|
|
|
149
|
+
|
|
|
150
|
+static Symbols allSyms;
|
|
|
151
|
+
|
|
|
152
|
+static Symbols newSyms(const char *name)
|
|
|
153
|
+{
|
|
|
154
|
+ Symbols syms = (Symbols) calloc(sizeof(struct _t_Symbols), 1);
|
|
|
155
|
+
|
|
|
156
|
+ if (!syms) quit("Out of memory");
|
|
|
157
|
+ syms->next = allSyms;
|
|
|
158
|
+ allSyms = syms;
|
|
|
159
|
+ syms->name = strdup(name);
|
|
|
160
|
+
|
|
|
161
|
+ return syms;
|
|
|
162
|
+}
|
|
|
163
|
+
|
|
|
164
|
+static void deleteSyms(Symbols syms)
|
|
|
165
|
+{
|
|
|
166
|
+ Symbols s2;
|
|
|
167
|
+
|
|
|
168
|
+ if (syms == allSyms) allSyms = syms->next;
|
|
|
169
|
+ else {
|
|
|
170
|
+ for (s2 = allSyms; s2 && s2->next != syms; s2 = s2->next);
|
|
|
171
|
+ if (s2) s2->next = syms->next;
|
|
|
172
|
+ }
|
|
|
173
|
+ if (syms->symbols) free(syms->symbols);
|
|
|
174
|
+ if (syms->strings) free(syms->strings);
|
|
|
175
|
+ if (syms->dynamic) free(syms->dynamic);
|
|
|
176
|
+ if (syms->name) free(syms->name);
|
|
|
177
|
+ free(syms);
|
|
|
178
|
+}
|
|
|
179
|
+
|
|
|
180
|
+static const Elf32_Sym *lookupSymInTable(const char *name, Symbols syms)
|
|
|
181
|
+{
|
|
|
182
|
+ Elf32_Sym *sym;
|
|
|
183
|
+ int i;
|
|
|
184
|
+
|
|
|
185
|
+ for (i = 0, sym = syms->symbols; i < syms->nsyms; i++, sym++) {
|
|
|
186
|
+ if (!strcmp(name, &syms->strings[sym->st_name]))
|
|
|
187
|
+ return sym;
|
|
|
188
|
+ }
|
|
|
189
|
+
|
|
|
190
|
+ return 0;
|
|
|
191
|
+}
|
|
|
192
|
+
|
|
|
193
|
+static void findCodeAddress(Elf32_Addr addr, Elf32_Sym **ans,
|
|
|
194
|
+ Symbols *symtab)
|
|
|
195
|
+{
|
|
|
196
|
+ Elf32_Sym *sym;
|
|
|
197
|
+ Symbols tab;
|
|
|
198
|
+ int i;
|
|
|
199
|
+
|
|
|
200
|
+ for (tab = allSyms, *ans = 0, *symtab = 0; tab; tab = tab->next) {
|
|
|
201
|
+ if (addr < tab->baseAddr) continue;
|
|
|
202
|
+ for (sym = tab->symbols, i = 0; i < tab->nsyms; i++, sym++) {
|
|
|
203
|
+ if (sym->st_value <= addr && sym->st_shndx != SHN_UNDEF &&
|
|
|
204
|
+ sym->st_shndx < tab->noffsets &&
|
|
|
205
|
+ ELF32_ST_TYPE(sym->st_info) == STT_FUNC &&
|
|
|
206
|
+ (!*ans || (*ans)->st_value < sym->st_value))
|
|
|
207
|
+ *ans = sym, *symtab = tab;
|
|
|
208
|
+ }
|
|
|
209
|
+ }
|
|
|
210
|
+}
|
|
|
211
|
+
|
|
|
212
|
+/* ------------------------------ */
|
|
|
213
|
+
|
|
|
214
|
+static void resetData(void)
|
|
|
215
|
+{
|
|
|
216
|
+ Symbols syms, ns;
|
|
|
217
|
+
|
|
|
218
|
+ if (threads.pids) free(threads.pids);
|
|
|
219
|
+ if (threads.attached) free(threads.attached);
|
|
|
220
|
+ threads.pids = 0;
|
|
|
221
|
+ threads.attached = 0;
|
|
|
222
|
+ threads.found = 0;
|
|
|
223
|
+
|
|
|
224
|
+ for (syms = allSyms; syms; syms = ns) {
|
|
|
225
|
+ ns = syms->next;
|
|
|
226
|
+ deleteSyms(syms);
|
|
|
227
|
+ }
|
|
|
228
|
+}
|
|
|
229
|
+
|
|
|
230
|
+/* ------------------------------ */
|
|
|
231
|
+
|
|
|
232
|
+static const Elf32_Sym *findLocalSym(const char *name, Symbols syms)
|
|
|
233
|
+{
|
|
|
234
|
+ const Elf32_Sym *sym = lookupSymInTable(name, syms);
|
|
|
235
|
+
|
|
|
236
|
+ return (!sym || sym->st_shndx == SHN_UNDEF ||
|
|
|
237
|
+ sym->st_shndx >= syms->noffsets) ? 0 : sym;
|
|
|
238
|
+}
|
|
|
239
|
+
|
|
|
240
|
+static int readSym(Symbols syms, int pid, const char *name, int *val)
|
|
|
241
|
+{
|
|
|
242
|
+ const Elf32_Sym *sym;
|
|
|
243
|
+
|
|
|
244
|
+ if (!(sym = findLocalSym(name, syms))) return 0;
|
|
|
245
|
+ errno = 0;
|
|
|
246
|
+ *val = ptrace(PTRACE_PEEKDATA, pid, sym->st_value, 0);
|
|
|
247
|
+ if (errno) {
|
|
|
248
|
+ perror("ptrace");
|
|
|
249
|
+ quit("Could not read thread debug info.");
|
|
|
250
|
+ }
|
|
|
251
|
+ return 1;
|
|
|
252
|
+}
|
|
|
253
|
+
|
|
|
254
|
+static void checkForThreads(Symbols syms, int pid)
|
|
|
255
|
+{
|
|
|
256
|
+ const Elf32_Sym *handles;
|
|
|
257
|
+ int i, tpid, hsize, descOff, pidOff, numPids, *pptr;
|
|
|
258
|
+ Elf32_Addr descr;
|
|
|
259
|
+
|
|
|
260
|
+ if (!findLocalSym("__pthread_threads_debug", syms) ||
|
|
|
261
|
+ !(handles = findLocalSym("__pthread_handles", syms)) ||
|
|
|
262
|
+ !readSym(syms, pid, "__pthread_sizeof_handle", &hsize) ||
|
|
|
263
|
+ !readSym(syms, pid, "__pthread_offsetof_descr", &descOff) ||
|
|
|
264
|
+ !readSym(syms, pid, "__pthread_offsetof_pid", &pidOff) ||
|
|
|
265
|
+ !readSym(syms, pid, "__pthread_handles_num", &numPids) ||
|
|
|
266
|
+ numPids == 1 ||
|
|
|
267
|
+ !(threads.pids = (int *) calloc(numPids + 2, sizeof(int))) ||
|
|
|
268
|
+ !(threads.attached = (int *) calloc(numPids + 2, sizeof(int)))) {
|
|
|
269
|
+ if (threads.pids) {
|
|
|
270
|
+ free(threads.pids);
|
|
|
271
|
+ threads.pids = 0;
|
|
|
272
|
+ }
|
|
|
273
|
+ if (threads.attached) {
|
|
|
274
|
+ free(threads.attached);
|
|
|
275
|
+ threads.attached = 0;
|
|
|
276
|
+ }
|
|
|
277
|
+ return;
|
|
|
278
|
+ }
|
|
|
279
|
+ errno = 0;
|
|
|
280
|
+
|
|
|
281
|
+ for (pptr = &threads.pids[0], i = 0; i < numPids && !errno; i++) {
|
|
|
282
|
+ descr = ptrace(PTRACE_PEEKDATA, pid,
|
|
|
283
|
+ handles->st_value + (i * hsize) + descOff, 0);
|
|
|
284
|
+ if (!descr && i == 0)
|
|
|
285
|
+ /* The initial thread's descriptor was not initialized yet. */
|
|
|
286
|
+ *pptr++ = pid;
|
|
|
287
|
+ else if (descr && !errno) {
|
|
|
288
|
+ tpid = ptrace(PTRACE_PEEKDATA, pid, descr + pidOff, 0);
|
|
|
289
|
+ if (!errno)
|
|
|
290
|
+ *pptr++ = tpid;
|
|
|
291
|
+ }
|
|
|
292
|
+ }
|
|
|
293
|
+ threads.npids = pptr - threads.pids;
|
|
|
294
|
+
|
|
|
295
|
+ if (errno) {
|
|
|
296
|
+ perror("ptrace");
|
|
|
297
|
+ quit("Could not read thread debug info.");
|
|
|
298
|
+ }
|
|
|
299
|
+
|
|
|
300
|
+ threads.found = 1;
|
|
|
301
|
+
|
|
|
302
|
+ for (i = 0; i < threads.npids; i++) {
|
|
|
303
|
+ if (threads.pids[i] && threads.pids[i] != pid) {
|
|
|
304
|
+ if (attach(threads.pids[i]) != 0)
|
|
|
305
|
+ printf("Could not attach to thread %d.\n", threads.pids[i]);
|
|
|
306
|
+ else threads.attached[i] = 1;
|
|
|
307
|
+ } else if (threads.pids[i] == pid) {
|
|
|
308
|
+ threads.attached[i] = 1;
|
|
|
309
|
+ }
|
|
|
310
|
+
|
|
|
311
|
+ }
|
|
|
312
|
+}
|
|
|
313
|
+
|
|
|
314
|
+/* ------------------------------ */
|
|
|
315
|
+
|
|
|
316
|
+static void verify_ident(Elf32_Ehdr *hdr)
|
|
|
317
|
+{
|
|
|
318
|
+ if (memcmp(&hdr->e_ident[EI_MAG0], ELFMAG, SELFMAG))
|
|
|
319
|
+ quit("Bad magic number.");
|
|
|
320
|
+ if (hdr->e_ident[EI_CLASS] != ELFCLASS32)
|
|
|
321
|
+ quit("only 32 bit objects supported.");
|
|
|
322
|
+ if (hdr->e_ident[EI_DATA] != ELFDATA2LSB)
|
|
|
323
|
+ quit("big endian object files not supported.");
|
|
|
324
|
+ if (hdr->e_ident[EI_VERSION] != EV_CURRENT ||
|
|
|
325
|
+ hdr->e_version != EV_CURRENT)
|
|
|
326
|
+ quit("Unsupported ELF format version.");
|
|
|
327
|
+ if (hdr->e_machine != EM_386)
|
|
|
328
|
+ quit("Not an IA32 executable.");
|
|
|
329
|
+}
|
|
|
330
|
+
|
|
|
331
|
+static int find_stables(Elf32_Ehdr *hdr, int fd, Symbols syms)
|
|
|
332
|
+{
|
|
|
333
|
+ int i, idx, spot;
|
|
|
334
|
+ Elf32_Shdr shdr;
|
|
|
335
|
+
|
|
|
336
|
+ spot = hdr->e_shoff;
|
|
|
337
|
+ if (lseek(fd, spot, SEEK_SET) != spot) quit("seek failed.");
|
|
|
338
|
+
|
|
|
339
|
+ memset(&shdr, 0, sizeof(shdr));
|
|
|
340
|
+
|
|
|
341
|
+ syms->noffsets = hdr->e_shnum;
|
|
|
342
|
+
|
|
|
343
|
+ for (idx = 0; idx < hdr->e_shnum; idx++) {
|
|
|
344
|
+ if (read(fd, &shdr, hdr->e_shentsize) != hdr->e_shentsize)
|
|
|
345
|
+ quit("premature eof.");
|
|
|
346
|
+ spot += hdr->e_shentsize;
|
|
|
347
|
+ switch (shdr.sh_type) {
|
|
|
348
|
+ case SHT_SYMTAB:
|
|
|
349
|
+ syms->nsyms = shdr.sh_size / sizeof(Elf32_Sym);
|
|
|
350
|
+
|
|
|
351
|
+ if (!(syms->symbols = (Elf32_Sym *) malloc(shdr.sh_size)))
|
|
|
352
|
+ quit("Could not allocate symbol table.");
|
|
|
353
|
+
|
|
|
354
|
+ if (lseek(fd, shdr.sh_offset, SEEK_SET) != shdr.sh_offset ||
|
|
|
355
|
+ read(fd, syms->symbols, shdr.sh_size) != shdr.sh_size)
|
|
|
356
|
+ quit("Could not read symbol table.");
|
|
|
357
|
+
|
|
|
358
|
+ i = hdr->e_shoff + shdr.sh_link * hdr->e_shentsize;
|
|
|
359
|
+ if (lseek(fd, i, SEEK_SET) != i)
|
|
|
360
|
+ quit("Could not seek and find.");
|
|
|
361
|
+ if (read(fd, &shdr, hdr->e_shentsize) != hdr->e_shentsize)
|
|
|
362
|
+ quit("Could not read string table section header.");
|
|
|
363
|
+ if (!(syms->strings = malloc(shdr.sh_size)))
|
|
|
364
|
+ quit("Could not allocate string table.");
|
|
|
365
|
+ if (lseek(fd, shdr.sh_offset, SEEK_SET) != shdr.sh_offset ||
|
|
|
366
|
+ read(fd, syms->strings, shdr.sh_size) != shdr.sh_size)
|
|
|
367
|
+ quit("Could not read string table.");
|
|
|
368
|
+ lseek(fd, spot, SEEK_SET);
|
|
|
369
|
+ break;
|
|
|
370
|
+ case SHT_DYNAMIC:
|
|
|
371
|
+ syms->ndyns = shdr.sh_size / sizeof(Elf32_Dyn);
|
|
|
372
|
+ if (!(syms->dynamic = (Elf32_Dyn *) malloc(shdr.sh_size)))
|
|
|
373
|
+ quit("Out of memory.");
|
|
|
374
|
+ if (lseek(fd, shdr.sh_offset, SEEK_SET) != shdr.sh_offset ||
|
|
|
375
|
+ read(fd, syms->dynamic, shdr.sh_size) != shdr.sh_size)
|
|
|
376
|
+ quit("Could not read dynamic table.");
|
|
|
377
|
+ lseek(fd, spot, SEEK_SET);
|
|
|
378
|
+ break;
|
|
|
379
|
+ }
|
|
|
380
|
+ }
|
|
|
381
|
+
|
|
|
382
|
+ return (syms->nsyms > 0);
|
|
|
383
|
+}
|
|
|
384
|
+
|
|
|
385
|
+static Symbols loadSyms(const char *fname)
|
|
|
386
|
+{
|
|
|
387
|
+ Elf32_Ehdr hdr;
|
|
|
388
|
+ int fd;
|
|
|
389
|
+ Symbols syms;
|
|
|
390
|
+
|
|
|
391
|
+ syms = newSyms(fname);
|
|
|
392
|
+ if ((fd = open(fname, O_RDONLY)) < 0)
|
|
|
393
|
+ quit("Could not open object file.");
|
|
|
394
|
+ read(fd, &hdr, sizeof(hdr));
|
|
|
395
|
+ verify_ident(&hdr);
|
|
|
396
|
+ if (!find_stables(&hdr, fd, syms)) {
|
|
|
397
|
+ deleteSyms(syms);
|
|
|
398
|
+ syms = 0;
|
|
|
399
|
+ }
|
|
|
400
|
+ close(fd);
|
|
|
401
|
+
|
|
|
402
|
+ return syms;
|
|
|
403
|
+}
|
|
|
404
|
+
|
|
|
405
|
+static void readDynoData(Symbols syms, int pid)
|
|
|
406
|
+{
|
|
|
407
|
+ int val, done;
|
|
|
408
|
+ Elf32_Addr addr;
|
|
|
409
|
+ const Elf32_Sym *dyn = lookupSymInTable("_DYNAMIC", syms);
|
|
|
410
|
+
|
|
|
411
|
+ for (errno = done = 0, addr = dyn->st_value; !done && !errno; addr += 8) {
|
|
|
412
|
+ val = ptrace(PTRACE_PEEKDATA, pid, addr, 0);
|
|
|
413
|
+ if (errno) break;
|
|
|
414
|
+ switch (val) {
|
|
|
415
|
+ case DT_NULL: done = 1; break;
|
|
|
416
|
+ case DT_DEBUG:
|
|
|
417
|
+ // point to the r_debug struct -- see link.h
|
|
|
418
|
+ DebugInfo = (Elf32_Addr) ptrace(PTRACE_PEEKDATA, pid, addr + 4, 0);
|
|
|
419
|
+ // point to the head of the link_map chain.
|
|
|
420
|
+ DebugInfo = (Elf32_Addr) ptrace(PTRACE_PEEKDATA, pid, DebugInfo + 4, 0);
|
|
|
421
|
+ break;
|
|
|
422
|
+ }
|
|
|
423
|
+ }
|
|
|
424
|
+ if (errno) {
|
|
|
425
|
+ perror("pstack");
|
|
|
426
|
+ quit("failed to read target.");
|
|
|
427
|
+ }
|
|
|
428
|
+}
|
|
|
429
|
+
|
|
|
430
|
+static void resolveSymbols(Symbols syms, int offset)
|
|
|
431
|
+{
|
|
|
432
|
+ Elf32_Sym *sym;
|
|
|
433
|
+ int i;
|
|
|
434
|
+
|
|
|
435
|
+ syms->baseAddr = offset;
|
|
|
436
|
+
|
|
|
437
|
+ for (i = 0, sym = syms->symbols; i < syms->nsyms; i++, sym++) {
|
|
|
438
|
+ if (sym->st_shndx && sym->st_shndx < syms->noffsets) {
|
|
|
439
|
+ sym->st_value += offset;
|
|
|
440
|
+ }
|
|
|
441
|
+ }
|
|
|
442
|
+}
|
|
|
443
|
+
|
|
|
444
|
+static void loadString(int pid, int addr, char *dp, int bytes)
|
|
|
445
|
+{
|
|
|
446
|
+ long *lp = (long *) dp, nr;
|
|
|
447
|
+
|
|
|
448
|
+ memset(dp, 0, bytes);
|
|
|
449
|
+ errno = 0;
|
|
|
450
|
+
|
|
|
451
|
+ addr = ptrace(PTRACE_PEEKDATA, pid, addr, 0);
|
|
|
452
|
+
|
|
|
453
|
+ for (nr = 0, errno = 0; !errno && bytes > 4 && strlen(dp) == nr;
|
|
|
454
|
+ addr += 4, bytes -= 4, nr += 4) {
|
|
|
455
|
+ *lp++ = ptrace(PTRACE_PEEKDATA, pid, addr, 0);
|
|
|
456
|
+ }
|
|
|
457
|
+
|
|
|
458
|
+ if (errno) {
|
|
|
459
|
+ perror("ptrace");
|
|
|
460
|
+ quit("loadString failed.");
|
|
|
461
|
+ }
|
|
|
462
|
+}
|
|
|
463
|
+
|
|
|
464
|
+#define OFFSET(f, s) ((int) ((char *) &(s).f - (char *) &(s)))
|
|
|
465
|
+static void readLinkMap(int pid, Elf32_Addr base,
|
|
|
466
|
+ struct link_map *lm, char *name, int namelen)
|
|
|
467
|
+{
|
|
|
468
|
+ errno = 0;
|
|
|
469
|
+
|
|
|
470
|
+ /* base address */
|
|
|
471
|
+ lm->l_addr = (Elf32_Addr) ptrace(PTRACE_PEEKDATA, pid,
|
|
|
472
|
+ base + OFFSET(l_addr, *lm), 0);
|
|
|
473
|
+ /* next element of link map chain */
|
|
|
474
|
+ if (!errno)
|
|
|
475
|
+ lm->l_next = (struct link_map *) ptrace(PTRACE_PEEKDATA, pid,
|
|
|
476
|
+ base + OFFSET(l_next, *lm), 0);
|
|
|
477
|
+ if (errno) {
|
|
|
478
|
+ perror("ptrace");
|
|
|
479
|
+ quit("can't read target.");
|
|
|
480
|
+ }
|
|
|
481
|
+
|
|
|
482
|
+ loadString(pid, base + OFFSET(l_name, *lm), name, namelen);
|
|
|
483
|
+}
|
|
|
484
|
+
|
|
|
485
|
+static void loadSymbols(int pid)
|
|
|
486
|
+{
|
|
|
487
|
+ char buf[256];
|
|
|
488
|
+ Symbols syms;
|
|
|
489
|
+ struct link_map lm;
|
|
|
490
|
+
|
|
|
491
|
+ sprintf(buf, "/proc/%d/exe", pid);
|
|
|
492
|
+ if (!(syms = loadSyms(buf))) {
|
|
|
493
|
+ fputs("(No symbols found)\n", stdout);
|
|
|
494
|
+ return;
|
|
|
495
|
+ }
|
|
|
496
|
+
|
|
|
497
|
+ readDynoData(syms, pid);
|
|
|
498
|
+ readLinkMap(pid, DebugInfo, &lm, buf, sizeof(buf));
|
|
|
499
|
+
|
|
|
500
|
+ for ( ; lm.l_next; ) {
|
|
|
501
|
+ readLinkMap(pid, (Elf32_Addr) lm.l_next, &lm, buf, sizeof(buf));
|
|
|
502
|
+ if (!(syms = loadSyms(buf))) {
|
|
|
503
|
+ printf("(No symbols found in %s)\n", buf);
|
|
|
504
|
+ continue;
|
|
|
505
|
+ }
|
|
|
506
|
+ resolveSymbols(syms, lm.l_addr);
|
|
|
507
|
+ if (!threads.found) checkForThreads(syms, pid);
|
|
|
508
|
+ }
|
|
|
509
|
+}
|
|
|
510
|
+
|
|
|
511
|
+/* ------------------------------ */
|
|
|
512
|
+
|
|
|
513
|
+static void print_pc(Elf32_Addr addr)
|
|
|
514
|
+{
|
|
|
515
|
+ Elf32_Sym *sym;
|
|
|
516
|
+ Symbols syms;
|
|
|
517
|
+
|
|
|
518
|
+ findCodeAddress(addr, &sym, &syms);
|
|
|
519
|
+
|
|
|
520
|
+ if (!sym)
|
|
|
521
|
+ printf("0x%08lx: ????", (unsigned long) addr);
|
|
|
522
|
+ else if (sym->st_value < addr)
|
|
|
523
|
+ printf("0x%08lx: %s + 0x%x", (unsigned long) addr,
|
|
|
524
|
+ &syms->strings[sym->st_name], addr - sym->st_value);
|
|
|
525
|
+ else
|
|
|
526
|
+ printf("0x%08lx: %s", (unsigned long) addr, &syms->strings[sym->st_name]);
|
|
|
527
|
+}
|
|
|
528
|
+
|
|
|
529
|
+/* ------------------------------ */
|
|
|
530
|
+
|
|
|
531
|
+#define MAXARGS 6
|
|
|
532
|
+
|
|
|
533
|
+static int crawl(int pid)
|
|
|
534
|
+{
|
|
|
535
|
+ unsigned long pc, fp, nextfp, nargs, i, arg;
|
|
|
536
|
+
|
|
|
537
|
+ errno = 0;
|
|
|
538
|
+ fp = -1;
|
|
|
539
|
+
|
|
|
540
|
+ pc = ptrace(PTRACE_PEEKUSER, pid, EIP * 4, 0);
|
|
|
541
|
+ if (!errno)
|
|
|
542
|
+ fp = ptrace(PTRACE_PEEKUSER, pid, EBP * 4, 0);
|
|
|
543
|
+
|
|
|
544
|
+ if (!errno) {
|
|
|
545
|
+ print_pc(pc);
|
|
|
546
|
+ for ( ; !errno && fp; ) {
|
|
|
547
|
+ nextfp = ptrace(PTRACE_PEEKDATA, pid, fp, 0);
|
|
|
548
|
+ if (errno) break;
|
|
|
549
|
+
|
|
|
550
|
+ nargs = (nextfp - fp - 8) / 4;
|
|
|
551
|
+ if (nargs > MAXARGS) nargs = MAXARGS;
|
|
|
552
|
+ if (nargs > 0) {
|
|
|
553
|
+ fputs(" (", stdout);
|
|
|
554
|
+ for (i = 1; i <= nargs; i++) {
|
|
|
555
|
+ arg = ptrace(PTRACE_PEEKDATA, pid, fp + 4 * (i + 1), 0);
|
|
|
556
|
+ if (errno) break;
|
|
|
557
|
+ printf("%lx", arg);
|
|
|
558
|
+ if (i < nargs) fputs(", ", stdout);
|
|
|
559
|
+ }
|
|
|
560
|
+ fputc(')', stdout);
|
|
|
561
|
+ nargs = nextfp - fp - 8 - (4 * nargs);
|
|
|
562
|
+ if (!errno && nargs > 0) printf(" + %lx\n", nargs);
|
|
|
563
|
+ else fputc('\n', stdout);
|
|
|
564
|
+ } else fputc('\n', stdout);
|
|
|
565
|
+
|
|
|
566
|
+ if (errno || !nextfp) break;
|
|
|
567
|
+ pc = ptrace(PTRACE_PEEKDATA, pid, fp + 4, 0);
|
|
|
568
|
+ fp = nextfp;
|
|
|
569
|
+ if (errno) break;
|
|
|
570
|
+ print_pc(pc);
|
|
|
571
|
+ }
|
|
|
572
|
+ }
|
|
|
573
|
+
|
|
|
574
|
+ if (errno) perror("crawl");
|
|
|
575
|
+ return errno;
|
|
|
576
|
+}
|
|
|
577
|
+
|
|
|
578
|
+/* ------------------------------ */
|
|
|
579
|
+
|
|
|
580
|
+static char cmd[128];
|
|
|
581
|
+
|
|
|
582
|
+static char *cmdLine(int pid)
|
|
|
583
|
+{
|
|
|
584
|
+ int fd, len, i;
|
|
|
585
|
+
|
|
|
586
|
+ fd = -1;
|
|
|
587
|
+ sprintf(cmd, "/proc/%d/cmdline", pid);
|
|
|
588
|
+ if ((fd = open(cmd, O_RDONLY)) >= 0 &&
|
|
|
589
|
+ (len = read(fd, cmd, sizeof(cmd))) > 0) {
|
|
|
590
|
+ for (i = 0; i < len; i++) if (!cmd[i]) cmd[i] = ' ';
|
|
|
591
|
+ for ( ; len > 0 && cmd[len - 1] <= ' '; len--);
|
|
|
592
|
+ cmd[len] = 0;
|
|
|
593
|
+ if (len >= sizeof(cmd) - 4)
|
|
|
594
|
+ strcpy(&cmd[sizeof(cmd) - 4], "...");
|
|
|
595
|
+ }
|
|
|
596
|
+ if (fd < 0 || len <= 0) strcpy(cmd, "(command line?)");
|
|
|
597
|
+ if (fd >= 0) close(fd);
|
|
|
598
|
+
|
|
|
599
|
+ return cmd;
|
|
|
600
|
+}
|
|
|
601
|
+
|
|
|
602
|
+int main(int argc, char **argv)
|
|
|
603
|
+{
|
|
|
604
|
+ int i;
|
|
|
605
|
+
|
|
|
606
|
+ /* Arrange to detach if we get an unexpected signal. This prevents
|
|
|
607
|
+ threads from being left in a suspended state if (for example) we
|
|
|
608
|
+ try to get a stack trace from a threaded process which has
|
|
|
609
|
+ been stripped. */
|
|
|
610
|
+ for (i = 0; i < NSIG; i++)
|
|
|
611
|
+ if (i != SIGCHLD)
|
|
|
612
|
+ signal (i, handle_signal);
|
|
|
613
|
+
|
|
|
614
|
+ for (argc--, argv++; argc > 0; argc--, argv++) {
|
|
|
615
|
+ thePid = atoi(*argv);
|
|
|
616
|
+ if (!thePid || thePid == getpid()) {
|
|
|
617
|
+ fprintf(stderr, "Invalid PID %d\n", thePid);
|
|
|
618
|
+ continue;
|
|
|
619
|
+ }
|
|
|
620
|
+
|
|
|
621
|
+ if (attach(thePid) != 0) {
|
|
|
622
|
+ thePid = 0;
|
|
|
623
|
+ fprintf(stderr, "Could not attach to target.\n");
|
|
|
624
|
+ } else {
|
|
|
625
|
+ printf("\n%d: %s\n", thePid, cmdLine(thePid));
|
|
|
626
|
+ loadSymbols(thePid);
|
|
|
627
|
+ if (threads.found) {
|
|
|
628
|
+ for (i = 0; i < threads.npids; i++) {
|
|
|
629
|
+ if (threads.attached[i]) {
|
|
|
630
|
+ printf("----- Thread %d -----\n", threads.pids[i]);
|
|
|
631
|
+ if (crawl(threads.pids[i]) != 0)
|
|
|
632
|
+ fprintf(stderr, "Error tracing through thread %d\n",
|
|
|
633
|
+ threads.pids[i]);
|
|
|
634
|
+ }
|
|
|
635
|
+ }
|
|
|
636
|
+ } else if (crawl(thePid) != 0)
|
|
|
637
|
+ fprintf(stderr, "Error tracing through process %d\n", thePid);
|
|
|
638
|
+ }
|
|
|
639
|
+
|
|
|
640
|
+ detachall();
|
|
|
641
|
+ resetData();
|
|
|
642
|
+ }
|
|
|
643
|
+
|
|
|
644
|
+ exit(0);
|
|
|
645
|
+}
|
