1 /* <proc_service.h> implementation.
3 Copyright (C) 1999-2014 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/>. */
28 #include "gdb_proc_service.h"
30 #include <sys/procfs.h>
32 /* Prototypes for supply_gregset etc. */
36 /* Fix-up some broken systems. */
38 /* The prototypes in <proc_service.h> are slightly different on older
39 systems. Compensate for the discrepancies. */
41 #ifdef PROC_SERVICE_IS_OLD
42 typedef const struct ps_prochandle *gdb_ps_prochandle_t;
43 typedef char *gdb_ps_read_buf_t;
44 typedef char *gdb_ps_write_buf_t;
45 typedef int gdb_ps_size_t;
47 typedef struct ps_prochandle *gdb_ps_prochandle_t;
48 typedef void *gdb_ps_read_buf_t;
49 typedef const void *gdb_ps_write_buf_t;
50 typedef size_t gdb_ps_size_t;
54 /* Helper functions. */
56 /* Convert a psaddr_t to a CORE_ADDR. */
59 ps_addr_to_core_addr (psaddr_t addr)
61 if (exec_bfd && bfd_get_sign_extend_vma (exec_bfd))
62 return (intptr_t) addr;
64 return (uintptr_t) addr;
67 /* Convert a CORE_ADDR to a psaddr_t. */
70 core_addr_to_ps_addr (CORE_ADDR addr)
72 if (exec_bfd && bfd_get_sign_extend_vma (exec_bfd))
73 return (psaddr_t) (intptr_t) addr;
75 return (psaddr_t) (uintptr_t) addr;
78 /* Transfer LEN bytes of memory between BUF and address ADDR in the
79 process specified by PH. If WRITE, transfer them to the process,
80 else transfer them from the process. Returns PS_OK for success,
83 This is a helper function for ps_pdread, ps_pdwrite, ps_ptread and
87 ps_xfer_memory (const struct ps_prochandle *ph, psaddr_t addr,
88 gdb_byte *buf, size_t len, int write)
90 struct cleanup *old_chain = save_inferior_ptid ();
92 CORE_ADDR core_addr = ps_addr_to_core_addr (addr);
94 inferior_ptid = ph->ptid;
97 ret = target_write_memory (core_addr, buf, len);
99 ret = target_read_memory (core_addr, buf, len);
101 do_cleanups (old_chain);
103 return (ret == 0 ? PS_OK : PS_ERR);
107 /* Stop the target process PH. */
110 ps_pstop (gdb_ps_prochandle_t ph)
112 /* The process is always stopped when under control of GDB. */
116 /* Resume the target process PH. */
119 ps_pcontinue (gdb_ps_prochandle_t ph)
121 /* Pretend we did successfully continue the process. GDB will take
122 care of it later on. */
126 /* Stop the lightweight process LWPID within the target process PH. */
129 ps_lstop (gdb_ps_prochandle_t ph, lwpid_t lwpid)
131 /* All lightweight processes are stopped when under control of GDB. */
135 /* Resume the lightweight process (LWP) LWPID within the target
139 ps_lcontinue (gdb_ps_prochandle_t ph, lwpid_t lwpid)
141 /* Pretend we did successfully continue LWPID. GDB will take care
146 /* Get the size of the architecture-dependent extra state registers
147 for LWP LWPID within the target process PH and return it in
151 ps_lgetxregsize (gdb_ps_prochandle_t ph, lwpid_t lwpid, int *xregsize)
153 /* FIXME: Not supported yet. */
157 /* Get the extra state registers of LWP LWPID within the target
158 process PH and store them in XREGSET. */
161 ps_lgetxregs (gdb_ps_prochandle_t ph, lwpid_t lwpid, caddr_t xregset)
163 /* FIXME: Not supported yet. */
167 /* Set the extra state registers of LWP LWPID within the target
168 process PH from XREGSET. */
171 ps_lsetxregs (gdb_ps_prochandle_t ph, lwpid_t lwpid, caddr_t xregset)
173 /* FIXME: Not supported yet. */
177 /* Log (additional) diognostic information. */
180 ps_plog (const char *fmt, ...)
184 va_start (args, fmt);
185 vfprintf_filtered (gdb_stderr, fmt, args);
189 /* Search for the symbol named NAME within the object named OBJ within
190 the target process PH. If the symbol is found the address of the
191 symbol is stored in SYM_ADDR. */
194 ps_pglobal_lookup (gdb_ps_prochandle_t ph, const char *obj,
195 const char *name, psaddr_t *sym_addr)
197 struct bound_minimal_symbol ms;
198 struct cleanup *old_chain = save_current_program_space ();
199 struct inferior *inf = find_inferior_pid (ptid_get_pid (ph->ptid));
202 set_current_program_space (inf->pspace);
204 /* FIXME: kettenis/2000-09-03: What should we do with OBJ? */
205 ms = lookup_minimal_symbol (name, NULL, NULL);
206 if (ms.minsym == NULL)
210 *sym_addr = core_addr_to_ps_addr (MSYMBOL_VALUE_ADDRESS (ms.minsym));
214 do_cleanups (old_chain);
218 /* Read SIZE bytes from the target process PH at address ADDR and copy
222 ps_pdread (gdb_ps_prochandle_t ph, psaddr_t addr,
223 gdb_ps_read_buf_t buf, gdb_ps_size_t size)
225 return ps_xfer_memory (ph, addr, buf, size, 0);
228 /* Write SIZE bytes from BUF into the target process PH at address ADDR. */
231 ps_pdwrite (gdb_ps_prochandle_t ph, psaddr_t addr,
232 gdb_ps_write_buf_t buf, gdb_ps_size_t size)
234 return ps_xfer_memory (ph, addr, (gdb_byte *) buf, size, 1);
237 /* Read SIZE bytes from the target process PH at address ADDR and copy
241 ps_ptread (gdb_ps_prochandle_t ph, psaddr_t addr,
242 gdb_ps_read_buf_t buf, gdb_ps_size_t size)
244 return ps_xfer_memory (ph, addr, (gdb_byte *) buf, size, 0);
247 /* Write SIZE bytes from BUF into the target process PH at address ADDR. */
250 ps_ptwrite (gdb_ps_prochandle_t ph, psaddr_t addr,
251 gdb_ps_write_buf_t buf, gdb_ps_size_t size)
253 return ps_xfer_memory (ph, addr, (gdb_byte *) buf, size, 1);
256 /* Get the general registers of LWP LWPID within the target process PH
257 and store them in GREGSET. */
260 ps_lgetregs (gdb_ps_prochandle_t ph, lwpid_t lwpid, prgregset_t gregset)
262 struct cleanup *old_chain = save_inferior_ptid ();
263 struct regcache *regcache;
265 inferior_ptid = ptid_build (ptid_get_pid (ph->ptid), lwpid, 0);
266 regcache = get_thread_arch_regcache (inferior_ptid, target_gdbarch ());
268 target_fetch_registers (regcache, -1);
269 fill_gregset (regcache, (gdb_gregset_t *) gregset, -1);
271 do_cleanups (old_chain);
275 /* Set the general registers of LWP LWPID within the target process PH
279 ps_lsetregs (gdb_ps_prochandle_t ph, lwpid_t lwpid, const prgregset_t gregset)
281 struct cleanup *old_chain = save_inferior_ptid ();
282 struct regcache *regcache;
284 inferior_ptid = ptid_build (ptid_get_pid (ph->ptid), lwpid, 0);
285 regcache = get_thread_arch_regcache (inferior_ptid, target_gdbarch ());
287 supply_gregset (regcache, (const gdb_gregset_t *) gregset);
288 target_store_registers (regcache, -1);
290 do_cleanups (old_chain);
294 /* Get the floating-point registers of LWP LWPID within the target
295 process PH and store them in FPREGSET. */
298 ps_lgetfpregs (gdb_ps_prochandle_t ph, lwpid_t lwpid,
299 gdb_prfpregset_t *fpregset)
301 struct cleanup *old_chain = save_inferior_ptid ();
302 struct regcache *regcache;
304 inferior_ptid = ptid_build (ptid_get_pid (ph->ptid), lwpid, 0);
305 regcache = get_thread_arch_regcache (inferior_ptid, target_gdbarch ());
307 target_fetch_registers (regcache, -1);
308 fill_fpregset (regcache, (gdb_fpregset_t *) fpregset, -1);
310 do_cleanups (old_chain);
314 /* Set the floating-point registers of LWP LWPID within the target
315 process PH from FPREGSET. */
318 ps_lsetfpregs (gdb_ps_prochandle_t ph, lwpid_t lwpid,
319 const gdb_prfpregset_t *fpregset)
321 struct cleanup *old_chain = save_inferior_ptid ();
322 struct regcache *regcache;
324 inferior_ptid = ptid_build (ptid_get_pid (ph->ptid), lwpid, 0);
325 regcache = get_thread_arch_regcache (inferior_ptid, target_gdbarch ());
327 supply_fpregset (regcache, (const gdb_fpregset_t *) fpregset);
328 target_store_registers (regcache, -1);
330 do_cleanups (old_chain);
334 /* Return overall process id of the target PH. Special for GNU/Linux
335 -- not used on Solaris. */
338 ps_getpid (gdb_ps_prochandle_t ph)
340 return ptid_get_pid (ph->ptid);
343 /* Provide a prototype to silence -Wmissing-prototypes. */
344 extern initialize_file_ftype _initialize_proc_service;
347 _initialize_proc_service (void)
349 /* This function solely exists to make sure this module is linked
350 into the final binary. */