gdb/obsd-nat.c

   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
  36 std::string
  37 obsd_nat_target::pid_to_str (ptid_t ptid)
  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
  45 void
  46 obsd_nat_target::update_thread_list ()
  47 {
  48   pid_t pid = inferior_ptid.pid ();
  49   struct ptrace_thread_state pts;
  50
  51   prune_threads ();
  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)
  63             thread_change_ptid (this, inferior_ptid, ptid);
  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
  75 static void
  76 obsd_enable_proc_events (pid_t pid)
  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
  88 ptid_t
  89 obsd_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
 142 void
 143 obsd_nat_target::post_attach (int pid)
 144 {
 145   obsd_enable_proc_events (pid);
 146 }
 147
 148 /* Implement the virtual inf_ptrace_target::post_startup_inferior method.  */
 149
 150 void
 151 obsd_nat_target::post_startup_inferior (ptid_t pid)
 152 {
 153   obsd_enable_proc_events (pid.pid ());
 154 }
 155
 156 /* Target hook for follow_fork.  */
 157
 158 void
 159 obsd_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
 176 int
 177 obsd_nat_target::insert_fork_catchpoint (int pid)
 178 {
 179   return 0;
 180 }
 181
 182 int
 183 obsd_nat_target::remove_fork_catchpoint (int pid)
 184 {
 185   return 0;
 186 }