/* <proc_service.h> implementation.
|
/* <proc_service.h> implementation.
|
|
|
Copyright (C) 1999, 2000, 2002, 2007, 2008, 2009, 2010
|
Copyright (C) 1999, 2000, 2002, 2007, 2008, 2009, 2010
|
Free Software Foundation, Inc.
|
Free Software Foundation, Inc.
|
|
|
This file is part of GDB.
|
This file is part of GDB.
|
|
|
This program is free software; you can redistribute it and/or modify
|
This program is free software; you can redistribute it and/or modify
|
it under the terms of the GNU General Public License as published by
|
it under the terms of the GNU General Public License as published by
|
the Free Software Foundation; either version 3 of the License, or
|
the Free Software Foundation; either version 3 of the License, or
|
(at your option) any later version.
|
(at your option) any later version.
|
|
|
This program is distributed in the hope that it will be useful,
|
This program is distributed in the hope that it will be useful,
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
GNU General Public License for more details.
|
GNU General Public License for more details.
|
|
|
You should have received a copy of the GNU General Public License
|
You should have received a copy of the GNU General Public License
|
along with this program. If not, see <http://www.gnu.org/licenses/>. */
|
along with this program. If not, see <http://www.gnu.org/licenses/>. */
|
|
|
#include "defs.h"
|
#include "defs.h"
|
|
|
#include "gdbcore.h"
|
#include "gdbcore.h"
|
#include "inferior.h"
|
#include "inferior.h"
|
#include "symtab.h"
|
#include "symtab.h"
|
#include "target.h"
|
#include "target.h"
|
#include "regcache.h"
|
#include "regcache.h"
|
|
|
#include "gdb_proc_service.h"
|
#include "gdb_proc_service.h"
|
|
|
#include <sys/procfs.h>
|
#include <sys/procfs.h>
|
|
|
/* Prototypes for supply_gregset etc. */
|
/* Prototypes for supply_gregset etc. */
|
#include "gregset.h"
|
#include "gregset.h"
|
|
|
|
|
/* Fix-up some broken systems. */
|
/* Fix-up some broken systems. */
|
|
|
/* The prototypes in <proc_service.h> are slightly different on older
|
/* The prototypes in <proc_service.h> are slightly different on older
|
systems. Compensate for the discrepancies. */
|
systems. Compensate for the discrepancies. */
|
|
|
#ifdef PROC_SERVICE_IS_OLD
|
#ifdef PROC_SERVICE_IS_OLD
|
typedef const struct ps_prochandle *gdb_ps_prochandle_t;
|
typedef const struct ps_prochandle *gdb_ps_prochandle_t;
|
typedef char *gdb_ps_read_buf_t;
|
typedef char *gdb_ps_read_buf_t;
|
typedef char *gdb_ps_write_buf_t;
|
typedef char *gdb_ps_write_buf_t;
|
typedef int gdb_ps_size_t;
|
typedef int gdb_ps_size_t;
|
#else
|
#else
|
typedef struct ps_prochandle *gdb_ps_prochandle_t;
|
typedef struct ps_prochandle *gdb_ps_prochandle_t;
|
typedef void *gdb_ps_read_buf_t;
|
typedef void *gdb_ps_read_buf_t;
|
typedef const void *gdb_ps_write_buf_t;
|
typedef const void *gdb_ps_write_buf_t;
|
typedef size_t gdb_ps_size_t;
|
typedef size_t gdb_ps_size_t;
|
#endif
|
#endif
|
|
|
|
|
/* Building process ids. */
|
/* Building process ids. */
|
|
|
#define BUILD_LWP(lwp, pid) ptid_build (pid, lwp, 0)
|
#define BUILD_LWP(lwp, pid) ptid_build (pid, lwp, 0)
|
|
|
|
|
/* Helper functions. */
|
/* Helper functions. */
|
|
|
/* Convert a psaddr_t to a CORE_ADDR. */
|
/* Convert a psaddr_t to a CORE_ADDR. */
|
|
|
static CORE_ADDR
|
static CORE_ADDR
|
ps_addr_to_core_addr (psaddr_t addr)
|
ps_addr_to_core_addr (psaddr_t addr)
|
{
|
{
|
if (exec_bfd && bfd_get_sign_extend_vma (exec_bfd))
|
if (exec_bfd && bfd_get_sign_extend_vma (exec_bfd))
|
return (intptr_t) addr;
|
return (intptr_t) addr;
|
else
|
else
|
return (uintptr_t) addr;
|
return (uintptr_t) addr;
|
}
|
}
|
|
|
/* Convert a CORE_ADDR to a psaddr_t. */
|
/* Convert a CORE_ADDR to a psaddr_t. */
|
|
|
static psaddr_t
|
static psaddr_t
|
core_addr_to_ps_addr (CORE_ADDR addr)
|
core_addr_to_ps_addr (CORE_ADDR addr)
|
{
|
{
|
if (exec_bfd && bfd_get_sign_extend_vma (exec_bfd))
|
if (exec_bfd && bfd_get_sign_extend_vma (exec_bfd))
|
return (psaddr_t) (intptr_t) addr;
|
return (psaddr_t) (intptr_t) addr;
|
else
|
else
|
return (psaddr_t) (uintptr_t) addr;
|
return (psaddr_t) (uintptr_t) addr;
|
}
|
}
|
|
|
/* Transfer LEN bytes of memory between BUF and address ADDR in the
|
/* Transfer LEN bytes of memory between BUF and address ADDR in the
|
process specified by PH. If WRITE, transfer them to the process,
|
process specified by PH. If WRITE, transfer them to the process,
|
else transfer them from the process. Returns PS_OK for success,
|
else transfer them from the process. Returns PS_OK for success,
|
PS_ERR on failure.
|
PS_ERR on failure.
|
|
|
This is a helper function for ps_pdread, ps_pdwrite, ps_ptread and
|
This is a helper function for ps_pdread, ps_pdwrite, ps_ptread and
|
ps_ptwrite. */
|
ps_ptwrite. */
|
|
|
static ps_err_e
|
static ps_err_e
|
ps_xfer_memory (const struct ps_prochandle *ph, psaddr_t addr,
|
ps_xfer_memory (const struct ps_prochandle *ph, psaddr_t addr,
|
gdb_byte *buf, size_t len, int write)
|
gdb_byte *buf, size_t len, int write)
|
{
|
{
|
struct cleanup *old_chain = save_inferior_ptid ();
|
struct cleanup *old_chain = save_inferior_ptid ();
|
int ret;
|
int ret;
|
CORE_ADDR core_addr = ps_addr_to_core_addr (addr);
|
CORE_ADDR core_addr = ps_addr_to_core_addr (addr);
|
|
|
inferior_ptid = ph->ptid;
|
inferior_ptid = ph->ptid;
|
|
|
if (write)
|
if (write)
|
ret = target_write_memory (core_addr, buf, len);
|
ret = target_write_memory (core_addr, buf, len);
|
else
|
else
|
ret = target_read_memory (core_addr, buf, len);
|
ret = target_read_memory (core_addr, buf, len);
|
|
|
do_cleanups (old_chain);
|
do_cleanups (old_chain);
|
|
|
return (ret == 0 ? PS_OK : PS_ERR);
|
return (ret == 0 ? PS_OK : PS_ERR);
|
}
|
}
|
|
|
|
|
/* Stop the target process PH. */
|
/* Stop the target process PH. */
|
|
|
ps_err_e
|
ps_err_e
|
ps_pstop (gdb_ps_prochandle_t ph)
|
ps_pstop (gdb_ps_prochandle_t ph)
|
{
|
{
|
/* The process is always stopped when under control of GDB. */
|
/* The process is always stopped when under control of GDB. */
|
return PS_OK;
|
return PS_OK;
|
}
|
}
|
|
|
/* Resume the target process PH. */
|
/* Resume the target process PH. */
|
|
|
ps_err_e
|
ps_err_e
|
ps_pcontinue (gdb_ps_prochandle_t ph)
|
ps_pcontinue (gdb_ps_prochandle_t ph)
|
{
|
{
|
/* Pretend we did successfully continue the process. GDB will take
|
/* Pretend we did successfully continue the process. GDB will take
|
care of it later on. */
|
care of it later on. */
|
return PS_OK;
|
return PS_OK;
|
}
|
}
|
|
|
/* Stop the lightweight process LWPID within the target process PH. */
|
/* Stop the lightweight process LWPID within the target process PH. */
|
|
|
ps_err_e
|
ps_err_e
|
ps_lstop (gdb_ps_prochandle_t ph, lwpid_t lwpid)
|
ps_lstop (gdb_ps_prochandle_t ph, lwpid_t lwpid)
|
{
|
{
|
/* All lightweight processes are stopped when under control of GDB. */
|
/* All lightweight processes are stopped when under control of GDB. */
|
return PS_OK;
|
return PS_OK;
|
}
|
}
|
|
|
/* Resume the lightweight process (LWP) LWPID within the target
|
/* Resume the lightweight process (LWP) LWPID within the target
|
process PH. */
|
process PH. */
|
|
|
ps_err_e
|
ps_err_e
|
ps_lcontinue (gdb_ps_prochandle_t ph, lwpid_t lwpid)
|
ps_lcontinue (gdb_ps_prochandle_t ph, lwpid_t lwpid)
|
{
|
{
|
/* Pretend we did successfully continue LWPID. GDB will take care
|
/* Pretend we did successfully continue LWPID. GDB will take care
|
of it later on. */
|
of it later on. */
|
return PS_OK;
|
return PS_OK;
|
}
|
}
|
|
|
/* Get the size of the architecture-dependent extra state registers
|
/* Get the size of the architecture-dependent extra state registers
|
for LWP LWPID within the target process PH and return it in
|
for LWP LWPID within the target process PH and return it in
|
*XREGSIZE. */
|
*XREGSIZE. */
|
|
|
ps_err_e
|
ps_err_e
|
ps_lgetxregsize (gdb_ps_prochandle_t ph, lwpid_t lwpid, int *xregsize)
|
ps_lgetxregsize (gdb_ps_prochandle_t ph, lwpid_t lwpid, int *xregsize)
|
{
|
{
|
/* FIXME: Not supported yet. */
|
/* FIXME: Not supported yet. */
|
return PS_OK;
|
return PS_OK;
|
}
|
}
|
|
|
/* Get the extra state registers of LWP LWPID within the target
|
/* Get the extra state registers of LWP LWPID within the target
|
process PH and store them in XREGSET. */
|
process PH and store them in XREGSET. */
|
|
|
ps_err_e
|
ps_err_e
|
ps_lgetxregs (gdb_ps_prochandle_t ph, lwpid_t lwpid, caddr_t xregset)
|
ps_lgetxregs (gdb_ps_prochandle_t ph, lwpid_t lwpid, caddr_t xregset)
|
{
|
{
|
/* FIXME: Not supported yet. */
|
/* FIXME: Not supported yet. */
|
return PS_OK;
|
return PS_OK;
|
}
|
}
|
|
|
/* Set the extra state registers of LWP LWPID within the target
|
/* Set the extra state registers of LWP LWPID within the target
|
process PH from XREGSET. */
|
process PH from XREGSET. */
|
|
|
ps_err_e
|
ps_err_e
|
ps_lsetxregs (gdb_ps_prochandle_t ph, lwpid_t lwpid, caddr_t xregset)
|
ps_lsetxregs (gdb_ps_prochandle_t ph, lwpid_t lwpid, caddr_t xregset)
|
{
|
{
|
/* FIXME: Not supported yet. */
|
/* FIXME: Not supported yet. */
|
return PS_OK;
|
return PS_OK;
|
}
|
}
|
|
|
/* Log (additional) diognostic information. */
|
/* Log (additional) diognostic information. */
|
|
|
void
|
void
|
ps_plog (const char *fmt, ...)
|
ps_plog (const char *fmt, ...)
|
{
|
{
|
va_list args;
|
va_list args;
|
|
|
va_start (args, fmt);
|
va_start (args, fmt);
|
vfprintf_filtered (gdb_stderr, fmt, args);
|
vfprintf_filtered (gdb_stderr, fmt, args);
|
}
|
}
|
|
|
/* Search for the symbol named NAME within the object named OBJ within
|
/* Search for the symbol named NAME within the object named OBJ within
|
the target process PH. If the symbol is found the address of the
|
the target process PH. If the symbol is found the address of the
|
symbol is stored in SYM_ADDR. */
|
symbol is stored in SYM_ADDR. */
|
|
|
ps_err_e
|
ps_err_e
|
ps_pglobal_lookup (gdb_ps_prochandle_t ph, const char *obj,
|
ps_pglobal_lookup (gdb_ps_prochandle_t ph, const char *obj,
|
const char *name, psaddr_t *sym_addr)
|
const char *name, psaddr_t *sym_addr)
|
{
|
{
|
struct minimal_symbol *ms;
|
struct minimal_symbol *ms;
|
|
|
/* FIXME: kettenis/2000-09-03: What should we do with OBJ? */
|
/* FIXME: kettenis/2000-09-03: What should we do with OBJ? */
|
ms = lookup_minimal_symbol (name, NULL, NULL);
|
ms = lookup_minimal_symbol (name, NULL, NULL);
|
if (ms == NULL)
|
if (ms == NULL)
|
return PS_NOSYM;
|
return PS_NOSYM;
|
|
|
*sym_addr = core_addr_to_ps_addr (SYMBOL_VALUE_ADDRESS (ms));
|
*sym_addr = core_addr_to_ps_addr (SYMBOL_VALUE_ADDRESS (ms));
|
return PS_OK;
|
return PS_OK;
|
}
|
}
|
|
|
/* Read SIZE bytes from the target process PH at address ADDR and copy
|
/* Read SIZE bytes from the target process PH at address ADDR and copy
|
them into BUF. */
|
them into BUF. */
|
|
|
ps_err_e
|
ps_err_e
|
ps_pdread (gdb_ps_prochandle_t ph, psaddr_t addr,
|
ps_pdread (gdb_ps_prochandle_t ph, psaddr_t addr,
|
gdb_ps_read_buf_t buf, gdb_ps_size_t size)
|
gdb_ps_read_buf_t buf, gdb_ps_size_t size)
|
{
|
{
|
return ps_xfer_memory (ph, addr, buf, size, 0);
|
return ps_xfer_memory (ph, addr, buf, size, 0);
|
}
|
}
|
|
|
/* Write SIZE bytes from BUF into the target process PH at address ADDR. */
|
/* Write SIZE bytes from BUF into the target process PH at address ADDR. */
|
|
|
ps_err_e
|
ps_err_e
|
ps_pdwrite (gdb_ps_prochandle_t ph, psaddr_t addr,
|
ps_pdwrite (gdb_ps_prochandle_t ph, psaddr_t addr,
|
gdb_ps_write_buf_t buf, gdb_ps_size_t size)
|
gdb_ps_write_buf_t buf, gdb_ps_size_t size)
|
{
|
{
|
return ps_xfer_memory (ph, addr, (gdb_byte *) buf, size, 1);
|
return ps_xfer_memory (ph, addr, (gdb_byte *) buf, size, 1);
|
}
|
}
|
|
|
/* Read SIZE bytes from the target process PH at address ADDR and copy
|
/* Read SIZE bytes from the target process PH at address ADDR and copy
|
them into BUF. */
|
them into BUF. */
|
|
|
ps_err_e
|
ps_err_e
|
ps_ptread (gdb_ps_prochandle_t ph, psaddr_t addr,
|
ps_ptread (gdb_ps_prochandle_t ph, psaddr_t addr,
|
gdb_ps_read_buf_t buf, gdb_ps_size_t size)
|
gdb_ps_read_buf_t buf, gdb_ps_size_t size)
|
{
|
{
|
return ps_xfer_memory (ph, addr, (gdb_byte *) buf, size, 0);
|
return ps_xfer_memory (ph, addr, (gdb_byte *) buf, size, 0);
|
}
|
}
|
|
|
/* Write SIZE bytes from BUF into the target process PH at address ADDR. */
|
/* Write SIZE bytes from BUF into the target process PH at address ADDR. */
|
|
|
ps_err_e
|
ps_err_e
|
ps_ptwrite (gdb_ps_prochandle_t ph, psaddr_t addr,
|
ps_ptwrite (gdb_ps_prochandle_t ph, psaddr_t addr,
|
gdb_ps_write_buf_t buf, gdb_ps_size_t size)
|
gdb_ps_write_buf_t buf, gdb_ps_size_t size)
|
{
|
{
|
return ps_xfer_memory (ph, addr, (gdb_byte *) buf, size, 1);
|
return ps_xfer_memory (ph, addr, (gdb_byte *) buf, size, 1);
|
}
|
}
|
|
|
/* Get the general registers of LWP LWPID within the target process PH
|
/* Get the general registers of LWP LWPID within the target process PH
|
and store them in GREGSET. */
|
and store them in GREGSET. */
|
|
|
ps_err_e
|
ps_err_e
|
ps_lgetregs (gdb_ps_prochandle_t ph, lwpid_t lwpid, prgregset_t gregset)
|
ps_lgetregs (gdb_ps_prochandle_t ph, lwpid_t lwpid, prgregset_t gregset)
|
{
|
{
|
struct cleanup *old_chain = save_inferior_ptid ();
|
struct cleanup *old_chain = save_inferior_ptid ();
|
struct regcache *regcache;
|
struct regcache *regcache;
|
|
|
inferior_ptid = BUILD_LWP (lwpid, ptid_get_pid (ph->ptid));
|
inferior_ptid = BUILD_LWP (lwpid, ptid_get_pid (ph->ptid));
|
regcache = get_thread_arch_regcache (inferior_ptid, target_gdbarch);
|
regcache = get_thread_arch_regcache (inferior_ptid, target_gdbarch);
|
|
|
target_fetch_registers (regcache, -1);
|
target_fetch_registers (regcache, -1);
|
fill_gregset (regcache, (gdb_gregset_t *) gregset, -1);
|
fill_gregset (regcache, (gdb_gregset_t *) gregset, -1);
|
|
|
do_cleanups (old_chain);
|
do_cleanups (old_chain);
|
return PS_OK;
|
return PS_OK;
|
}
|
}
|
|
|
/* Set the general registers of LWP LWPID within the target process PH
|
/* Set the general registers of LWP LWPID within the target process PH
|
from GREGSET. */
|
from GREGSET. */
|
|
|
ps_err_e
|
ps_err_e
|
ps_lsetregs (gdb_ps_prochandle_t ph, lwpid_t lwpid, const prgregset_t gregset)
|
ps_lsetregs (gdb_ps_prochandle_t ph, lwpid_t lwpid, const prgregset_t gregset)
|
{
|
{
|
struct cleanup *old_chain = save_inferior_ptid ();
|
struct cleanup *old_chain = save_inferior_ptid ();
|
struct regcache *regcache;
|
struct regcache *regcache;
|
|
|
inferior_ptid = BUILD_LWP (lwpid, ptid_get_pid (ph->ptid));
|
inferior_ptid = BUILD_LWP (lwpid, ptid_get_pid (ph->ptid));
|
regcache = get_thread_arch_regcache (inferior_ptid, target_gdbarch);
|
regcache = get_thread_arch_regcache (inferior_ptid, target_gdbarch);
|
|
|
supply_gregset (regcache, (const gdb_gregset_t *) gregset);
|
supply_gregset (regcache, (const gdb_gregset_t *) gregset);
|
target_store_registers (regcache, -1);
|
target_store_registers (regcache, -1);
|
|
|
do_cleanups (old_chain);
|
do_cleanups (old_chain);
|
return PS_OK;
|
return PS_OK;
|
}
|
}
|
|
|
/* Get the floating-point registers of LWP LWPID within the target
|
/* Get the floating-point registers of LWP LWPID within the target
|
process PH and store them in FPREGSET. */
|
process PH and store them in FPREGSET. */
|
|
|
ps_err_e
|
ps_err_e
|
ps_lgetfpregs (gdb_ps_prochandle_t ph, lwpid_t lwpid,
|
ps_lgetfpregs (gdb_ps_prochandle_t ph, lwpid_t lwpid,
|
gdb_prfpregset_t *fpregset)
|
gdb_prfpregset_t *fpregset)
|
{
|
{
|
struct cleanup *old_chain = save_inferior_ptid ();
|
struct cleanup *old_chain = save_inferior_ptid ();
|
struct regcache *regcache;
|
struct regcache *regcache;
|
|
|
inferior_ptid = BUILD_LWP (lwpid, ptid_get_pid (ph->ptid));
|
inferior_ptid = BUILD_LWP (lwpid, ptid_get_pid (ph->ptid));
|
regcache = get_thread_arch_regcache (inferior_ptid, target_gdbarch);
|
regcache = get_thread_arch_regcache (inferior_ptid, target_gdbarch);
|
|
|
target_fetch_registers (regcache, -1);
|
target_fetch_registers (regcache, -1);
|
fill_fpregset (regcache, (gdb_fpregset_t *) fpregset, -1);
|
fill_fpregset (regcache, (gdb_fpregset_t *) fpregset, -1);
|
|
|
do_cleanups (old_chain);
|
do_cleanups (old_chain);
|
return PS_OK;
|
return PS_OK;
|
}
|
}
|
|
|
/* Set the floating-point registers of LWP LWPID within the target
|
/* Set the floating-point registers of LWP LWPID within the target
|
process PH from FPREGSET. */
|
process PH from FPREGSET. */
|
|
|
ps_err_e
|
ps_err_e
|
ps_lsetfpregs (gdb_ps_prochandle_t ph, lwpid_t lwpid,
|
ps_lsetfpregs (gdb_ps_prochandle_t ph, lwpid_t lwpid,
|
const gdb_prfpregset_t *fpregset)
|
const gdb_prfpregset_t *fpregset)
|
{
|
{
|
struct cleanup *old_chain = save_inferior_ptid ();
|
struct cleanup *old_chain = save_inferior_ptid ();
|
struct regcache *regcache;
|
struct regcache *regcache;
|
|
|
inferior_ptid = BUILD_LWP (lwpid, ptid_get_pid (ph->ptid));
|
inferior_ptid = BUILD_LWP (lwpid, ptid_get_pid (ph->ptid));
|
regcache = get_thread_arch_regcache (inferior_ptid, target_gdbarch);
|
regcache = get_thread_arch_regcache (inferior_ptid, target_gdbarch);
|
|
|
supply_fpregset (regcache, (const gdb_fpregset_t *) fpregset);
|
supply_fpregset (regcache, (const gdb_fpregset_t *) fpregset);
|
target_store_registers (regcache, -1);
|
target_store_registers (regcache, -1);
|
|
|
do_cleanups (old_chain);
|
do_cleanups (old_chain);
|
return PS_OK;
|
return PS_OK;
|
}
|
}
|
|
|
/* Return overall process id of the target PH. Special for GNU/Linux
|
/* Return overall process id of the target PH. Special for GNU/Linux
|
-- not used on Solaris. */
|
-- not used on Solaris. */
|
|
|
pid_t
|
pid_t
|
ps_getpid (gdb_ps_prochandle_t ph)
|
ps_getpid (gdb_ps_prochandle_t ph)
|
{
|
{
|
return ptid_get_pid (ph->ptid);
|
return ptid_get_pid (ph->ptid);
|
}
|
}
|
|
|
/* Provide a prototype to silence -Wmissing-prototypes. */
|
/* Provide a prototype to silence -Wmissing-prototypes. */
|
extern initialize_file_ftype _initialize_proc_service;
|
extern initialize_file_ftype _initialize_proc_service;
|
|
|
void
|
void
|
_initialize_proc_service (void)
|
_initialize_proc_service (void)
|
{
|
{
|
/* This function solely exists to make sure this module is linked
|
/* This function solely exists to make sure this module is linked
|
into the final binary. */
|
into the final binary. */
|
}
|
}
|
|
|
