1 /* Native-dependent code for OpenBSD.
3 Copyright (C) 2012-2014 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>
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_pid_to_str (struct target_ops *ops, ptid_t ptid)
41 if (ptid_get_lwp (ptid) != 0)
45 xsnprintf (buf, sizeof buf, "thread %ld", ptid_get_lwp (ptid));
49 return normal_pid_to_str (ptid);
53 obsd_find_new_threads (struct target_ops *ops)
55 pid_t pid = ptid_get_pid (inferior_ptid);
56 struct ptrace_thread_state pts;
58 if (ptrace (PT_GET_THREAD_FIRST, pid, (caddr_t)&pts, sizeof pts) == -1)
59 perror_with_name (("ptrace"));
61 while (pts.pts_tid != -1)
63 ptid_t ptid = ptid_build (pid, pts.pts_tid, 0);
65 if (!in_thread_list (ptid))
67 if (ptid_get_lwp (inferior_ptid) == 0)
68 thread_change_ptid (inferior_ptid, ptid);
73 if (ptrace (PT_GET_THREAD_NEXT, pid, (caddr_t)&pts, sizeof pts) == -1)
74 perror_with_name (("ptrace"));
79 obsd_wait (struct target_ops *ops,
80 ptid_t ptid, struct target_waitstatus *ourstatus, int options)
83 int status, save_errno;
91 pid = waitpid (ptid_get_pid (ptid), &status, 0);
94 while (pid == -1 && errno == EINTR);
100 fprintf_unfiltered (gdb_stderr,
101 _("Child process unexpectedly missing: %s.\n"),
102 safe_strerror (save_errno));
104 /* Claim it exited with unknown signal. */
105 ourstatus->kind = TARGET_WAITKIND_SIGNALLED;
106 ourstatus->value.sig = GDB_SIGNAL_UNKNOWN;
107 return inferior_ptid;
110 /* Ignore terminated detached child processes. */
111 if (!WIFSTOPPED (status) && pid != ptid_get_pid (inferior_ptid))
116 ptid = pid_to_ptid (pid);
118 if (WIFSTOPPED (status))
123 if (ptrace (PT_GET_PROCESS_STATE, pid, (caddr_t)&pe, sizeof pe) == -1)
124 perror_with_name (("ptrace"));
126 switch (pe.pe_report_event)
129 ourstatus->kind = TARGET_WAITKIND_FORKED;
130 ourstatus->value.related_pid = pid_to_ptid (pe.pe_other_pid);
132 /* Make sure the other end of the fork is stopped too. */
133 fpid = waitpid (pe.pe_other_pid, &status, 0);
135 perror_with_name (("waitpid"));
137 if (ptrace (PT_GET_PROCESS_STATE, fpid,
138 (caddr_t)&pe, sizeof pe) == -1)
139 perror_with_name (("ptrace"));
141 gdb_assert (pe.pe_report_event == PTRACE_FORK);
142 gdb_assert (pe.pe_other_pid == pid);
143 if (fpid == ptid_get_pid (inferior_ptid))
145 ourstatus->value.related_pid = pid_to_ptid (pe.pe_other_pid);
146 return pid_to_ptid (fpid);
149 return pid_to_ptid (pid);
152 ptid = ptid_build (pid, pe.pe_tid, 0);
153 if (!in_thread_list (ptid))
155 if (ptid_get_lwp (inferior_ptid) == 0)
156 thread_change_ptid (inferior_ptid, ptid);
162 store_waitstatus (ourstatus, status);
167 obsd_add_target (struct target_ops *t)
169 /* Override some methods to support threads. */
170 t->to_pid_to_str = obsd_pid_to_str;
171 t->to_find_new_threads = obsd_find_new_threads;
172 t->to_wait = obsd_wait;
179 obsd_add_target (struct target_ops *t)
184 #endif /* PT_GET_THREAD_FIRST */