contrib/gdb-6.2.1/gdb/proc-service.c

   1 /* <proc_service.h> implementation.
   2
   3    Copyright 1999, 2000, 2002 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 2 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, write to the Free Software
  19    Foundation, Inc., 59 Temple Place - Suite 330,
  20    Boston, MA 02111-1307, USA.  */
  21
  22 #include "defs.h"
  23
  24 #include "gdb_proc_service.h"
  25 #include <sys/procfs.h>
  26
  27 #include "inferior.h"
  28 #include "symtab.h"
  29 #include "target.h"
  30
  31 /* Prototypes for supply_gregset etc.  */
  32 #include "gregset.h"
  33 \f
  34
  35 /* Fix-up some broken systems.  */
  36
  37 /* The prototypes in <proc_service.h> are slightly different on older
  38    systems.  Compensate for the discrepancies.  */
  39
  40 #ifdef PROC_SERVICE_IS_OLD
  41 typedef const struct ps_prochandle *gdb_ps_prochandle_t;
  42 typedef char *gdb_ps_read_buf_t;
  43 typedef char *gdb_ps_write_buf_t;
  44 typedef int gdb_ps_size_t;
  45 #else
  46 typedef struct ps_prochandle *gdb_ps_prochandle_t;
  47 typedef void *gdb_ps_read_buf_t;
  48 typedef const void *gdb_ps_write_buf_t;
  49 typedef size_t gdb_ps_size_t;
  50 #endif
  51 \f
  52
  53 /* Building process ids.  */
  54
  55 #define BUILD_LWP(lwp, pid)     ptid_build (pid, lwp, 0)
  56 \f
  57
  58 /* Helper functions.  */
  59
  60 /* Transfer LEN bytes of memory between BUF and address ADDR in the
  61    process specified by PH.  If WRITE, transfer them to the process,
  62    else transfer them from the process.  Returns PS_OK for success,
  63    PS_ERR on failure.
  64
  65    This is a helper function for ps_pdread, ps_pdwrite, ps_ptread and
  66    ps_ptwrite.  */
  67
  68 static ps_err_e
  69 ps_xfer_memory (const struct ps_prochandle *ph, paddr_t addr,
  70                 char *buf, size_t len, int write)
  71 {
  72   struct cleanup *old_chain = save_inferior_ptid ();
  73   int ret;
  74
  75   inferior_ptid = pid_to_ptid (ph->pid);
  76
  77   if (write)
  78     ret = target_write_memory (addr, buf, len);
  79   else
  80     ret = target_read_memory (addr, buf, len);
  81
  82   do_cleanups (old_chain);
  83
  84   return (ret == 0 ? PS_OK : PS_ERR);
  85 }
  86 \f
  87
  88 /* Stop the target process PH.  */
  89
  90 ps_err_e
  91 ps_pstop (gdb_ps_prochandle_t ph)
  92 {
  93   /* The process is always stopped when under control of GDB.  */
  94   return PS_OK;
  95 }
  96
  97 /* Resume the target process PH.  */
  98
  99 ps_err_e
 100 ps_pcontinue (gdb_ps_prochandle_t ph)
 101 {
 102   /* Pretend we did successfully continue the process.  GDB will take
 103      care of it later on.  */
 104   return PS_OK;
 105 }
 106
 107 /* Stop the lightweight process LWPID within the target process PH.  */
 108
 109 ps_err_e
 110 ps_lstop (gdb_ps_prochandle_t ph, lwpid_t lwpid)
 111 {
 112   /* All lightweight processes are stopped when under control of GDB.  */
 113   return PS_OK;
 114 }
 115
 116 /* Resume the lightweight process (LWP) LWPID within the target
 117    process PH.  */
 118
 119 ps_err_e
 120 ps_lcontinue (gdb_ps_prochandle_t ph, lwpid_t lwpid)
 121 {
 122   /* Pretend we did successfully continue LWPID.  GDB will take care
 123      of it later on.  */
 124   return PS_OK;
 125 }
 126
 127 /* Get the size of the architecture-dependent extra state registers
 128    for LWP LWPID within the target process PH and return it in
 129    *XREGSIZE.  */
 130
 131 ps_err_e
 132 ps_lgetxregsize (gdb_ps_prochandle_t ph, lwpid_t lwpid, int *xregsize)
 133 {
 134   /* FIXME: Not supported yet.  */
 135   return PS_OK;
 136 }
 137
 138 /* Get the extra state registers of LWP LWPID within the target
 139    process PH and store them in XREGSET.  */
 140
 141 ps_err_e
 142 ps_lgetxregs (gdb_ps_prochandle_t ph, lwpid_t lwpid, caddr_t xregset)
 143 {
 144   /* FIXME: Not supported yet.  */
 145   return PS_OK;
 146 }
 147
 148 /* Set the extra state registers of LWP LWPID within the target
 149    process PH from XREGSET.  */
 150
 151 ps_err_e
 152 ps_lsetxregs (gdb_ps_prochandle_t ph, lwpid_t lwpid, caddr_t xregset)
 153 {
 154   /* FIXME: Not supported yet.  */
 155   return PS_OK;
 156 }
 157
 158 /* Log (additional) diognostic information.  */
 159
 160 void
 161 ps_plog (const char *fmt, ...)
 162 {
 163   va_list args;
 164
 165   va_start (args, fmt);
 166   vfprintf_filtered (gdb_stderr, fmt, args);
 167 }
 168
 169 /* Search for the symbol named NAME within the object named OBJ within
 170    the target process PH.  If the symbol is found the address of the
 171    symbol is stored in SYM_ADDR.  */
 172
 173 ps_err_e
 174 ps_pglobal_lookup (gdb_ps_prochandle_t ph, const char *obj,
 175                    const char *name, paddr_t *sym_addr)
 176 {
 177   struct minimal_symbol *ms;
 178
 179   /* FIXME: kettenis/2000-09-03: What should we do with OBJ?  */
 180   ms = lookup_minimal_symbol (name, NULL, NULL);
 181   if (ms == NULL)
 182     return PS_NOSYM;
 183
 184   *sym_addr = SYMBOL_VALUE_ADDRESS (ms);
 185   return PS_OK;
 186 }
 187
 188 /* Read SIZE bytes from the target process PH at address ADDR and copy
 189    them into BUF.  */
 190
 191 ps_err_e
 192 ps_pdread (gdb_ps_prochandle_t ph, paddr_t addr,
 193            gdb_ps_read_buf_t buf, gdb_ps_size_t size)
 194 {
 195   return ps_xfer_memory (ph, addr, buf, size, 0);
 196 }
 197
 198 /* Write SIZE bytes from BUF into the target process PH at address ADDR.  */
 199
 200 ps_err_e
 201 ps_pdwrite (gdb_ps_prochandle_t ph, paddr_t addr,
 202             gdb_ps_write_buf_t buf, gdb_ps_size_t size)
 203 {
 204   return ps_xfer_memory (ph, addr, (char *) buf, size, 1);
 205 }
 206
 207 /* Read SIZE bytes from the target process PH at address ADDR and copy
 208    them into BUF.  */
 209
 210 ps_err_e
 211 ps_ptread (gdb_ps_prochandle_t ph, paddr_t addr,
 212            gdb_ps_read_buf_t buf, gdb_ps_size_t size)
 213 {
 214   return ps_xfer_memory (ph, addr, buf, size, 0);
 215 }
 216
 217 /* Write SIZE bytes from BUF into the target process PH at address ADDR.  */
 218
 219 ps_err_e
 220 ps_ptwrite (gdb_ps_prochandle_t ph, paddr_t addr,
 221             gdb_ps_write_buf_t buf, gdb_ps_size_t size)
 222 {
 223   return ps_xfer_memory (ph, addr, (char *) buf, size, 1);
 224 }
 225
 226 /* Get the general registers of LWP LWPID within the target process PH
 227    and store them in GREGSET.  */
 228
 229 ps_err_e
 230 ps_lgetregs (gdb_ps_prochandle_t ph, lwpid_t lwpid, prgregset_t gregset)
 231 {
 232   struct cleanup *old_chain = save_inferior_ptid ();
 233
 234   inferior_ptid = BUILD_LWP (lwpid, ph->pid);
 235
 236   target_fetch_registers (-1);
 237   fill_gregset ((gdb_gregset_t *) gregset, -1);
 238
 239   do_cleanups (old_chain);
 240   return PS_OK;
 241 }
 242
 243 /* Set the general registers of LWP LWPID within the target process PH
 244    from GREGSET.  */
 245
 246 ps_err_e
 247 ps_lsetregs (gdb_ps_prochandle_t ph, lwpid_t lwpid, const prgregset_t gregset)
 248 {
 249   struct cleanup *old_chain = save_inferior_ptid ();
 250
 251   inferior_ptid = BUILD_LWP (lwpid, ph->pid);
 252
 253   /* FIXME: We should really make supply_gregset const-correct.  */
 254   supply_gregset ((gdb_gregset_t *) gregset);
 255   target_store_registers (-1);
 256
 257   do_cleanups (old_chain);
 258   return PS_OK;
 259 }
 260
 261 /* Get the floating-point registers of LWP LWPID within the target
 262    process PH and store them in FPREGSET.  */
 263
 264 ps_err_e
 265 ps_lgetfpregs (gdb_ps_prochandle_t ph, lwpid_t lwpid,
 266                gdb_prfpregset_t *fpregset)
 267 {
 268   struct cleanup *old_chain = save_inferior_ptid ();
 269
 270   inferior_ptid = BUILD_LWP (lwpid, ph->pid);
 271
 272   target_fetch_registers (-1);
 273   fill_fpregset ((gdb_fpregset_t *) fpregset, -1);
 274
 275   do_cleanups (old_chain);
 276   return PS_OK;
 277 }
 278
 279 /* Set the floating-point registers of LWP LWPID within the target
 280    process PH from FPREGSET.  */
 281
 282 ps_err_e
 283 ps_lsetfpregs (gdb_ps_prochandle_t ph, lwpid_t lwpid,
 284                const gdb_prfpregset_t *fpregset)
 285 {
 286   struct cleanup *old_chain = save_inferior_ptid ();
 287
 288   inferior_ptid = BUILD_LWP (lwpid, ph->pid);
 289
 290   /* FIXME: We should really make supply_fpregset const-correct.  */
 291   supply_fpregset ((gdb_fpregset_t *) fpregset);
 292   target_store_registers (-1);
 293
 294   do_cleanups (old_chain);
 295   return PS_OK;
 296 }
 297
 298 /* Return overall process id of the target PH.  Special for GNU/Linux
 299    -- not used on Solaris.  */
 300
 301 pid_t
 302 ps_getpid (gdb_ps_prochandle_t ph)
 303 {
 304   return ph->pid;
 305 }
 306
 307 void
 308 _initialize_proc_service (void)
 309 {
 310   /* This function solely exists to make sure this module is linked
 311      into the final binary.  */
 312 }