projects / deliverable / binutils-gdb.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
2000-06-14 Jim Blandy <jimb@redhat.com>
[deliverable/binutils-gdb.git] / gdb / proc-api.c
CommitLineData
0fda6bd2
JM		 1/* Machine independent support for SVR4 /proc (process file system) for GDB.
2 Copyright 1999 Free Software Foundation, Inc.
3 Written by Michael Snyder at Cygnus Solutions.
4 Based on work by Fred Fish, Stu Grossman, Geoff Noer, and others.
5
6This file is part of GDB.
7
8This program is free software; you can redistribute it and/or modify
9it under the terms of the GNU General Public License as published by
10the Free Software Foundation; either version 2 of the License, or
11(at your option) any later version.
12
13This program is distributed in the hope that it will be useful,
14but WITHOUT ANY WARRANTY; without even the implied warranty of
15MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16GNU General Public License for more details.
17
18You should have received a copy of the GNU General Public License
19along with this program; if not, write to the Free Software Foundation,
20Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
21
22/*
23 * Pretty-print trace of api calls to the /proc api
24 * (ioctl or read/write calls).
25 *
26 */
27
28#include "defs.h"
29#include "gdbcmd.h"
30
31#if defined (NEW_PROC_API)
32#define _STRUCTURED_PROC 1
33#endif
34
35#include <stdio.h>
36#include <sys/types.h>
37#include <sys/procfs.h>
38#include <sys/proc.h> /* for struct proc */
6e8cb14a 39#ifdef HAVE_SYS_USER_H
0fda6bd2 40#include <sys/user.h> /* for struct user */
6e8cb14a 41#endif
0fda6bd2
JM		 42#include <fcntl.h> /* for O_RDWR etc. */
43#include <sys/wait.h>
44
45#include "proc-utils.h"
46
47/* Much of the information used in the /proc interface, particularly for
48 printing status information, is kept as tables of structures of the
49 following form. These tables can be used to map numeric values to
50 their symbolic names and to a string that describes their specific use. */
51
52struct trans {
53 long value; /* The numeric value */
54 char *name; /* The equivalent symbolic value */
55 char *desc; /* Short description of value */
56};
57
103b3ef5 58static int procfs_trace = 0;
0fda6bd2
JM		 59static FILE *procfs_file = NULL;
60static char *procfs_filename = "procfs_trace";
61
103b3ef5
MS		 62static void
63prepare_to_trace (void)
64{
65 if (procfs_trace) /* if procfs tracing turned on */
66 if (procfs_file == NULL) /* if output file not yet open */
67 if (procfs_filename != NULL) /* if output filename known */
68 procfs_file = fopen (procfs_filename, "a"); /* open output file */
69}
70
0fda6bd2
JM		 71static void
72set_procfs_trace_cmd (args, from_tty, c)
73 char *args;
74 int from_tty;
75 struct cmd_list_element *c;
76{
77#if 0 /* not sure what I might actually need to do here, if anything */
78 if (procfs_file)
79 fflush (procfs_file);
80#endif
81}
82
83static void
84set_procfs_file_cmd (args, from_tty, c)
85 char *args;
86 int from_tty;
87 struct cmd_list_element *c;
88{
89 /* Just changed the filename for procfs tracing.
90 If a file was already open, close it. */
91 if (procfs_file)
92 fclose (procfs_file);
93 procfs_file = NULL;
94}
95
96
97#ifndef NEW_PROC_API
98
99static struct trans ioctl_table[] = {
100#ifdef PIOCACINFO /* irix */
101 { PIOCACINFO, "PIOCACINFO", "get process account info" },
102#endif
103 { PIOCACTION, "PIOCACTION", "get signal action structs" },
104#ifdef PIOCARGUMENTS /* osf */
105 { PIOCARGUMENTS, "PIOCARGUMENTS", "command line args" },
106#endif
107#ifdef PIOCAUXV /* solaris aux vectors */
108 { PIOCAUXV, "PIOCAUXV", "get aux vector" },
109 { PIOCNAUXV, "PIOCNAUXV", "get number of aux vector entries" },
110#endif /* AUXV */
111 { PIOCCFAULT, "PIOCCFAULT", "clear current fault" },
112 { PIOCCRED, "PIOCCRED", "get process credentials" },
113#ifdef PIOCENEVCTRS /* irix event counters */
114 { PIOCENEVCTRS, "PIOCENEVCTRS", "acquire and start event counters" },
115 { PIOCGETEVCTRL, "PIOCGETEVCTRL", "get control info of event counters" },
116 { PIOCGETEVCTRS, "PIOCGETEVCTRS", "dump event counters" },
117 { PIOCGETPREVCTRS, "PIOCGETPREVCTRS", "dump event counters & prusage info" },
118 { PIOCRELEVCTRS, "PIOCRELEVCTRS", "release/stop event counters" },
119 { PIOCSETEVCTRL, "PIOCSETEVCTRL", "set control info of event counters" },
120 { PIOCGETPTIMER, "PIOCGETPTIMER", "get process timers" },
121#endif /* irix event counters */
122 { PIOCGENTRY, "PIOCGENTRY", "get traced syscall entry set" },
6e8cb14a 123#if defined (PIOCGETPR)
0fda6bd2 124 { PIOCGETPR, "PIOCGETPR", "read struct proc" },
6e8cb14a
AC		 125#endif
126#if defined (PIOCGETU)
0fda6bd2 127 { PIOCGETU, "PIOCGETU", "read user area" },
6e8cb14a 128#endif
0fda6bd2
JM		 129#if defined (PIOCGETUTK) && (defined(KERNEL) || defined(SHOW_UTT)) /* osf */
130 { PIOCGETUTK, "PIOCGETUTK", "get the utask struct" },
131#endif
132 { PIOCGEXIT, "PIOCGEXIT", "get traced syscall exit set" },
133 { PIOCGFAULT, "PIOCGFAULT", "get traced fault set" },
134#ifdef PIOCGFPCR /* osf */
135 { PIOCGFPCR, "PIOCGFPCR", "get FP control register" },
136 { PIOCSFPCR, "PIOCSFPCR", "set FP conrtol register" },
137#endif
138 { PIOCGFPREG, "PIOCGFPREG", "get floating point registers" },
139 { PIOCGHOLD, "PIOCGHOLD", "get held signal set" },
140 { PIOCGREG, "PIOCGREG", "get general registers" },
141 { PIOCGROUPS, "PIOCGROUPS", "get supplementary groups" },
142#ifdef PIOCGSPCACT /* osf */
143 { PIOCGSPCACT, "PIOCGSPCACT", "get special action" },
144 { PIOCSSPCACT, "PIOCSSPCACT", "set special action" },
145#endif
146 { PIOCGTRACE, "PIOCGTRACE", "get traced signal set" },
147#ifdef PIOCGWATCH /* irix watchpoints */
148 { PIOCGWATCH, "PIOCGWATCH", "get watchpoint" },
149 { PIOCSWATCH, "PIOCSWATCH", "set watchpoint" },
150 { PIOCNWATCH, "PIOCNWATCH", "get number of watchpoints" },
151#endif /* irix watchpoints */
152#ifdef PIOCGWIN /* solaris sparc */
153 { PIOCGWIN, "PIOCGWIN", "get gwindows_t" },
154#endif
155#ifdef PIOCGXREG /* solaris sparc extra regs */
156 { PIOCGXREGSIZE, "PIOCXREGSIZE", "get extra register state size" },
157 { PIOCGXREG, "PIOCGXREG", "get extra register state" },
158 { PIOCSXREG, "PIOCSXREG", "set extra register state" },
159#endif /* XREG */
160 { PIOCKILL, "PIOCKILL", "send signal" },
161#ifdef PIOCLDT /* solaris i386 */
162 { PIOCLDT, "PIOCLDT", "get LDT" },
163 { PIOCNLDT, "PIOCNLDT", "get number of LDT entries" },
164#endif
165#ifdef PIOCLSTATUS /* solaris and unixware */
166 { PIOCLSTATUS, "PIOCLSTATUS", "get status of all lwps" },
167 { PIOCLUSAGE, "PIOCLUSAGE", "get resource usage of all lwps" },
168 { PIOCOPENLWP, "PIOCOPENLWP", "get lwp file descriptor" },
169 { PIOCLWPIDS, "PIOCLWPIDS", "get lwp identifiers" },
170#endif /* LWP */
171 { PIOCMAP, "PIOCMAP", "get memory map information" },
172 { PIOCMAXSIG, "PIOCMAXSIG", "get max signal number" },
173 { PIOCNICE, "PIOCNICE", "set nice priority" },
174 { PIOCNMAP, "PIOCNMAP", "get number of memory mappings" },
175 { PIOCOPENM, "PIOCOPENM", "open mapped object for reading" },
176#ifdef PIOCOPENMOBS /* osf */
177 { PIOCOPENMOBS, "PIOCOPENMOBS", "open mapped object" },
178#endif
179#ifdef PIOCOPENPD /* solaris */
180 { PIOCOPENPD, "PIOCOPENPD", "get page data file descriptor" },
181#endif
182 { PIOCPSINFO, "PIOCPSINFO", "get ps(1) information" },
183 { PIOCRESET, "PIOCRESET", "reset process flags" },
184 { PIOCRFORK, "PIOCRFORK", "reset inherit-on-fork flag" },
185 { PIOCRRLC, "PIOCRRLC", "reset run-on-last-close flag" },
186 { PIOCRUN, "PIOCRUN", "make process runnable" },
187#ifdef PIOCSAVECCNTRS /* irix */
188 { PIOCSAVECCNTRS, "PIOCSAVECCNTRS", "parent gets child cntrs" },
189#endif
190 { PIOCSENTRY, "PIOCSENTRY", "set traced syscall entry set" },
191 { PIOCSET, "PIOCSET", "set process flags" },
192 { PIOCSEXIT, "PIOCSEXIT", "set traced syscall exit set" },
193 { PIOCSFAULT, "PIOCSFAULT", "set traced fault set" },
194 { PIOCSFORK, "PIOCSFORK", "set inherit-on-fork flag" },
195 { PIOCSFPREG, "PIOCSFPREG", "set floating point registers" },
196 { PIOCSHOLD, "PIOCSHOLD", "set held signal set" },
197 { PIOCSREG, "PIOCSREG", "set general registers" },
198 { PIOCSRLC, "PIOCSRLC", "set run-on-last-close flag" },
199 { PIOCSSIG, "PIOCSSIG", "set current signal" },
200 { PIOCSTATUS, "PIOCSTATUS", "get process status" },
201 { PIOCSTOP, "PIOCSTOP", "post stop request" },
202 { PIOCSTRACE, "PIOCSTRACE", "set traced signal set" },
203 { PIOCUNKILL, "PIOCUNKILL", "delete a signal" },
204#ifdef PIOCUSAGE /* solaris */
205 { PIOCUSAGE, "PIOCUSAGE", "get resource usage" },
206#endif
207 { PIOCWSTOP, "PIOCWSTOP", "wait for process to stop" },
208
209#ifdef PIOCNTHR /* osf threads */
210 { PIOCNTHR, "PIOCNTHR", "get thread count" },
211 { PIOCRTINH, "PIOCRTINH", "reset inherit-on-thread-creation" },
212 { PIOCSTINH, "PIOCSTINH", "set inherit-on-thread-creation" },
213 { PIOCTLIST, "PIOCTLIST", "get thread ids" },
214 { PIOCXPTH, "PIOCXPTH", "translate port to thread handle" },
215 { PIOCTRUN, "PIOCTRUN", "make thread runnable" },
216 { PIOCTSTATUS, "PIOCTSTATUS", "get thread status" },
217 { PIOCTSTOP, "PIOCTSTOP", "stop a thread" },
218 /* ... TGTRACE TSTRACE TSSIG TKILL TUNKILL TCFAULT TGFAULT TSFAULT
219 TGFPREG TSFPREG TGREG TSREG TACTION TTERM TABRUN TGENTRY TSENTRY
220 TGEXIT TSEXIT TSHOLD ... thread functions */
221#endif /* osf threads */
222 { -1, NULL, NULL }
223};
224
225int
226ioctl_with_trace (fd, opcode, ptr, file, line)
227 int fd;
228 long opcode;
229 void *ptr;
230 char *file;
231 int line;
232{
233 int i, ret, arg1;
234
103b3ef5
MS		 235 prepare_to_trace ();
236
0fda6bd2
JM		 237 if (procfs_trace)
238 {
0fda6bd2
JM		 239 for (i = 0; ioctl_table[i].name != NULL; i++)
240 if (ioctl_table[i].value == opcode)
241 break;
242
243 if (info_verbose)
244 fprintf (procfs_file ? procfs_file : stdout,
245 "%s:%d -- ", file, line);
246 switch (opcode) {
247 case PIOCSET:
248 arg1 = ptr ? *(long *) ptr : 0;
249 fprintf (procfs_file ? procfs_file : stdout,
250 "ioctl (PIOCSET, %s) %s\n",
251 arg1 == PR_FORK ? "PR_FORK" :
252 arg1 == PR_RLC ? "PR_RLC" :
253#ifdef PR_ASYNC
254 arg1 == PR_ASYNC ? "PR_ASYNC" :
255#endif
256 "<unknown flag>",
257 info_verbose ? ioctl_table[i].desc : "");
258 break;
259 case PIOCRESET:
260 arg1 = ptr ? *(long *) ptr : 0;
261 fprintf (procfs_file ? procfs_file : stdout,
262 "ioctl (PIOCRESET, %s) %s\n",
263 arg1 == PR_FORK ? "PR_FORK" :
264 arg1 == PR_RLC ? "PR_RLC" :
265#ifdef PR_ASYNC
266 arg1 == PR_ASYNC ? "PR_ASYNC" :
267#endif
268 "<unknown flag>",
269 info_verbose ? ioctl_table[i].desc : "");
270 break;
271 case PIOCSTRACE:
272 fprintf (procfs_file ? procfs_file : stdout,
273 "ioctl (PIOCSTRACE) ");
274 proc_prettyfprint_signalset (procfs_file ? procfs_file : stdout,
275 (sigset_t *) ptr, 0);
276 break;
277 case PIOCSFAULT:
278 fprintf (procfs_file ? procfs_file : stdout,
279 "ioctl (%s) ",
280 opcode == PIOCSFAULT ? "PIOCSFAULT" : "PIOCGFAULT");
281 proc_prettyfprint_faultset (procfs_file ? procfs_file : stdout,
282 (fltset_t *) ptr, 0);
283 break;
284 case PIOCSENTRY:
285 fprintf (procfs_file ? procfs_file : stdout,
286 "ioctl (%s) ",
287 opcode == PIOCSENTRY ? "PIOCSENTRY" : "PIOCGENTRY");
288 proc_prettyfprint_syscalls (procfs_file ? procfs_file : stdout,
289 (sysset_t *) ptr, 0);
290 break;
291 case PIOCSEXIT:
292 fprintf (procfs_file ? procfs_file : stdout,
293 "ioctl (%s) ",
294 opcode == PIOCSEXIT ? "PIOCSEXIT" : "PIOCGEXIT");
295 proc_prettyfprint_syscalls (procfs_file ? procfs_file : stdout,
296 (sysset_t *) ptr, 0);
297 break;
298 case PIOCSHOLD:
299 fprintf (procfs_file ? procfs_file : stdout,
300 "ioctl (%s) ",
301 opcode == PIOCSHOLD ? "PIOCSHOLD" : "PIOCGHOLD");
302 proc_prettyfprint_signalset (procfs_file ? procfs_file : stdout,
303 (sigset_t *) ptr, 0);
304 break;
305 case PIOCSSIG:
306 fprintf (procfs_file ? procfs_file : stdout,
307 "ioctl (PIOCSSIG) ");
308 proc_prettyfprint_signal (procfs_file ? procfs_file : stdout,
309 ptr ? ((siginfo_t *) ptr)->si_signo : 0,
310 0);
311 fprintf (procfs_file ? procfs_file : stdout, "\n");
312 break;
313 case PIOCRUN:
314 fprintf (procfs_file ? procfs_file : stdout,
315 "ioctl (PIOCRUN) ");
316
317 arg1 = ptr ? *(long *) ptr : 0;
318 if (arg1 & PRCSIG)
319 fprintf (procfs_file ? procfs_file : stdout, "clearSig ");
320 if (arg1 & PRCFAULT)
321 fprintf (procfs_file ? procfs_file : stdout, "clearFlt ");
322 if (arg1 & PRSTRACE)
323 fprintf (procfs_file ? procfs_file : stdout, "setTrace ");
324 if (arg1 & PRSHOLD)
325 fprintf (procfs_file ? procfs_file : stdout, "setHold ");
326 if (arg1 & PRSFAULT)
327 fprintf (procfs_file ? procfs_file : stdout, "setFlt ");
328 if (arg1 & PRSVADDR)
329 fprintf (procfs_file ? procfs_file : stdout, "setVaddr ");
330 if (arg1 & PRSTEP)
331 fprintf (procfs_file ? procfs_file : stdout, "step ");
332 if (arg1 & PRSABORT)
333 fprintf (procfs_file ? procfs_file : stdout, "syscallAbort ");
334 if (arg1 & PRSTOP)
335 fprintf (procfs_file ? procfs_file : stdout, "stopReq ");
336
337 fprintf (procfs_file ? procfs_file : stdout, "\n");
338 break;
339 case PIOCKILL:
340 fprintf (procfs_file ? procfs_file : stdout,
341 "ioctl (PIOCKILL) ");
342 proc_prettyfprint_signal (procfs_file ? procfs_file : stdout,
343 ptr ? *(long *) ptr : 0, 0);
344 fprintf (procfs_file ? procfs_file : stdout, "\n");
345 break;
346#ifdef PIOCSSPCACT
347 case PIOCSSPCACT:
348 fprintf (procfs_file ? procfs_file : stdout,
349 "ioctl (PIOCSSPCACT) ");
350 arg1 = ptr ? *(long *) ptr : 0;
351 if (arg1 & PRFS_STOPFORK)
352 fprintf (procfs_file ? procfs_file : stdout, "stopFork ");
353 if (arg1 & PRFS_STOPEXEC)
354 fprintf (procfs_file ? procfs_file : stdout, "stopExec ");
355 if (arg1 & PRFS_STOPTERM)
356 fprintf (procfs_file ? procfs_file : stdout, "stopTerm ");
357 if (arg1 & PRFS_STOPTCR)
358 fprintf (procfs_file ? procfs_file : stdout, "stopThreadCreate ");
359 if (arg1 & PRFS_STOPTTERM)
360 fprintf (procfs_file ? procfs_file : stdout, "stopThreadTerm ");
361 if (arg1 & PRFS_KOLC)
362 fprintf (procfs_file ? procfs_file : stdout, "killOnLastClose ");
363 fprintf (procfs_file ? procfs_file : stdout, "\n");
364 break;
365#endif /* PIOCSSPCACT */
366 default:
367 if (ioctl_table[i].name)
368 fprintf (procfs_file ? procfs_file : stdout,
369 "ioctl (%s) %s\n",
370 ioctl_table[i].name,
371 info_verbose ? ioctl_table[i].desc : "");
372 else
373 fprintf (procfs_file ? procfs_file : stdout,
374 "ioctl (<unknown %ld (0x%lx)) \n", opcode, opcode);
375 break;
376 }
377 if (procfs_file)
378 fflush (procfs_file);
379 }
103b3ef5 380 errno = 0;
0fda6bd2
JM		 381 ret = ioctl (fd, opcode, ptr);
382 if (procfs_trace && ret < 0)
383 {
384 fprintf (procfs_file ? procfs_file : stdout,
103b3ef5 385 "[ioctl (%s) FAILED! (%s)]\n",
0fda6bd2 386 ioctl_table[i].name != NULL ?
103b3ef5
MS		 387 ioctl_table[i].name : "<unknown>",
388 safe_strerror (errno));
0fda6bd2
JM		 389 if (procfs_file)
390 fflush (procfs_file);
391 }
392
393 return ret;
394}
395
396#else /* NEW_PROC_API */
397
398static struct trans rw_table[] = {
399#ifdef PCAGENT /* solaris */
400 { PCAGENT, "PCAGENT", "create agent lwp with regs from argument" },
401#endif
402 { PCCFAULT, "PCCFAULT", "clear current fault" },
403#ifdef PCCSIG /* solaris */
404 { PCCSIG, "PCCSIG", "clear current signal" },
405#endif
406 { PCDSTOP, "PCDSTOP", "post stop request" },
407 { PCKILL, "PCKILL", "post a signal" },
408 { PCNICE, "PCNICE", "set nice priority" },
409#ifdef PCREAD /* solaris */
410 { PCREAD, "PCREAD", "read from the address space" },
411 { PCWRITE, "PCWRITE", "write to the address space" },
412#endif
413#ifdef PCRESET /* unixware */
414 { PCRESET, "PCRESET", "unset modes" },
415#endif
416 { PCRUN, "PCRUN", "make process/lwp runnable" },
417#ifdef PCSASRS /* solaris 2.7 only */
418 { PCSASRS, "PCSASRS", "set ancillary state registers" },
419#endif
420#ifdef PCSCRED /* solaris */
421 { PCSCRED, "PCSCRED", "set process credentials" },
422#endif
423 { PCSENTRY, "PCSENTRY", "set traced syscall entry set" },
424 { PCSET, "PCSET", "set modes" },
425 { PCSEXIT, "PCSEXIT", "set traced syscall exit set" },
426 { PCSFAULT, "PCSFAULT", "set traced fault set" },
427 { PCSFPREG, "PCSFPREG", "set floating point registers" },
428 { PCSHOLD, "PCSHOLD", "set signal mask" },
429 { PCSREG, "PCSREG", "set general registers" },
430 { PCSSIG, "PCSSIG", "set current signal" },
431 { PCSTOP, "PCSTOP", "post stop request and wait" },
432 { PCSTRACE, "PCSTRACE", "set traced signal set" },
433#ifdef PCSVADDR /* solaris */
434 { PCSVADDR, "PCSVADDR", "set pc virtual address" },
435#endif
436#ifdef PCSXREG /* solaris sparc only */
437 { PCSXREG, "PCSXREG", "set extra registers" },
438#endif
439#ifdef PCTWSTOP /* solaris */
440 { PCTWSTOP, "PCTWSTOP", "wait for stop, with timeout arg" },
441#endif
442 { PCUNKILL, "PCUNKILL", "delete a pending signal" },
443#ifdef PCUNSET /* solaris */
444 { PCUNSET, "PCUNSET", "unset modes" },
445#endif
446#ifdef PCWATCH /* solaris */
447 { PCWATCH, "PCWATCH", "set/unset watched memory area" },
448#endif
449 { PCWSTOP, "PCWSTOP", "wait for process/lwp to stop, no timeout" },
450 { 0, NULL, NULL }
451};
452
453static off_t lseek_offset;
454
455int
103b3ef5 456write_with_trace (fd, varg, len, file, line)
0fda6bd2 457 int fd;
103b3ef5 458 void *varg;
0fda6bd2
JM		 459 size_t len;
460 char *file;
461 int line;
462{
463 int i;
0fda6bd2 464 int ret;
103b3ef5 465 long *arg = (long *) varg;
0fda6bd2 466
103b3ef5 467 prepare_to_trace ();
0fda6bd2
JM		 468 if (procfs_trace)
469 {
103b3ef5 470 long opcode = arg[0];
0fda6bd2
JM		 471 for (i = 0; rw_table[i].name != NULL; i++)
472 if (rw_table[i].value == opcode)
473 break;
474
475 if (info_verbose)
476 fprintf (procfs_file ? procfs_file : stdout,
477 "%s:%d -- ", file, line);
478 switch (opcode) {
479 case PCSET:
480 fprintf (procfs_file ? procfs_file : stdout,
481 "write (PCSET, %s) %s\n",
482 arg[1] == PR_FORK ? "PR_FORK" :
483 arg[1] == PR_RLC ? "PR_RLC" :
484#ifdef PR_ASYNC
485 arg[1] == PR_ASYNC ? "PR_ASYNC" :
486#endif
487 "<unknown flag>",
488 info_verbose ? rw_table[i].desc : "");
489 break;
490#ifdef PCUNSET
491 case PCUNSET:
492#endif
493#ifdef PCRESET
494 case PCRESET:
495#endif
496 fprintf (procfs_file ? procfs_file : stdout,
497 "write (PCRESET, %s) %s\n",
498 arg[1] == PR_FORK ? "PR_FORK" :
499 arg[1] == PR_RLC ? "PR_RLC" :
500#ifdef PR_ASYNC
501 arg[1] == PR_ASYNC ? "PR_ASYNC" :
502#endif
503 "<unknown flag>",
504 info_verbose ? rw_table[i].desc : "");
505 break;
506 case PCSTRACE:
507 fprintf (procfs_file ? procfs_file : stdout,
508 "write (PCSTRACE) ");
509 proc_prettyfprint_signalset (procfs_file ? procfs_file : stdout,
510 (sigset_t *) &arg[1], 0);
511 break;
512 case PCSFAULT:
513 fprintf (procfs_file ? procfs_file : stdout,
514 "write (PCSFAULT) ");
515 proc_prettyfprint_faultset (procfs_file ? procfs_file : stdout,
516 (fltset_t *) &arg[1], 0);
517 break;
518 case PCSENTRY:
519 fprintf (procfs_file ? procfs_file : stdout,
520 "write (PCSENTRY) ");
521 proc_prettyfprint_syscalls (procfs_file ? procfs_file : stdout,
522 (sysset_t *) &arg[1], 0);
523 break;
524 case PCSEXIT:
525 fprintf (procfs_file ? procfs_file : stdout,
526 "write (PCSEXIT) ");
527 proc_prettyfprint_syscalls (procfs_file ? procfs_file : stdout,
528 (sysset_t *) &arg[1], 0);
529 break;
530 case PCSHOLD:
531 fprintf (procfs_file ? procfs_file : stdout,
532 "write (PCSHOLD) ");
533 proc_prettyfprint_signalset (procfs_file ? procfs_file : stdout,
534 (sigset_t *) &arg[1], 0);
535 break;
536 case PCSSIG:
537 fprintf (procfs_file ? procfs_file : stdout,
538 "write (PCSSIG) ");
539 proc_prettyfprint_signal (procfs_file ? procfs_file : stdout,
540 arg[1] ? ((siginfo_t *) &arg[1])->si_signo
541 : 0,
542 0);
543 fprintf (procfs_file ? procfs_file : stdout, "\n");
544 break;
545 case PCRUN:
546 fprintf (procfs_file ? procfs_file : stdout,
547 "write (PCRUN) ");
548 if (arg[1] & PRCSIG)
549 fprintf (procfs_file ? procfs_file : stdout, "clearSig ");
550 if (arg[1] & PRCFAULT)
551 fprintf (procfs_file ? procfs_file : stdout, "clearFlt ");
552 if (arg[1] & PRSTEP)
553 fprintf (procfs_file ? procfs_file : stdout, "step ");
554 if (arg[1] & PRSABORT)
555 fprintf (procfs_file ? procfs_file : stdout, "syscallAbort ");
556 if (arg[1] & PRSTOP)
557 fprintf (procfs_file ? procfs_file : stdout, "stopReq ");
558
559 fprintf (procfs_file ? procfs_file : stdout, "\n");
560 break;
561 case PCKILL:
562 fprintf (procfs_file ? procfs_file : stdout,
563 "write (PCKILL) ");
564 proc_prettyfprint_signal (procfs_file ? procfs_file : stdout,
565 arg[1], 0);
566 fprintf (procfs_file ? procfs_file : stdout, "\n");
567 break;
568 default:
569 {
570 static unsigned char break_insn[] = BREAKPOINT;
571
572 if (len == sizeof (break_insn) &&
573 memcmp (arg, &break_insn, len) == 0)
574 fprintf (procfs_file ? procfs_file : stdout,
b943d152
MS		 575 "write (<breakpoint at 0x%08lx>) \n",
576 (unsigned long) lseek_offset);
0fda6bd2
JM		 577 else if (rw_table[i].name)
578 fprintf (procfs_file ? procfs_file : stdout,
579 "write (%s) %s\n",
580 rw_table[i].name,
581 info_verbose ? rw_table[i].desc : "");
582 else
583 {
584 if (lseek_offset != -1)
585 fprintf (procfs_file ? procfs_file : stdout,
b943d152
MS		 586 "write (<unknown>, %lud bytes at 0x%08lx) \n",
587 (unsigned long) len, (unsigned long) lseek_offset);
0fda6bd2
JM		 588 else
589 fprintf (procfs_file ? procfs_file : stdout,
b943d152
MS		 590 "write (<unknown>, %lud bytes) \n",
591 (unsigned long) len);
0fda6bd2
JM		 592 }
593 break;
594 }
595 }
596 if (procfs_file)
597 fflush (procfs_file);
598 }
103b3ef5 599 errno = 0;
b943d152 600 ret = write (fd, (void *) arg, len);
0fda6bd2
JM		 601 if (procfs_trace && ret != len)
602 {
603 fprintf (procfs_file ? procfs_file : stdout,
103b3ef5 604 "[write (%s) FAILED! (%s)]\n",
0fda6bd2 605 rw_table[i].name != NULL ?
103b3ef5
MS		 606 rw_table[i].name : "<unknown>",
607 safe_strerror (errno));
0fda6bd2
JM		 608 if (procfs_file)
609 fflush (procfs_file);
610 }
611
612 lseek_offset = -1;
613 return ret;
614}
615
616off_t
617lseek_with_trace (fd, offset, whence, file, line)
618 int fd;
619 off_t offset;
620 int whence;
621 char *file;
622 int line;
623{
624 off_t ret;
625
103b3ef5
MS		 626 prepare_to_trace ();
627 errno = 0;
0fda6bd2
JM		 628 ret = lseek (fd, offset, whence);
629 lseek_offset = ret;
103b3ef5 630 if (procfs_trace && (ret == -1 || errno != 0))
0fda6bd2 631 {
0fda6bd2 632 fprintf (procfs_file ? procfs_file : stdout,
103b3ef5
MS		 633 "[lseek (0x%08lx) FAILED! (%s)]\n",
634 (unsigned long) offset, safe_strerror (errno));
0fda6bd2
JM		 635 if (procfs_file)
636 fflush (procfs_file);
637 }
638
639 return ret;
640}
641
642#endif /* NEW_PROC_API */
643
644int
645open_with_trace (filename, mode, file, line)
646 char *filename;
647 int mode;
648 char *file;
649 int line;
650{
103b3ef5 651 int ret;
0fda6bd2 652
103b3ef5
MS		 653 prepare_to_trace ();
654 errno = 0;
655 ret = open (filename, mode);
0fda6bd2
JM		 656 if (procfs_trace)
657 {
0fda6bd2
JM		 658 if (info_verbose)
659 fprintf (procfs_file ? procfs_file : stdout,
660 "%s:%d -- ", file, line);
103b3ef5
MS		 661
662 if (errno)
663 {
664 fprintf (procfs_file ? procfs_file : stdout,
665 "[open FAILED! (%s) line %d]\\n",
666 safe_strerror (errno), line);
667 }
668 else
669 {
670 fprintf (procfs_file ? procfs_file : stdout,
671 "%d = open (%s, ", ret, filename);
672 if (mode == O_RDONLY)
673 fprintf (procfs_file ? procfs_file : stdout, "O_RDONLY) %d\n",
674 line);
675 else if (mode == O_WRONLY)
676 fprintf (procfs_file ? procfs_file : stdout, "O_WRONLY) %d\n",
677 line);
678 else if (mode == O_RDWR)
679 fprintf (procfs_file ? procfs_file : stdout, "O_RDWR) %d\n",
680 line);
681 }
0fda6bd2
JM		 682 if (procfs_file)
683 fflush (procfs_file);
684 }
685
686 return ret;
687}
688
689int
690close_with_trace (fd, file, line)
691 int fd;
692 char *file;
693 int line;
694{
103b3ef5 695 int ret;
0fda6bd2 696
103b3ef5
MS		 697 prepare_to_trace ();
698 errno = 0;
699 ret = close (fd);
0fda6bd2
JM		 700 if (procfs_trace)
701 {
0fda6bd2
JM		 702 if (info_verbose)
703 fprintf (procfs_file ? procfs_file : stdout,
704 "%s:%d -- ", file, line);
103b3ef5
MS		 705 if (errno)
706 fprintf (procfs_file ? procfs_file : stdout,
707 "[close FAILED! (%s)]\n", safe_strerror (errno));
708 else
709 fprintf (procfs_file ? procfs_file : stdout,
710 "%d = close (%d)\n", ret, fd);
0fda6bd2
JM		 711 if (procfs_file)
712 fflush (procfs_file);
713 }
714
715 return ret;
716}
717
103b3ef5 718pid_t
0fda6bd2
JM		 719wait_with_trace (wstat, file, line)
720 int *wstat;
721 char *file;
722 int line;
723{
724 int ret, lstat = 0;
725
103b3ef5 726 prepare_to_trace ();
0fda6bd2
JM		 727 if (procfs_trace)
728 {
0fda6bd2
JM		 729 if (info_verbose)
730 fprintf (procfs_file ? procfs_file : stdout,
731 "%s:%d -- ", file, line);
732 fprintf (procfs_file ? procfs_file : stdout,
733 "wait (line %d) ", line);
734 if (procfs_file)
735 fflush (procfs_file);
736 }
103b3ef5 737 errno = 0;
0fda6bd2
JM		 738 ret = wait (&lstat);
739 if (procfs_trace)
740 {
103b3ef5
MS		 741 if (errno)
742 fprintf (procfs_file ? procfs_file : stdout,
743 "[wait FAILED! (%s)]\n", safe_strerror (errno));
744 else
745 fprintf (procfs_file ? procfs_file : stdout,
746 "returned pid %d, status 0x%x\n", ret, lstat);
0fda6bd2
JM		 747 if (procfs_file)
748 fflush (procfs_file);
749 }
750 if (wstat)
751 *wstat = lstat;
752
753 return ret;
754}
755
756void
757procfs_note (msg, file, line)
758 char *msg;
759 char *file;
760 int line;
761{
103b3ef5 762 prepare_to_trace ();
0fda6bd2
JM		 763 if (procfs_trace)
764 {
0fda6bd2
JM		 765 if (info_verbose)
766 fprintf (procfs_file ? procfs_file : stdout,
767 "%s:%d -- ", file, line);
768 fprintf (procfs_file ? procfs_file : stdout, msg);
769 if (procfs_file)
770 fflush (procfs_file);
771 }
772}
773
774void
775proc_prettyfprint_status (flags, why, what, thread)
776 long flags;
777 int why;
778 int what;
779 int thread;
780{
103b3ef5 781 prepare_to_trace ();
0fda6bd2
JM		 782 if (procfs_trace)
783 {
0fda6bd2
JM		 784 if (thread)
785 fprintf (procfs_file ? procfs_file : stdout,
786 "Thread %d: ", thread);
787
788 proc_prettyfprint_flags (procfs_file ? procfs_file : stdout,
789 flags, 0);
790
791 if (flags & (PR_STOPPED | PR_ISTOP))
792 proc_prettyfprint_why (procfs_file ? procfs_file : stdout,
793 why, what, 0);
794 if (procfs_file)
795 fflush (procfs_file);
796 }
797}
798
799
800void
801_initialize_proc_api ()
802{
803 struct cmd_list_element *c;
804
805 c = add_set_cmd ("procfs-trace", no_class,
806 var_boolean, (char *) &procfs_trace,
103b3ef5 807 "Set tracing for /proc api calls.\n", &setlist);
0fda6bd2
JM		 808
809 add_show_from_set (c, &showlist);
810 c->function.sfunc = set_procfs_trace_cmd;
811
812 c = add_set_cmd ("procfs-file", no_class, var_filename,
813 (char *) &procfs_filename,
814 "Set filename for /proc tracefile.\n", &setlist);
815
816 add_show_from_set (c, &showlist);
817 c->function.sfunc = set_procfs_file_cmd;
0fda6bd2 818}
GDB Binutils - Deliverables
This page took 0.079341 seconds and 4 git commands to generate.