1 /* Native-dependent code for OpenBSD.
3 Copyright (C) 2012-2019 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/>. */
21 #include "gdbthread.h"
25 #include <sys/types.h>
26 #include <sys/ptrace.h>
27 #include "common/gdb_wait.h"
29 #include "inf-child.h"
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
36 #ifdef PT_GET_THREAD_FIRST
39 obsd_nat_target::pid_to_str (ptid_t ptid
)
42 return string_printf ("thread %ld", ptid
.lwp ());
44 return normal_pid_to_str (ptid
);
48 obsd_nat_target::update_thread_list ()
50 pid_t pid
= inferior_ptid
.pid ();
51 struct ptrace_thread_state pts
;
55 if (ptrace (PT_GET_THREAD_FIRST
, pid
, (caddr_t
)&pts
, sizeof pts
) == -1)
56 perror_with_name (("ptrace"));
58 while (pts
.pts_tid
!= -1)
60 ptid_t ptid
= ptid_t (pid
, pts
.pts_tid
, 0);
62 if (!in_thread_list (ptid
))
64 if (inferior_ptid
.lwp () == 0)
65 thread_change_ptid (inferior_ptid
, ptid
);
70 if (ptrace (PT_GET_THREAD_NEXT
, pid
, (caddr_t
)&pts
, sizeof pts
) == -1)
71 perror_with_name (("ptrace"));
76 obsd_nat_target::wait (ptid_t ptid
, struct target_waitstatus
*ourstatus
,
80 int status
, save_errno
;
88 pid
= waitpid (ptid
.pid (), &status
, 0);
91 while (pid
== -1 && errno
== EINTR
);
97 fprintf_unfiltered (gdb_stderr
,
98 _("Child process unexpectedly missing: %s.\n"),
99 safe_strerror (save_errno
));
101 /* Claim it exited with unknown signal. */
102 ourstatus
->kind
= TARGET_WAITKIND_SIGNALLED
;
103 ourstatus
->value
.sig
= GDB_SIGNAL_UNKNOWN
;
104 return inferior_ptid
;
107 /* Ignore terminated detached child processes. */
108 if (!WIFSTOPPED (status
) && pid
!= inferior_ptid
.pid ())
115 if (WIFSTOPPED (status
))
120 if (ptrace (PT_GET_PROCESS_STATE
, pid
, (caddr_t
)&pe
, sizeof pe
) == -1)
121 perror_with_name (("ptrace"));
123 switch (pe
.pe_report_event
)
126 ourstatus
->kind
= TARGET_WAITKIND_FORKED
;
127 ourstatus
->value
.related_pid
= ptid_t (pe
.pe_other_pid
);
129 /* Make sure the other end of the fork is stopped too. */
130 fpid
= waitpid (pe
.pe_other_pid
, &status
, 0);
132 perror_with_name (("waitpid"));
134 if (ptrace (PT_GET_PROCESS_STATE
, fpid
,
135 (caddr_t
)&pe
, sizeof pe
) == -1)
136 perror_with_name (("ptrace"));
138 gdb_assert (pe
.pe_report_event
== PTRACE_FORK
);
139 gdb_assert (pe
.pe_other_pid
== pid
);
140 if (fpid
== inferior_ptid
.pid ())
142 ourstatus
->value
.related_pid
= ptid_t (pe
.pe_other_pid
);
143 return ptid_t (fpid
);
149 ptid
= ptid_t (pid
, pe
.pe_tid
, 0);
150 if (!in_thread_list (ptid
))
152 if (inferior_ptid
.lwp () == 0)
153 thread_change_ptid (inferior_ptid
, ptid
);
159 store_waitstatus (ourstatus
, status
);
163 #endif /* PT_GET_THREAD_FIRST */