1 /* Low-level child interface to ptrace.
3 Copyright (C) 1988-2022 Free Software Foundation, Inc.
5 This file is part of GDB.
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3 of the License, or
10 (at your option) any later version.
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program. If not, see <http://www.gnu.org/licenses/>. */
26 #include "nat/gdb_ptrace.h"
27 #include "gdbsupport/gdb_wait.h"
30 #include "inf-ptrace.h"
31 #include "inf-child.h"
32 #include "gdbthread.h"
33 #include "nat/fork-inferior.h"
39 static PTRACE_TYPE_RET
40 gdb_ptrace (PTRACE_TYPE_ARG1 request
, ptid_t ptid
, PTRACE_TYPE_ARG3 addr
,
41 PTRACE_TYPE_ARG4 data
)
44 return ptrace (request
, ptid
.pid (), addr
, data
);
46 pid_t pid
= get_ptrace_pid (ptid
);
47 return ptrace (request
, pid
, addr
, data
);
51 inf_ptrace_target::~inf_ptrace_target ()
56 /* Prepare to be traced. */
61 /* "Trace me, Dr. Memory!" */
62 if (ptrace (PT_TRACE_ME
, 0, (PTRACE_TYPE_ARG3
) 0, 0) < 0)
63 trace_start_error_with_name ("ptrace");
66 /* Start a new inferior Unix child process. EXEC_FILE is the file to
67 run, ALLARGS is a string containing the arguments to the program.
68 ENV is the environment vector to pass. If FROM_TTY is non-zero, be
72 inf_ptrace_target::create_inferior (const char *exec_file
,
73 const std::string
&allargs
,
74 char **env
, int from_tty
)
76 inferior
*inf
= current_inferior ();
78 /* Do not change either targets above or the same target if already present.
79 The reason is the target stack is shared across multiple inferiors. */
80 int ops_already_pushed
= inf
->target_is_pushed (this);
82 target_unpush_up unpusher
;
83 if (! ops_already_pushed
)
85 /* Clear possible core file with its process_stratum. */
86 inf
->push_target (this);
87 unpusher
.reset (this);
90 pid_t pid
= fork_inferior (exec_file
, allargs
, env
, inf_ptrace_me
, NULL
,
94 /* We have something that executes now. We'll be running through
95 the shell at this point (if startup-with-shell is true), but the
96 pid shouldn't change. */
97 thread_info
*thr
= add_thread_silent (this, ptid
);
98 switch_to_thread (thr
);
102 gdb_startup_inferior (pid
, START_INFERIOR_TRAPS_EXPECTED
);
104 /* On some targets, there must be some explicit actions taken after
105 the inferior has been started up. */
106 post_startup_inferior (ptid
);
109 /* Clean up a rotting corpse of an inferior after it died. */
112 inf_ptrace_target::mourn_inferior ()
116 /* Wait just one more time to collect the inferior's exit status.
117 Do not check whether this succeeds though, since we may be
118 dealing with a process that we attached to. Such a process will
119 only report its exit status to its original parent. */
120 waitpid (inferior_ptid
.pid (), &status
, 0);
122 inf_child_target::mourn_inferior ();
125 /* Attach to the process specified by ARGS. If FROM_TTY is non-zero,
126 be chatty about it. */
129 inf_ptrace_target::attach (const char *args
, int from_tty
)
131 inferior
*inf
= current_inferior ();
133 /* Do not change either targets above or the same target if already present.
134 The reason is the target stack is shared across multiple inferiors. */
135 int ops_already_pushed
= inf
->target_is_pushed (this);
137 pid_t pid
= parse_pid_to_attach (args
);
139 if (pid
== getpid ()) /* Trying to masturbate? */
140 error (_("I refuse to debug myself!"));
142 target_unpush_up unpusher
;
143 if (! ops_already_pushed
)
145 /* target_pid_to_str already uses the target. Also clear possible core
146 file with its process_stratum. */
147 inf
->push_target (this);
148 unpusher
.reset (this);
151 target_announce_attach (from_tty
, pid
);
155 ptrace (PT_ATTACH
, pid
, (PTRACE_TYPE_ARG3
)0, 0);
157 perror_with_name (("ptrace"));
159 error (_("This system does not support attaching to a process"));
162 inferior_appeared (inf
, pid
);
163 inf
->attach_flag
= 1;
165 /* Always add a main thread. If some target extends the ptrace
166 target, it should decorate the ptid later with more info. */
167 thread_info
*thr
= add_thread_silent (this, ptid_t (pid
));
168 switch_to_thread (thr
);
170 /* Don't consider the thread stopped until we've processed its
171 initial SIGSTOP stop. */
172 set_executing (this, thr
->ptid
, true);
177 /* Detach from the inferior. If FROM_TTY is non-zero, be chatty about it. */
180 inf_ptrace_target::detach (inferior
*inf
, int from_tty
)
182 pid_t pid
= inferior_ptid
.pid ();
184 target_announce_detach (from_tty
);
187 /* We'd better not have left any breakpoints in the program or it'll
188 die when it hits one. Also note that this may only work if we
189 previously attached to the inferior. It *might* work if we
190 started the process ourselves. */
192 ptrace (PT_DETACH
, pid
, (PTRACE_TYPE_ARG3
)1, 0);
194 perror_with_name (("ptrace"));
196 error (_("This system does not support detaching from a process"));
199 detach_success (inf
);
202 /* See inf-ptrace.h. */
205 inf_ptrace_target::detach_success (inferior
*inf
)
207 switch_to_no_thread ();
208 detach_inferior (inf
);
210 maybe_unpush_target ();
213 /* Kill the inferior. */
216 inf_ptrace_target::kill ()
218 pid_t pid
= inferior_ptid
.pid ();
224 ptrace (PT_KILL
, pid
, (PTRACE_TYPE_ARG3
)0, 0);
225 waitpid (pid
, &status
, 0);
227 target_mourn_inferior (inferior_ptid
);
232 /* See inf-ptrace.h. */
235 get_ptrace_pid (ptid_t ptid
)
239 /* If we have an LWPID to work with, use it. Otherwise, we're
240 dealing with a non-threaded program/target. */
248 /* Resume execution of thread PTID, or all threads if PTID is -1. If
249 STEP is nonzero, single-step it. If SIGNAL is nonzero, give it
253 inf_ptrace_target::resume (ptid_t ptid
, int step
, enum gdb_signal signal
)
255 PTRACE_TYPE_ARG1 request
;
257 if (minus_one_ptid
== ptid
)
258 /* Resume all threads. Traditionally ptrace() only supports
259 single-threaded processes, so simply resume the inferior. */
260 ptid
= ptid_t (inferior_ptid
.pid ());
262 if (catch_syscall_enabled () > 0)
263 request
= PT_SYSCALL
;
265 request
= PT_CONTINUE
;
269 /* If this system does not support PT_STEP, a higher level
270 function will have called the appropriate functions to transmute the
271 step request into a continue request (by setting breakpoints on
272 all possible successor instructions), so we don't have to
273 worry about that here. */
277 /* An address of (PTRACE_TYPE_ARG3)1 tells ptrace to continue from
278 where it was. If GDB wanted it to start some other way, we have
279 already written a new program counter value to the child. */
281 gdb_ptrace (request
, ptid
, (PTRACE_TYPE_ARG3
)1, gdb_signal_to_host (signal
));
283 perror_with_name (("ptrace"));
286 /* Wait for the child specified by PTID to do something. Return the
287 process ID of the child, or MINUS_ONE_PTID in case of error; store
288 the status in *OURSTATUS. */
291 inf_ptrace_target::wait (ptid_t ptid
, struct target_waitstatus
*ourstatus
,
292 target_wait_flags options
)
295 int status
, save_errno
;
303 pid
= waitpid (ptid
.pid (), &status
, 0);
306 while (pid
== -1 && errno
== EINTR
);
308 clear_sigint_trap ();
312 fprintf_unfiltered (gdb_stderr
,
313 _("Child process unexpectedly missing: %s.\n"),
314 safe_strerror (save_errno
));
316 /* Claim it exited with unknown signal. */
317 ourstatus
->set_signalled (GDB_SIGNAL_UNKNOWN
);
318 return inferior_ptid
;
321 /* Ignore terminated detached child processes. */
322 if (!WIFSTOPPED (status
) && find_inferior_pid (this, pid
) == nullptr)
327 *ourstatus
= host_status_to_waitstatus (status
);
332 /* Transfer data via ptrace into process PID's memory from WRITEBUF, or
333 from process PID's memory into READBUF. Start at target address ADDR
334 and transfer up to LEN bytes. Exactly one of READBUF and WRITEBUF must
335 be non-null. Return the number of transferred bytes. */
338 inf_ptrace_peek_poke (ptid_t ptid
, gdb_byte
*readbuf
,
339 const gdb_byte
*writebuf
,
340 ULONGEST addr
, ULONGEST len
)
345 /* We transfer aligned words. Thus align ADDR down to a word
346 boundary and determine how many bytes to skip at the
348 ULONGEST skip
= addr
& (sizeof (PTRACE_TYPE_RET
) - 1);
353 n
+= chunk
, addr
+= sizeof (PTRACE_TYPE_RET
), skip
= 0)
355 /* Restrict to a chunk that fits in the current word. */
356 chunk
= std::min (sizeof (PTRACE_TYPE_RET
) - skip
, len
- n
);
358 /* Use a union for type punning. */
361 PTRACE_TYPE_RET word
;
362 gdb_byte byte
[sizeof (PTRACE_TYPE_RET
)];
365 /* Read the word, also when doing a partial word write. */
366 if (readbuf
!= NULL
|| chunk
< sizeof (PTRACE_TYPE_RET
))
369 buf
.word
= gdb_ptrace (PT_READ_I
, ptid
,
370 (PTRACE_TYPE_ARG3
)(uintptr_t) addr
, 0);
374 memcpy (readbuf
+ n
, buf
.byte
+ skip
, chunk
);
376 if (writebuf
!= NULL
)
378 memcpy (buf
.byte
+ skip
, writebuf
+ n
, chunk
);
380 gdb_ptrace (PT_WRITE_D
, ptid
, (PTRACE_TYPE_ARG3
)(uintptr_t) addr
,
384 /* Using the appropriate one (I or D) is necessary for
385 Gould NP1, at least. */
387 gdb_ptrace (PT_WRITE_I
, ptid
, (PTRACE_TYPE_ARG3
)(uintptr_t) addr
,
398 /* Implement the to_xfer_partial target_ops method. */
400 enum target_xfer_status
401 inf_ptrace_target::xfer_partial (enum target_object object
,
402 const char *annex
, gdb_byte
*readbuf
,
403 const gdb_byte
*writebuf
,
404 ULONGEST offset
, ULONGEST len
, ULONGEST
*xfered_len
)
406 ptid_t ptid
= inferior_ptid
;
410 case TARGET_OBJECT_MEMORY
:
412 /* OpenBSD 3.1, NetBSD 1.6 and FreeBSD 5.0 have a new PT_IO
413 request that promises to be much more efficient in reading
414 and writing data in the traced process's address space. */
416 struct ptrace_io_desc piod
;
418 /* NOTE: We assume that there are no distinct address spaces
419 for instruction and data. However, on OpenBSD 3.9 and
420 later, PIOD_WRITE_D doesn't allow changing memory that's
421 mapped read-only. Since most code segments will be
422 read-only, using PIOD_WRITE_D will prevent us from
423 inserting breakpoints, so we use PIOD_WRITE_I instead. */
424 piod
.piod_op
= writebuf
? PIOD_WRITE_I
: PIOD_READ_D
;
425 piod
.piod_addr
= writebuf
? (void *) writebuf
: readbuf
;
426 piod
.piod_offs
= (void *) (long) offset
;
430 if (gdb_ptrace (PT_IO
, ptid
, (caddr_t
)&piod
, 0) == 0)
432 /* Return the actual number of bytes read or written. */
433 *xfered_len
= piod
.piod_len
;
434 return (piod
.piod_len
== 0) ? TARGET_XFER_EOF
: TARGET_XFER_OK
;
436 /* If the PT_IO request is somehow not supported, fallback on
437 using PT_WRITE_D/PT_READ_D. Otherwise we will return zero
438 to indicate failure. */
440 return TARGET_XFER_EOF
;
443 *xfered_len
= inf_ptrace_peek_poke (ptid
, readbuf
, writebuf
,
445 return *xfered_len
!= 0 ? TARGET_XFER_OK
: TARGET_XFER_EOF
;
447 case TARGET_OBJECT_UNWIND_TABLE
:
448 return TARGET_XFER_E_IO
;
450 case TARGET_OBJECT_AUXV
:
451 #if defined (PT_IO) && defined (PIOD_READ_AUXV)
452 /* OpenBSD 4.5 has a new PIOD_READ_AUXV operation for the PT_IO
453 request that allows us to read the auxilliary vector. Other
454 BSD's may follow if they feel the need to support PIE. */
456 struct ptrace_io_desc piod
;
459 return TARGET_XFER_E_IO
;
460 piod
.piod_op
= PIOD_READ_AUXV
;
461 piod
.piod_addr
= readbuf
;
462 piod
.piod_offs
= (void *) (long) offset
;
466 if (gdb_ptrace (PT_IO
, ptid
, (caddr_t
)&piod
, 0) == 0)
468 /* Return the actual number of bytes read or written. */
469 *xfered_len
= piod
.piod_len
;
470 return (piod
.piod_len
== 0) ? TARGET_XFER_EOF
: TARGET_XFER_OK
;
474 return TARGET_XFER_E_IO
;
476 case TARGET_OBJECT_WCOOKIE
:
477 return TARGET_XFER_E_IO
;
480 return TARGET_XFER_E_IO
;
484 /* Return non-zero if the thread specified by PTID is alive. */
487 inf_ptrace_target::thread_alive (ptid_t ptid
)
489 /* ??? Is kill the right way to do this? */
490 return (::kill (ptid
.pid (), 0) != -1);
493 /* Print status information about what we're accessing. */
496 inf_ptrace_target::files_info ()
498 struct inferior
*inf
= current_inferior ();
500 printf_filtered (_("\tUsing the running image of %s %s.\n"),
501 inf
->attach_flag
? "attached" : "child",
502 target_pid_to_str (inferior_ptid
).c_str ());
506 inf_ptrace_target::pid_to_str (ptid_t ptid
)
508 return normal_pid_to_str (ptid
);