1f6714ce2Skettenis /* Native-dependent code for OpenBSD.
2f6714ce2Skettenis
3f6714ce2Skettenis Copyright 2012 Free Software Foundation, Inc.
4f6714ce2Skettenis
5f6714ce2Skettenis This file is part of GDB.
6f6714ce2Skettenis
7f6714ce2Skettenis This program is free software; you can redistribute it and/or modify
8f6714ce2Skettenis it under the terms of the GNU General Public License as published by
9f6714ce2Skettenis the Free Software Foundation; either version 2 of the License, or
10f6714ce2Skettenis (at your option) any later version.
11f6714ce2Skettenis
12f6714ce2Skettenis This program is distributed in the hope that it will be useful,
13f6714ce2Skettenis but WITHOUT ANY WARRANTY; without even the implied warranty of
14f6714ce2Skettenis MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15f6714ce2Skettenis GNU General Public License for more details.
16f6714ce2Skettenis
17f6714ce2Skettenis You should have received a copy of the GNU General Public License
18f6714ce2Skettenis along with this program; if not, write to the Free Software
19f6714ce2Skettenis Foundation, Inc., 59 Temple Place - Suite 330,
20f6714ce2Skettenis Boston, MA 02111-1307, USA. */
21f6714ce2Skettenis
22f6714ce2Skettenis #include "defs.h"
23f6714ce2Skettenis #include "gdbthread.h"
24f6714ce2Skettenis #include "inferior.h"
25f6714ce2Skettenis #include "target.h"
26f6714ce2Skettenis
27*6a28fc6fSkettenis #include "gdb_assert.h"
28f6714ce2Skettenis #include <sys/types.h>
29f6714ce2Skettenis #include <sys/ptrace.h>
30*6a28fc6fSkettenis #include <sys/wait.h>
31f6714ce2Skettenis
32f6714ce2Skettenis #include "obsd-nat.h"
33f6714ce2Skettenis
34f6714ce2Skettenis char *
obsd_pid_to_str(ptid_t ptid)35c1997893Skettenis obsd_pid_to_str (ptid_t ptid)
36f6714ce2Skettenis {
37f6714ce2Skettenis if (ptid_get_lwp (ptid) != 0)
38f6714ce2Skettenis {
39f6714ce2Skettenis static char buf[64];
40f6714ce2Skettenis
41f6714ce2Skettenis xsnprintf (buf, sizeof buf, "thread %ld", ptid_get_lwp (ptid));
42f6714ce2Skettenis return buf;
43f6714ce2Skettenis }
44f6714ce2Skettenis
45f6714ce2Skettenis return normal_pid_to_str (ptid);
46f6714ce2Skettenis }
47f6714ce2Skettenis
48f6714ce2Skettenis void
obsd_find_new_threads(void)49c1997893Skettenis obsd_find_new_threads (void)
50f6714ce2Skettenis {
51f6714ce2Skettenis pid_t pid = ptid_get_pid (inferior_ptid);
52f6714ce2Skettenis struct ptrace_thread_state pts;
53f6714ce2Skettenis
54c1997893Skettenis if (ptrace(PT_GET_THREAD_FIRST, pid, (caddr_t)&pts, sizeof pts) == -1)
55f6714ce2Skettenis perror_with_name (("ptrace"));
56f6714ce2Skettenis
57f6714ce2Skettenis while (pts.pts_tid != -1)
58f6714ce2Skettenis {
59f6714ce2Skettenis ptid_t ptid = ptid_build (pid, pts.pts_tid, 0);
60f6714ce2Skettenis
61f6714ce2Skettenis if (!in_thread_list (ptid))
62f6714ce2Skettenis {
63f6714ce2Skettenis /* HACK: Twiddle INFERIOR_PTID such that the initial thread
64f6714ce2Skettenis of a process isn't recognized as a new thread. */
65f6714ce2Skettenis if (ptid_get_lwp (inferior_ptid) == 0)
66f6714ce2Skettenis inferior_ptid = ptid;
67f6714ce2Skettenis add_thread (ptid);
68f6714ce2Skettenis }
69f6714ce2Skettenis
70c1997893Skettenis if (ptrace(PT_GET_THREAD_NEXT, pid, (caddr_t)&pts, sizeof pts) == -1)
71f6714ce2Skettenis perror_with_name (("ptrace"));
72f6714ce2Skettenis }
73f6714ce2Skettenis }
74*6a28fc6fSkettenis
75*6a28fc6fSkettenis ptid_t
obsd_wait(ptid_t ptid,struct target_waitstatus * ourstatus)76*6a28fc6fSkettenis obsd_wait (ptid_t ptid, struct target_waitstatus *ourstatus)
77*6a28fc6fSkettenis {
78*6a28fc6fSkettenis pid_t pid;
79*6a28fc6fSkettenis int status, save_errno;
80*6a28fc6fSkettenis
81*6a28fc6fSkettenis do
82*6a28fc6fSkettenis {
83*6a28fc6fSkettenis set_sigint_trap ();
84*6a28fc6fSkettenis set_sigio_trap ();
85*6a28fc6fSkettenis
86*6a28fc6fSkettenis do
87*6a28fc6fSkettenis {
88*6a28fc6fSkettenis pid = waitpid (ptid_get_pid (ptid), &status, 0);
89*6a28fc6fSkettenis save_errno = errno;
90*6a28fc6fSkettenis }
91*6a28fc6fSkettenis while (pid == -1 && errno == EINTR);
92*6a28fc6fSkettenis
93*6a28fc6fSkettenis clear_sigio_trap ();
94*6a28fc6fSkettenis clear_sigint_trap ();
95*6a28fc6fSkettenis
96*6a28fc6fSkettenis if (pid == -1)
97*6a28fc6fSkettenis {
98*6a28fc6fSkettenis fprintf_unfiltered (gdb_stderr,
99*6a28fc6fSkettenis _("Child process unexpectedly missing: %s.\n"),
100*6a28fc6fSkettenis safe_strerror (save_errno));
101*6a28fc6fSkettenis
102*6a28fc6fSkettenis /* Claim it exited with unknown signal. */
103*6a28fc6fSkettenis ourstatus->kind = TARGET_WAITKIND_SIGNALLED;
104*6a28fc6fSkettenis ourstatus->value.sig = TARGET_SIGNAL_UNKNOWN;
105*6a28fc6fSkettenis return minus_one_ptid;
106*6a28fc6fSkettenis }
107*6a28fc6fSkettenis
108*6a28fc6fSkettenis /* Ignore terminated detached child processes. */
109*6a28fc6fSkettenis if (!WIFSTOPPED (status) && pid != ptid_get_pid (inferior_ptid))
110*6a28fc6fSkettenis pid = -1;
111*6a28fc6fSkettenis }
112*6a28fc6fSkettenis while (pid == -1);
113*6a28fc6fSkettenis
114*6a28fc6fSkettenis ptid = pid_to_ptid (pid);
115*6a28fc6fSkettenis
116*6a28fc6fSkettenis if (WIFSTOPPED (status))
117*6a28fc6fSkettenis {
118*6a28fc6fSkettenis ptrace_state_t pe;
119*6a28fc6fSkettenis pid_t fpid;
120*6a28fc6fSkettenis
121*6a28fc6fSkettenis if (ptrace (PT_GET_PROCESS_STATE, pid, (caddr_t)&pe, sizeof pe) == -1)
122*6a28fc6fSkettenis perror_with_name (("ptrace"));
123*6a28fc6fSkettenis
124*6a28fc6fSkettenis switch (pe.pe_report_event)
125*6a28fc6fSkettenis {
126*6a28fc6fSkettenis case PTRACE_FORK:
127*6a28fc6fSkettenis ourstatus->kind = TARGET_WAITKIND_FORKED;
128*6a28fc6fSkettenis ourstatus->value.related_pid = pe.pe_other_pid;
129*6a28fc6fSkettenis
130*6a28fc6fSkettenis /* Make sure the other end of the fork is stopped too. */
131*6a28fc6fSkettenis fpid = waitpid (pe.pe_other_pid, &status, 0);
132*6a28fc6fSkettenis if (fpid == -1)
133*6a28fc6fSkettenis perror_with_name (("waitpid"));
134*6a28fc6fSkettenis
135*6a28fc6fSkettenis if (ptrace (PT_GET_PROCESS_STATE, fpid,
136*6a28fc6fSkettenis (caddr_t)&pe, sizeof pe) == -1)
137*6a28fc6fSkettenis perror_with_name (("ptrace"));
138*6a28fc6fSkettenis
139*6a28fc6fSkettenis gdb_assert (pe.pe_report_event == PTRACE_FORK);
140*6a28fc6fSkettenis gdb_assert (pe.pe_other_pid == pid);
141*6a28fc6fSkettenis if (fpid == ptid_get_pid (inferior_ptid))
142*6a28fc6fSkettenis {
143*6a28fc6fSkettenis ourstatus->value.related_pid = pe.pe_other_pid;
144*6a28fc6fSkettenis return pid_to_ptid (fpid);
145*6a28fc6fSkettenis }
146*6a28fc6fSkettenis
147*6a28fc6fSkettenis return pid_to_ptid (pid);
148*6a28fc6fSkettenis }
149*6a28fc6fSkettenis
150*6a28fc6fSkettenis ptid = ptid_build (pid, pe.pe_tid, 0);
151*6a28fc6fSkettenis if (!in_thread_list (ptid))
152*6a28fc6fSkettenis {
153*6a28fc6fSkettenis /* HACK: Twiddle INFERIOR_PTID such that the initial thread
154*6a28fc6fSkettenis of a process isn't recognized as a new thread. */
155*6a28fc6fSkettenis if (ptid_get_lwp (inferior_ptid) == 0)
156*6a28fc6fSkettenis inferior_ptid = ptid;
157*6a28fc6fSkettenis add_thread (ptid);
158*6a28fc6fSkettenis }
159*6a28fc6fSkettenis }
160*6a28fc6fSkettenis
161*6a28fc6fSkettenis store_waitstatus (ourstatus, status);
162*6a28fc6fSkettenis return ptid;
163*6a28fc6fSkettenis }
164