gdb/proc-service.c

   1 /* <proc_service.h> implementation.
   2
   3    Copyright (C) 1999-2014 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
  22 #include "gdbcore.h"
  23 #include "inferior.h"
  24 #include "symtab.h"
  25 #include "target.h"
  26 #include "regcache.h"
  27 #include "objfiles.h"
  28
  29 #include "gdb_proc_service.h"
  30
  31 #include <sys/procfs.h>
  32
  33 /* Prototypes for supply_gregset etc.  */
  34 #include "gregset.h"
  35 \f
  36
  37 /* Fix-up some broken systems.  */
  38
  39 /* The prototypes in <proc_service.h> are slightly different on older
  40    systems.  Compensate for the discrepancies.  */
  41
  42 #ifdef PROC_SERVICE_IS_OLD
  43 typedef const struct ps_prochandle *gdb_ps_prochandle_t;
  44 typedef char *gdb_ps_read_buf_t;
  45 typedef char *gdb_ps_write_buf_t;
  46 typedef int gdb_ps_size_t;
  47 #else
  48 typedef struct ps_prochandle *gdb_ps_prochandle_t;
  49 typedef void *gdb_ps_read_buf_t;
  50 typedef const void *gdb_ps_write_buf_t;
  51 typedef size_t gdb_ps_size_t;
  52 #endif
  53 \f
  54
  55 /* Helper functions.  */
  56
  57 /* Convert a psaddr_t to a CORE_ADDR.  */
  58
  59 static CORE_ADDR
  60 ps_addr_to_core_addr (psaddr_t addr)
  61 {
  62   if (exec_bfd && bfd_get_sign_extend_vma (exec_bfd))
  63     return (intptr_t) addr;
  64   else
  65     return (uintptr_t) addr;
  66 }
  67
  68 /* Convert a CORE_ADDR to a psaddr_t.  */
  69
  70 static psaddr_t
  71 core_addr_to_ps_addr (CORE_ADDR addr)
  72 {
  73   if (exec_bfd && bfd_get_sign_extend_vma (exec_bfd))
  74     return (psaddr_t) (intptr_t) addr;
  75   else
  76     return (psaddr_t) (uintptr_t) addr;
  77 }
  78
  79 /* Transfer LEN bytes of memory between BUF and address ADDR in the
  80    process specified by PH.  If WRITE, transfer them to the process,
  81    else transfer them from the process.  Returns PS_OK for success,
  82    PS_ERR on failure.
  83
  84    This is a helper function for ps_pdread and ps_pdwrite.  */
  85
  86 static ps_err_e
  87 ps_xfer_memory (const struct ps_prochandle *ph, psaddr_t addr,
  88                 gdb_byte *buf, size_t len, int write)
  89 {
  90   struct cleanup *old_chain = save_inferior_ptid ();
  91   int ret;
  92   CORE_ADDR core_addr = ps_addr_to_core_addr (addr);
  93
  94   inferior_ptid = ph->ptid;
  95
  96   if (write)
  97     ret = target_write_memory (core_addr, buf, len);
  98   else
  99     ret = target_read_memory (core_addr, buf, len);
 100
 101   do_cleanups (old_chain);
 102
 103   return (ret == 0 ? PS_OK : PS_ERR);
 104 }
 105 \f
 106
 107 /* Search for the symbol named NAME within the object named OBJ within
 108    the target process PH.  If the symbol is found the address of the
 109    symbol is stored in SYM_ADDR.  */
 110
 111 ps_err_e
 112 ps_pglobal_lookup (gdb_ps_prochandle_t ph, const char *obj,
 113                    const char *name, psaddr_t *sym_addr)
 114 {
 115   struct bound_minimal_symbol ms;
 116   struct cleanup *old_chain = save_current_program_space ();
 117   struct inferior *inf = find_inferior_pid (ptid_get_pid (ph->ptid));
 118   ps_err_e result;
 119
 120   set_current_program_space (inf->pspace);
 121
 122   /* FIXME: kettenis/2000-09-03: What should we do with OBJ?  */
 123   ms = lookup_minimal_symbol (name, NULL, NULL);
 124   if (ms.minsym == NULL)
 125     result = PS_NOSYM;
 126   else
 127     {
 128       *sym_addr = core_addr_to_ps_addr (BMSYMBOL_VALUE_ADDRESS (ms));
 129       result = PS_OK;
 130     }
 131
 132   do_cleanups (old_chain);
 133   return result;
 134 }
 135
 136 /* Read SIZE bytes from the target process PH at address ADDR and copy
 137    them into BUF.  */
 138
 139 ps_err_e
 140 ps_pdread (gdb_ps_prochandle_t ph, psaddr_t addr,
 141            gdb_ps_read_buf_t buf, gdb_ps_size_t size)
 142 {
 143   return ps_xfer_memory (ph, addr, buf, size, 0);
 144 }
 145
 146 /* Write SIZE bytes from BUF into the target process PH at address ADDR.  */
 147
 148 ps_err_e
 149 ps_pdwrite (gdb_ps_prochandle_t ph, psaddr_t addr,
 150             gdb_ps_write_buf_t buf, gdb_ps_size_t size)
 151 {
 152   return ps_xfer_memory (ph, addr, (gdb_byte *) buf, size, 1);
 153 }
 154
 155 /* Get the general registers of LWP LWPID within the target process PH
 156    and store them in GREGSET.  */
 157
 158 ps_err_e
 159 ps_lgetregs (gdb_ps_prochandle_t ph, lwpid_t lwpid, prgregset_t gregset)
 160 {
 161   struct cleanup *old_chain = save_inferior_ptid ();
 162   struct regcache *regcache;
 163
 164   inferior_ptid = ptid_build (ptid_get_pid (ph->ptid), lwpid, 0);
 165   regcache = get_thread_arch_regcache (inferior_ptid, target_gdbarch ());
 166
 167   target_fetch_registers (regcache, -1);
 168   fill_gregset (regcache, (gdb_gregset_t *) gregset, -1);
 169
 170   do_cleanups (old_chain);
 171   return PS_OK;
 172 }
 173
 174 /* Set the general registers of LWP LWPID within the target process PH
 175    from GREGSET.  */
 176
 177 ps_err_e
 178 ps_lsetregs (gdb_ps_prochandle_t ph, lwpid_t lwpid, const prgregset_t gregset)
 179 {
 180   struct cleanup *old_chain = save_inferior_ptid ();
 181   struct regcache *regcache;
 182
 183   inferior_ptid = ptid_build (ptid_get_pid (ph->ptid), lwpid, 0);
 184   regcache = get_thread_arch_regcache (inferior_ptid, target_gdbarch ());
 185
 186   supply_gregset (regcache, (const gdb_gregset_t *) gregset);
 187   target_store_registers (regcache, -1);
 188
 189   do_cleanups (old_chain);
 190   return PS_OK;
 191 }
 192
 193 /* Get the floating-point registers of LWP LWPID within the target
 194    process PH and store them in FPREGSET.  */
 195
 196 ps_err_e
 197 ps_lgetfpregs (gdb_ps_prochandle_t ph, lwpid_t lwpid,
 198                gdb_prfpregset_t *fpregset)
 199 {
 200   struct cleanup *old_chain = save_inferior_ptid ();
 201   struct regcache *regcache;
 202
 203   inferior_ptid = ptid_build (ptid_get_pid (ph->ptid), lwpid, 0);
 204   regcache = get_thread_arch_regcache (inferior_ptid, target_gdbarch ());
 205
 206   target_fetch_registers (regcache, -1);
 207   fill_fpregset (regcache, (gdb_fpregset_t *) fpregset, -1);
 208
 209   do_cleanups (old_chain);
 210   return PS_OK;
 211 }
 212
 213 /* Set the floating-point registers of LWP LWPID within the target
 214    process PH from FPREGSET.  */
 215
 216 ps_err_e
 217 ps_lsetfpregs (gdb_ps_prochandle_t ph, lwpid_t lwpid,
 218                const gdb_prfpregset_t *fpregset)
 219 {
 220   struct cleanup *old_chain = save_inferior_ptid ();
 221   struct regcache *regcache;
 222
 223   inferior_ptid = ptid_build (ptid_get_pid (ph->ptid), lwpid, 0);
 224   regcache = get_thread_arch_regcache (inferior_ptid, target_gdbarch ());
 225
 226   supply_fpregset (regcache, (const gdb_fpregset_t *) fpregset);
 227   target_store_registers (regcache, -1);
 228
 229   do_cleanups (old_chain);
 230   return PS_OK;
 231 }
 232
 233 /* Return overall process id of the target PH.  Special for GNU/Linux
 234    -- not used on Solaris.  */
 235
 236 pid_t
 237 ps_getpid (gdb_ps_prochandle_t ph)
 238 {
 239   return ptid_get_pid (ph->ptid);
 240 }
 241
 242 /* Provide a prototype to silence -Wmissing-prototypes.  */
 243 extern initialize_file_ftype _initialize_proc_service;
 244
 245 void
 246 _initialize_proc_service (void)
 247 {
 248   /* This function solely exists to make sure this module is linked
 249      into the final binary.  */
 250 }