[PATCH 30/57][Arm][GAS] Add support for MVE instructions: vqmovnt, vqmovnb, vqmovunt...
[binutils-gdb.git] / gdb / obsd-nat.c
blob0a99bd021df6b2edfa8fe4bded96c1da6e0c3528
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/>. */
20 #include "defs.h"
21 #include "gdbthread.h"
22 #include "inferior.h"
23 #include "target.h"
25 #include <sys/types.h>
26 #include <sys/ptrace.h>
27 #include "common/gdb_wait.h"
29 #include "inf-child.h"
30 #include "obsd-nat.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
34 fashion. */
36 #ifdef PT_GET_THREAD_FIRST
38 std::sring
39 obsd_nat_target::pid_to_str (ptid_t ptid)
41 if (ptid.lwp () != 0)
42 return string_printf ("thread %ld", ptid.lwp ());
44 return normal_pid_to_str (ptid);
47 void
48 obsd_nat_target::update_thread_list ()
50 pid_t pid = inferior_ptid.pid ();
51 struct ptrace_thread_state pts;
53 prune_threads ();
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);
66 else
67 add_thread (ptid);
70 if (ptrace (PT_GET_THREAD_NEXT, pid, (caddr_t)&pts, sizeof pts) == -1)
71 perror_with_name (("ptrace"));
75 ptid_t
76 obsd_nat_target::wait (ptid_t ptid, struct target_waitstatus *ourstatus,
77 int options)
79 pid_t pid;
80 int status, save_errno;
84 set_sigint_trap ();
88 pid = waitpid (ptid.pid (), &status, 0);
89 save_errno = errno;
91 while (pid == -1 && errno == EINTR);
93 clear_sigint_trap ();
95 if (pid == -1)
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 ())
109 pid = -1;
111 while (pid == -1);
113 ptid = ptid_t (pid);
115 if (WIFSTOPPED (status))
117 ptrace_state_t pe;
118 pid_t fpid;
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)
125 case PTRACE_FORK:
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);
131 if (fpid == -1)
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);
146 return ptid_t (pid);
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);
154 else
155 add_thread (ptid);
159 store_waitstatus (ourstatus, status);
160 return ptid;
163 #endif /* PT_GET_THREAD_FIRST */