1 /* <proc_service.h> implementation. 2 3 Copyright (C) 1999-2016 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 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 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 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_ptid (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, (gdb_byte *) 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 } 251