GDB (xrefs)
Loading...
Searching...
No Matches
obsd-nat.c
Go to the documentation of this file.
1/* Native-dependent code for OpenBSD.
2
3 Copyright (C) 2012-2023 Free Software Foundation, Inc.
4
5 This file is part of GDB.
6
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.
11
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.
16
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/>. */
19
20#include "defs.h"
21#include "gdbthread.h"
22#include "inferior.h"
23#include "target.h"
24
25#include <sys/types.h>
26#include <sys/ptrace.h>
27#include "gdbsupport/gdb_wait.h"
28
29#include "inf-ptrace.h"
30#include "obsd-nat.h"
31
32/* OpenBSD 5.2 and later include rthreads which uses a thread model
33 that maps userland threads directly onto kernel threads in a 1:1
34 fashion. */
35
36std::string
38{
39 if (ptid.lwp () != 0)
40 return string_printf ("thread %ld of process %d", ptid.lwp (), ptid.pid ());
41
42 return normal_pid_to_str (ptid);
43}
44
45void
47{
48 pid_t pid = inferior_ptid.pid ();
49 struct ptrace_thread_state pts;
50
52
53 if (ptrace (PT_GET_THREAD_FIRST, pid, (caddr_t)&pts, sizeof pts) == -1)
54 perror_with_name (("ptrace"));
55
56 while (pts.pts_tid != -1)
57 {
58 ptid_t ptid = ptid_t (pid, pts.pts_tid, 0);
59
60 if (!in_thread_list (this, ptid))
61 {
62 if (inferior_ptid.lwp () == 0)
64 else
65 add_thread (this, ptid);
66 }
67
68 if (ptrace (PT_GET_THREAD_NEXT, pid, (caddr_t)&pts, sizeof pts) == -1)
69 perror_with_name (("ptrace"));
70 }
71}
72
73/* Enable additional event reporting on a new or existing process. */
74
75static void
77{
78 ptrace_event_t pe;
79
80 /* Set the initial event mask. */
81 memset (&pe, 0, sizeof pe);
82 pe.pe_set_event |= PTRACE_FORK;
83 if (ptrace (PT_SET_EVENT_MASK, pid,
84 (PTRACE_TYPE_ARG3)&pe, sizeof pe) == -1)
85 perror_with_name (("ptrace"));
86}
87
88ptid_t
89obsd_nat_target::wait (ptid_t ptid, struct target_waitstatus *ourstatus,
90 target_wait_flags options)
91{
92 ptid_t wptid = inf_ptrace_target::wait (ptid, ourstatus, options);
93 if (ourstatus->kind () == TARGET_WAITKIND_STOPPED)
94 {
95 ptrace_state_t pe;
96
97 pid_t pid = wptid.pid ();
98 if (ptrace (PT_GET_PROCESS_STATE, pid, (caddr_t)&pe, sizeof pe) == -1)
99 perror_with_name (("ptrace"));
100
101 wptid = ptid_t (pid, pe.pe_tid, 0);
102
103 switch (pe.pe_report_event)
104 {
105 case PTRACE_FORK:
106 ourstatus->set_forked (ptid_t (pe.pe_other_pid));
107
108 /* Make sure the other end of the fork is stopped too. */
109 pid_t fpid = waitpid (pe.pe_other_pid, nullptr, 0);
110 if (fpid == -1)
111 perror_with_name (("waitpid"));
112
113 if (ptrace (PT_GET_PROCESS_STATE, fpid,
114 (caddr_t)&pe, sizeof pe) == -1)
115 perror_with_name (("ptrace"));
116
117 gdb_assert (pe.pe_report_event == PTRACE_FORK);
118 gdb_assert (pe.pe_other_pid == pid);
119 if (find_inferior_pid (this, fpid) != nullptr)
120 {
121 ourstatus->set_forked (ptid_t (pe.pe_other_pid));
122 wptid = ptid_t (fpid, pe.pe_tid, 0);
123 }
124
125 obsd_enable_proc_events (ourstatus->child_ptid ().pid ());
126 break;
127 }
128
129 /* Ensure the ptid is updated with an LWP id on the first stop
130 of a process. */
131 if (!in_thread_list (this, wptid))
132 {
133 if (in_thread_list (this, ptid_t (pid)))
134 thread_change_ptid (this, ptid_t (pid), wptid);
135 else
136 add_thread (this, wptid);
137 }
138 }
139 return wptid;
140}
141
142void
147
148/* Implement the virtual inf_ptrace_target::post_startup_inferior method. */
149
150void
155
156/* Target hook for follow_fork. */
157
158void
159obsd_nat_target::follow_fork (inferior *child_inf, ptid_t child_ptid,
160 target_waitkind fork_kind,
161 bool follow_child, bool detach_fork)
162{
163 inf_ptrace_target::follow_fork (child_inf, child_ptid, fork_kind,
164 follow_child, detach_fork);
165
166 if (!follow_child && detach_fork)
167 {
168 /* Breakpoints have already been detached from the child by
169 infrun.c. */
170
171 if (ptrace (PT_DETACH, child_ptid.pid (), (PTRACE_TYPE_ARG3)1, 0) == -1)
172 perror_with_name (("ptrace"));
173 }
174}
175
176int
178{
179 return 0;
180}
181
182int
184{
185 return 0;
186}
void follow_fork(inferior *inf, ptid_t, target_waitkind, bool, bool) override
Definition obsd-nat.c:159
int insert_fork_catchpoint(int) override
Definition obsd-nat.c:177
ptid_t wait(ptid_t, struct target_waitstatus *, target_wait_flags) override
Definition obsd-nat.c:89
int remove_fork_catchpoint(int) override
Definition obsd-nat.c:183
std::string pid_to_str(ptid_t) override
Definition obsd-nat.c:37
void post_startup_inferior(ptid_t) override
Definition obsd-nat.c:151
void update_thread_list() override
Definition obsd-nat.c:46
void post_attach(int) override
Definition obsd-nat.c:143
void follow_fork(inferior *child_inf, ptid_t child_ptid, target_waitkind fork_kind, bool follow_child, bool detach_on_fork) override
#define ptrace(request, pid, addr, data)
Definition gdb_ptrace.h:141
struct thread_info * add_thread(process_stratum_target *targ, ptid_t ptid)
Definition thread.c:336
void thread_change_ptid(process_stratum_target *targ, ptid_t old_ptid, ptid_t new_ptid)
Definition thread.c:811
void prune_threads(void)
Definition thread.c:737
bool in_thread_list(process_stratum_target *targ, ptid_t ptid)
Definition thread.c:631
mach_port_t mach_port_t name mach_port_t mach_port_t name kern_return_t int int rusage_t pid_t pid
Definition gnu-nat.c:1791
ptid_t inferior_ptid
Definition infcmd.c:74
struct inferior * find_inferior_pid(process_stratum_target *targ, int pid)
Definition inferior.c:389
static bool detach_fork
Definition infrun.c:185
#define PTRACE_TYPE_ARG3
static void obsd_enable_proc_events(pid_t pid)
Definition obsd-nat.c:76
ptid_t wait(ptid_t, struct target_waitstatus *, target_wait_flags) override
Definition inf-ptrace.c:294
target_waitstatus & set_forked(ptid_t child_ptid)
Definition waitstatus.h:253
target_waitkind kind() const
Definition waitstatus.h:345
std::string normal_pid_to_str(ptid_t ptid)
Definition target.c:3693
target_waitkind
Definition waitstatus.h:30
@ TARGET_WAITKIND_STOPPED
Definition waitstatus.h:36