1999-04-16 03:35:26 +02:00
|
|
|
|
/* Low level interface for debugging Solaris threads for GDB, the GNU debugger.
|
2003-02-25 David Carlton <carlton@math.stanford.edu>
* symtab.h (SYMBOL_NATURAL_NAME): New macro.
(SYMBOL_LINKAGE_NAME): Ditto.
(SYMBOL_PRINT_NAME): Use SYMBOL_NATURAL_NAME and
SYMBOL_LINKAGE_NAME.
(struct general_symbol_info): Expand comment.
(DEPRECATED_SYMBOL_NAME): Rename from SYMBOL_NAME.
(SYMBOL_MATCHES_NAME): Use DEPRECATED_SYMBOL_NAME.
(SYMBOL_MATCHES_REGEXP): Ditto.
* symtab.c (symbol_natural_name): New function.
* objfiles.h: Replace all uses of SYMBOL_NAME by
DEPRECATED_SYMBOL_NAME.
* xcoffread.c, valops.c, typeprint.c, tracepoint.c: Ditto.
* symtab.c, symmisc.c, symfile.c, stack.c, stabsread.c: Ditto.
* somsolib.c, sol-thread.c, rs6000-tdep.c, p-valprint.c: Ditto.
* printcmd.c, objfiles.c, objc-lang.c, mipsread.c: Ditto.
* minsyms.c, mdebugread.c, linespec.c, jv-lang.c: Ditto.
* i386-tdep.c, i386-linux-tdep.c, hpread.c, hppa-tdep.c: Ditto.
* gnu-v2-abi.c, f-valprint.c, findvar.c, expprint.c: Ditto.
* dwarfread.c, dwarf2read.c, dbxread.c, c-valprint.c: Ditto.
* cp-valprint.c, coffread.c, buildsym.c, breakpoint.c: Ditto.
* blockframe.c, ax-gdb.c, arm-linux-tdep.c, ada-lang.c: Ditto.
* ada-exp.y: Ditto.
* ada-exp.y: Update copyright.
* sol-thread.c, mipsread.c, jv-lang.c, f-valprint.c: Ditto.
* cp-valprint.c: Ditto.
2003-02-25 David Carlton <carlton@math.stanford.edu>
* generic/gdbtk.h: Replace all instances of SYMBOL_NAME by
DEPRECATED_SYMBOL_NAME.
* generic/gdbtk-stack.c, generic/gdbtk-cmds.c: Ditto.
* generic/gdbtk-stack.c, generic/gdbtk-cmds.c: Update copyright.
2003-02-25 David Carlton <carlton@math.stanford.edu>
* mi-cmd-stack.c: Replace all instances of SYMBOL_NAME with
DEPRECATED_SYMBOL_NAME. Update copyright.
2003-02-25 22:36:23 +01:00
|
|
|
|
Copyright 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003
|
2001-03-06 09:22:02 +01:00
|
|
|
|
Free Software Foundation, Inc.
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
This file is part of GDB.
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
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
|
|
|
|
|
the Free Software Foundation; either version 2 of the License, or
|
|
|
|
|
(at your option) any later version.
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
|
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
|
GNU General Public License for more details.
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
|
|
|
along with this program; if not, write to the Free Software
|
|
|
|
|
Foundation, Inc., 59 Temple Place - Suite 330,
|
|
|
|
|
Boston, MA 02111-1307, USA. */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
/* This module implements a sort of half target that sits between the
|
|
|
|
|
machine-independent parts of GDB and the /proc interface (procfs.c) to
|
|
|
|
|
provide access to the Solaris user-mode thread implementation.
|
|
|
|
|
|
|
|
|
|
Solaris threads are true user-mode threads, which are invoked via the thr_*
|
|
|
|
|
and pthread_* (native and Posix respectivly) interfaces. These are mostly
|
|
|
|
|
implemented in user-space, with all thread context kept in various
|
|
|
|
|
structures that live in the user's heap. These should not be confused with
|
|
|
|
|
lightweight processes (LWPs), which are implemented by the kernel, and
|
|
|
|
|
scheduled without explicit intervention by the process.
|
|
|
|
|
|
|
|
|
|
Just to confuse things a little, Solaris threads (both native and Posix) are
|
|
|
|
|
actually implemented using LWPs. In general, there are going to be more
|
|
|
|
|
threads than LWPs. There is no fixed correspondence between a thread and an
|
|
|
|
|
LWP. When a thread wants to run, it gets scheduled onto the first available
|
|
|
|
|
LWP and can therefore migrate from one LWP to another as time goes on. A
|
|
|
|
|
sleeping thread may not be associated with an LWP at all!
|
|
|
|
|
|
|
|
|
|
To make it possible to mess with threads, Sun provides a library called
|
|
|
|
|
libthread_db.so.1 (not to be confused with libthread_db.so.0, which doesn't
|
|
|
|
|
have a published interface). This interface has an upper part, which it
|
|
|
|
|
provides, and a lower part which I provide. The upper part consists of the
|
|
|
|
|
td_* routines, which allow me to find all the threads, query their state,
|
|
|
|
|
etc... The lower part consists of all of the ps_*, which are used by the
|
|
|
|
|
td_* routines to read/write memory, manipulate LWPs, lookup symbols, etc...
|
|
|
|
|
The ps_* routines actually do most of their work by calling functions in
|
|
|
|
|
procfs.c. */
|
|
|
|
|
|
|
|
|
|
#include "defs.h"
|
|
|
|
|
#include <thread.h>
|
|
|
|
|
#include <proc_service.h>
|
|
|
|
|
#include <thread_db.h>
|
|
|
|
|
#include "gdbthread.h"
|
|
|
|
|
#include "target.h"
|
|
|
|
|
#include "inferior.h"
|
|
|
|
|
#include <fcntl.h>
|
2003-02-07 06:33:45 +01:00
|
|
|
|
#include "gdb_stat.h"
|
1999-04-16 03:35:26 +02:00
|
|
|
|
#include <dlfcn.h>
|
|
|
|
|
#include "gdbcmd.h"
|
2000-08-30 02:58:58 +02:00
|
|
|
|
#include "gdbcore.h"
|
2001-03-01 02:39:22 +01:00
|
|
|
|
#include "regcache.h"
|
2001-11-01 17:17:08 +01:00
|
|
|
|
#include "symfile.h"
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
2003-09-06 23:09:21 +02:00
|
|
|
|
#include "gdb_string.h"
|
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
extern struct target_ops sol_thread_ops; /* Forward declaration */
|
|
|
|
|
extern struct target_ops sol_core_ops; /* Forward declaration */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
/* place to store core_ops before we overwrite it */
|
|
|
|
|
static struct target_ops orig_core_ops;
|
|
|
|
|
|
|
|
|
|
struct target_ops sol_thread_ops;
|
|
|
|
|
struct target_ops sol_core_ops;
|
|
|
|
|
|
|
|
|
|
extern int procfs_suppress_run;
|
1999-07-07 22:19:36 +02:00
|
|
|
|
extern struct target_ops procfs_ops; /* target vector for procfs.c */
|
|
|
|
|
extern struct target_ops core_ops; /* target vector for corelow.c */
|
2001-05-04 06:15:33 +02:00
|
|
|
|
extern char *procfs_pid_to_str (ptid_t ptid);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
2000-05-26 Michael Snyder <msnyder@seadog.cygnus.com>
* gregset.h: New file. Typedefs for gdb_gregset_t and
gdb_fpregset_t, prototypes for supply_gregset and friends.
* procfs.c: Include gregset.h. Delete local prototypes for
supply_gregset etc., and local typedef gdb_gregset_t etc.
* sol-thread.c: Include gregset.h, delete local prototypes,
add appropriate casts to gdb_gregset_t.
* uw-thread.c, lin-thread.c, core-sol2.c, core-regset.c,
sparc-tdep.c, ptx4-nat.c, ppc-linux-nat.c, mipsv4-nat.c,
m88k-nat.c, m68klinux-nat.c, m68k-tdep.c, irix5-nat.c,
irix4-nat.c, ia64-linux-nat.c, i386v4-nat.c, cxux-nat.c,
arm-linux-nat.c, alpha-nat.c: Include gregset.h.
* config/nm-linux.h: Define GDB_GREGSET_T, GDB_FPREGET_T.
* config/sparc/tm-sun4sol2.h: Ditto.
2000-05-27 01:22:41 +02:00
|
|
|
|
/* Prototypes for supply_gregset etc. */
|
|
|
|
|
#include "gregset.h"
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
/* This struct is defined by us, but mainly used for the proc_service interface.
|
|
|
|
|
We don't have much use for it, except as a handy place to get a real pid
|
|
|
|
|
for memory accesses. */
|
|
|
|
|
|
|
|
|
|
struct ps_prochandle
|
1999-07-07 22:19:36 +02:00
|
|
|
|
{
|
2001-05-04 06:15:33 +02:00
|
|
|
|
ptid_t ptid;
|
1999-07-07 22:19:36 +02:00
|
|
|
|
};
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
struct string_map
|
1999-07-07 22:19:36 +02:00
|
|
|
|
{
|
|
|
|
|
int num;
|
|
|
|
|
char *str;
|
|
|
|
|
};
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
static struct ps_prochandle main_ph;
|
|
|
|
|
static td_thragent_t *main_ta;
|
|
|
|
|
static int sol_thread_active = 0;
|
|
|
|
|
|
2000-05-28 03:12:42 +02:00
|
|
|
|
static char *td_err_string (td_err_e errcode);
|
|
|
|
|
static char *td_state_string (td_thr_state_e statecode);
|
2001-05-04 06:15:33 +02:00
|
|
|
|
static ptid_t thread_to_lwp (ptid_t thread_id, int default_lwp);
|
|
|
|
|
static void sol_thread_resume (ptid_t ptid, int step, enum target_signal signo);
|
|
|
|
|
static ptid_t lwp_to_thread (ptid_t lwp);
|
|
|
|
|
static int sol_thread_alive (ptid_t ptid);
|
2000-05-28 03:12:42 +02:00
|
|
|
|
static void sol_core_close (int quitting);
|
|
|
|
|
|
|
|
|
|
static void init_sol_thread_ops (void);
|
|
|
|
|
static void init_sol_core_ops (void);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-09-09 02:02:17 +02:00
|
|
|
|
/* Default definitions: These must be defined in tm.h
|
|
|
|
|
if they are to be shared with a process module such as procfs. */
|
|
|
|
|
|
2001-05-15 02:03:38 +02:00
|
|
|
|
#define GET_PID(ptid) ptid_get_pid (ptid)
|
|
|
|
|
#define GET_LWP(ptid) ptid_get_lwp (ptid)
|
|
|
|
|
#define GET_THREAD(ptid) ptid_get_tid (ptid)
|
|
|
|
|
|
|
|
|
|
#define is_lwp(ptid) (GET_LWP (ptid) != 0)
|
|
|
|
|
#define is_thread(ptid) (GET_THREAD (ptid) != 0)
|
|
|
|
|
|
|
|
|
|
#define BUILD_LWP(lwp, pid) ptid_build (pid, lwp, 0)
|
|
|
|
|
#define BUILD_THREAD(tid, pid) ptid_build (pid, 0, tid)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
/* Pointers to routines from lithread_db resolved by dlopen() */
|
|
|
|
|
|
2000-05-09 00:34:38 +02:00
|
|
|
|
static void (*p_td_log) (const int on_off);
|
|
|
|
|
static td_err_e (*p_td_ta_new) (const struct ps_prochandle * ph_p,
|
|
|
|
|
td_thragent_t ** ta_pp);
|
|
|
|
|
static td_err_e (*p_td_ta_delete) (td_thragent_t * ta_p);
|
|
|
|
|
static td_err_e (*p_td_init) (void);
|
|
|
|
|
static td_err_e (*p_td_ta_get_ph) (const td_thragent_t * ta_p,
|
|
|
|
|
struct ps_prochandle ** ph_pp);
|
|
|
|
|
static td_err_e (*p_td_ta_get_nthreads) (const td_thragent_t * ta_p,
|
|
|
|
|
int *nthread_p);
|
|
|
|
|
static td_err_e (*p_td_ta_tsd_iter) (const td_thragent_t * ta_p,
|
|
|
|
|
td_key_iter_f * cb,
|
|
|
|
|
void *cbdata_p);
|
|
|
|
|
static td_err_e (*p_td_ta_thr_iter) (const td_thragent_t * ta_p,
|
|
|
|
|
td_thr_iter_f * cb,
|
|
|
|
|
void *cbdata_p,
|
|
|
|
|
td_thr_state_e state,
|
|
|
|
|
int ti_pri,
|
|
|
|
|
sigset_t * ti_sigmask_p,
|
|
|
|
|
unsigned ti_user_flags);
|
|
|
|
|
static td_err_e (*p_td_thr_validate) (const td_thrhandle_t * th_p);
|
|
|
|
|
static td_err_e (*p_td_thr_tsd) (const td_thrhandle_t * th_p,
|
|
|
|
|
const thread_key_t key,
|
|
|
|
|
void **data_pp);
|
|
|
|
|
static td_err_e (*p_td_thr_get_info) (const td_thrhandle_t * th_p,
|
|
|
|
|
td_thrinfo_t * ti_p);
|
|
|
|
|
static td_err_e (*p_td_thr_getfpregs) (const td_thrhandle_t * th_p,
|
|
|
|
|
prfpregset_t * fpregset);
|
|
|
|
|
static td_err_e (*p_td_thr_getxregsize) (const td_thrhandle_t * th_p,
|
|
|
|
|
int *xregsize);
|
|
|
|
|
static td_err_e (*p_td_thr_getxregs) (const td_thrhandle_t * th_p,
|
|
|
|
|
const caddr_t xregset);
|
|
|
|
|
static td_err_e (*p_td_thr_sigsetmask) (const td_thrhandle_t * th_p,
|
|
|
|
|
const sigset_t ti_sigmask);
|
|
|
|
|
static td_err_e (*p_td_thr_setprio) (const td_thrhandle_t * th_p,
|
|
|
|
|
const int ti_pri);
|
|
|
|
|
static td_err_e (*p_td_thr_setsigpending) (const td_thrhandle_t * th_p,
|
|
|
|
|
const uchar_t ti_pending_flag,
|
|
|
|
|
const sigset_t ti_pending);
|
|
|
|
|
static td_err_e (*p_td_thr_setfpregs) (const td_thrhandle_t * th_p,
|
|
|
|
|
const prfpregset_t * fpregset);
|
|
|
|
|
static td_err_e (*p_td_thr_setxregs) (const td_thrhandle_t * th_p,
|
|
|
|
|
const caddr_t xregset);
|
|
|
|
|
static td_err_e (*p_td_ta_map_id2thr) (const td_thragent_t * ta_p,
|
|
|
|
|
thread_t tid,
|
|
|
|
|
td_thrhandle_t * th_p);
|
|
|
|
|
static td_err_e (*p_td_ta_map_lwp2thr) (const td_thragent_t * ta_p,
|
|
|
|
|
lwpid_t lwpid,
|
|
|
|
|
td_thrhandle_t * th_p);
|
|
|
|
|
static td_err_e (*p_td_thr_getgregs) (const td_thrhandle_t * th_p,
|
|
|
|
|
prgregset_t regset);
|
|
|
|
|
static td_err_e (*p_td_thr_setgregs) (const td_thrhandle_t * th_p,
|
|
|
|
|
const prgregset_t regset);
|
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
/*
|
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
LOCAL FUNCTION
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
td_err_string - Convert a thread_db error code to a string
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
SYNOPSIS
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
char * td_err_string (errcode)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
DESCRIPTION
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
Return the thread_db error string associated with errcode. If errcode
|
|
|
|
|
is unknown, then return a message.
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
static char *
|
2000-07-30 03:48:28 +02:00
|
|
|
|
td_err_string (td_err_e errcode)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
static struct string_map
|
1999-07-07 22:19:36 +02:00
|
|
|
|
td_err_table[] =
|
|
|
|
|
{
|
|
|
|
|
{TD_OK, "generic \"call succeeded\""},
|
|
|
|
|
{TD_ERR, "generic error."},
|
|
|
|
|
{TD_NOTHR, "no thread can be found to satisfy query"},
|
|
|
|
|
{TD_NOSV, "no synch. variable can be found to satisfy query"},
|
|
|
|
|
{TD_NOLWP, "no lwp can be found to satisfy query"},
|
|
|
|
|
{TD_BADPH, "invalid process handle"},
|
|
|
|
|
{TD_BADTH, "invalid thread handle"},
|
|
|
|
|
{TD_BADSH, "invalid synchronization handle"},
|
|
|
|
|
{TD_BADTA, "invalid thread agent"},
|
|
|
|
|
{TD_BADKEY, "invalid key"},
|
|
|
|
|
{TD_NOMSG, "td_thr_event_getmsg() called when there was no message"},
|
|
|
|
|
{TD_NOFPREGS, "FPU register set not available for given thread"},
|
|
|
|
|
{TD_NOLIBTHREAD, "application not linked with libthread"},
|
|
|
|
|
{TD_NOEVENT, "requested event is not supported"},
|
|
|
|
|
{TD_NOCAPAB, "capability not available"},
|
|
|
|
|
{TD_DBERR, "Debugger service failed"},
|
|
|
|
|
{TD_NOAPLIC, "Operation not applicable to"},
|
|
|
|
|
{TD_NOTSD, "No thread specific data for this thread"},
|
|
|
|
|
{TD_MALLOC, "Malloc failed"},
|
* gdbarch.sh, hp-psymtab-read.c, hpread.c, m3-nat.c, mcore-tdep.c,
mips-tdep.c, monitor.c, regcache.c, remote-es.c, ser-unix.c,
somread.c, tracepoint.c: Fix spelling errors in comments.
* gdbarch.c: Regenerate.
* gnu-nat.c (S_exception_raise_request): Fix typos and spelling
errors in strings.
* m3-nat.c (intercept_exec_calls, mach_thread_parse_id): Likewise.
* mcore-tdep.c (mcore_analyze_prologue): Likewise.
* mips-tdep.c (mips16_next_pc, _initialize_mips_tdep): Likewise.
* remote-e7000.c (e7000_start_remote): Likewise.
* remote-rdp.c (handle_swi): Likewise.
* remote-vx.c (vx_load_command): Likewise.
* sh-tdep.c (sh_do_pseudo_register): Likewise.
* sol-thread.c (td_err_string): Likewise.
* symtab.c (decode_line_2): Likewise.
-------------------------------------------------------------------
2000-10-30 22:50:58 +01:00
|
|
|
|
{TD_PARTIALREG, "Only part of register set was written/read"},
|
1999-07-07 22:19:36 +02:00
|
|
|
|
{TD_NOXREGS, "X register set not available for given thread"}
|
|
|
|
|
};
|
1999-04-16 03:35:26 +02:00
|
|
|
|
const int td_err_size = sizeof td_err_table / sizeof (struct string_map);
|
|
|
|
|
int i;
|
|
|
|
|
static char buf[50];
|
|
|
|
|
|
|
|
|
|
for (i = 0; i < td_err_size; i++)
|
|
|
|
|
if (td_err_table[i].num == errcode)
|
|
|
|
|
return td_err_table[i].str;
|
1999-07-07 22:19:36 +02:00
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
sprintf (buf, "Unknown thread_db error code: %d", errcode);
|
|
|
|
|
|
|
|
|
|
return buf;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
LOCAL FUNCTION
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
td_state_string - Convert a thread_db state code to a string
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
SYNOPSIS
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
char * td_state_string (statecode)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
DESCRIPTION
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
Return the thread_db state string associated with statecode. If
|
|
|
|
|
statecode is unknown, then return a message.
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
static char *
|
2000-07-30 03:48:28 +02:00
|
|
|
|
td_state_string (td_thr_state_e statecode)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
static struct string_map
|
1999-07-07 22:19:36 +02:00
|
|
|
|
td_thr_state_table[] =
|
|
|
|
|
{
|
|
|
|
|
{TD_THR_ANY_STATE, "any state"},
|
|
|
|
|
{TD_THR_UNKNOWN, "unknown"},
|
|
|
|
|
{TD_THR_STOPPED, "stopped"},
|
|
|
|
|
{TD_THR_RUN, "run"},
|
|
|
|
|
{TD_THR_ACTIVE, "active"},
|
|
|
|
|
{TD_THR_ZOMBIE, "zombie"},
|
|
|
|
|
{TD_THR_SLEEP, "sleep"},
|
|
|
|
|
{TD_THR_STOPPED_ASLEEP, "stopped asleep"}
|
|
|
|
|
};
|
1999-04-16 03:35:26 +02:00
|
|
|
|
const int td_thr_state_table_size = sizeof td_thr_state_table / sizeof (struct string_map);
|
|
|
|
|
int i;
|
|
|
|
|
static char buf[50];
|
|
|
|
|
|
|
|
|
|
for (i = 0; i < td_thr_state_table_size; i++)
|
|
|
|
|
if (td_thr_state_table[i].num == statecode)
|
|
|
|
|
return td_thr_state_table[i].str;
|
1999-07-07 22:19:36 +02:00
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
sprintf (buf, "Unknown thread_db state code: %d", statecode);
|
|
|
|
|
|
|
|
|
|
return buf;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
LOCAL FUNCTION
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
thread_to_lwp - Convert a Posix or Solaris thread id to a LWP id.
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
SYNOPSIS
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
2001-05-04 06:15:33 +02:00
|
|
|
|
tpid_t thread_to_lwp (thread_id, default_lwp)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
DESCRIPTION
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
This function converts a Posix or Solaris thread id to a lightweight
|
|
|
|
|
process id. If thread_id is non-existent, that's an error. If it's
|
|
|
|
|
an inactive thread, then we return default_lwp.
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
NOTES
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
This function probably shouldn't call error()...
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
*/
|
|
|
|
|
|
2001-05-04 06:15:33 +02:00
|
|
|
|
static ptid_t
|
|
|
|
|
thread_to_lwp (ptid_t thread_id, int default_lwp)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
td_thrinfo_t ti;
|
|
|
|
|
td_thrhandle_t th;
|
|
|
|
|
td_err_e val;
|
|
|
|
|
|
|
|
|
|
if (is_lwp (thread_id))
|
1999-07-07 22:19:36 +02:00
|
|
|
|
return thread_id; /* It's already an LWP id */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
/* It's a thread. Convert to lwp */
|
|
|
|
|
|
|
|
|
|
val = p_td_ta_map_id2thr (main_ta, GET_THREAD (thread_id), &th);
|
|
|
|
|
if (val == TD_NOTHR)
|
2001-05-04 06:15:33 +02:00
|
|
|
|
return pid_to_ptid (-1); /* thread must have terminated */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
else if (val != TD_OK)
|
|
|
|
|
error ("thread_to_lwp: td_ta_map_id2thr %s", td_err_string (val));
|
|
|
|
|
|
|
|
|
|
val = p_td_thr_get_info (&th, &ti);
|
|
|
|
|
if (val == TD_NOTHR)
|
2001-05-04 06:15:33 +02:00
|
|
|
|
return pid_to_ptid (-1); /* thread must have terminated */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
else if (val != TD_OK)
|
|
|
|
|
error ("thread_to_lwp: td_thr_get_info: %s", td_err_string (val));
|
|
|
|
|
|
|
|
|
|
if (ti.ti_state != TD_THR_ACTIVE)
|
|
|
|
|
{
|
|
|
|
|
if (default_lwp != -1)
|
2001-05-04 06:15:33 +02:00
|
|
|
|
return pid_to_ptid (default_lwp);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
error ("thread_to_lwp: thread state not active: %s",
|
|
|
|
|
td_state_string (ti.ti_state));
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return BUILD_LWP (ti.ti_lid, PIDGET (thread_id));
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
LOCAL FUNCTION
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
lwp_to_thread - Convert a LWP id to a Posix or Solaris thread id.
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
SYNOPSIS
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
int lwp_to_thread (lwp_id)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
DESCRIPTION
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
This function converts a lightweight process id to a Posix or Solaris
|
|
|
|
|
thread id. If thread_id is non-existent, that's an error.
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
NOTES
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
This function probably shouldn't call error()...
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
*/
|
|
|
|
|
|
2001-05-04 06:15:33 +02:00
|
|
|
|
static ptid_t
|
|
|
|
|
lwp_to_thread (ptid_t lwp)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
td_thrinfo_t ti;
|
|
|
|
|
td_thrhandle_t th;
|
|
|
|
|
td_err_e val;
|
|
|
|
|
|
|
|
|
|
if (is_thread (lwp))
|
|
|
|
|
return lwp; /* It's already a thread id */
|
|
|
|
|
|
|
|
|
|
/* It's an lwp. Convert it to a thread id. */
|
|
|
|
|
|
|
|
|
|
if (!sol_thread_alive (lwp))
|
2001-05-04 06:15:33 +02:00
|
|
|
|
return pid_to_ptid (-1); /* defunct lwp */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
val = p_td_ta_map_lwp2thr (main_ta, GET_LWP (lwp), &th);
|
|
|
|
|
if (val == TD_NOTHR)
|
2001-05-04 06:15:33 +02:00
|
|
|
|
return pid_to_ptid (-1); /* thread must have terminated */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
else if (val != TD_OK)
|
|
|
|
|
error ("lwp_to_thread: td_ta_map_lwp2thr: %s.", td_err_string (val));
|
|
|
|
|
|
|
|
|
|
val = p_td_thr_validate (&th);
|
|
|
|
|
if (val == TD_NOTHR)
|
2000-05-09 00:34:38 +02:00
|
|
|
|
return lwp; /* libthread doesn't know about it;
|
|
|
|
|
just return lwp */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
else if (val != TD_OK)
|
|
|
|
|
error ("lwp_to_thread: td_thr_validate: %s.", td_err_string (val));
|
|
|
|
|
|
|
|
|
|
val = p_td_thr_get_info (&th, &ti);
|
|
|
|
|
if (val == TD_NOTHR)
|
2001-05-04 06:15:33 +02:00
|
|
|
|
return pid_to_ptid (-1); /* thread must have terminated */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
else if (val != TD_OK)
|
|
|
|
|
error ("lwp_to_thread: td_thr_get_info: %s.", td_err_string (val));
|
|
|
|
|
|
|
|
|
|
return BUILD_THREAD (ti.ti_tid, PIDGET (lwp));
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* Most target vector functions from here on actually just pass through to
|
|
|
|
|
procfs.c, as they don't need to do anything specific for threads. */
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* ARGSUSED */
|
|
|
|
|
static void
|
2000-07-30 03:48:28 +02:00
|
|
|
|
sol_thread_open (char *arg, int from_tty)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
procfs_ops.to_open (arg, from_tty);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Attach to process PID, then initialize for debugging it
|
|
|
|
|
and wait for the trace-trap that results from attaching. */
|
|
|
|
|
|
|
|
|
|
static void
|
2000-07-30 03:48:28 +02:00
|
|
|
|
sol_thread_attach (char *args, int from_tty)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
procfs_ops.to_attach (args, from_tty);
|
2000-09-05 19:40:57 +02:00
|
|
|
|
|
2000-09-05 19:43:00 +02:00
|
|
|
|
/* Must get symbols from solibs before libthread_db can run! */
|
2001-11-01 17:17:08 +01:00
|
|
|
|
SOLIB_ADD ((char *) 0, from_tty, (struct target_ops *) 0, auto_solib_add);
|
2000-09-05 19:43:00 +02:00
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
if (sol_thread_active)
|
|
|
|
|
{
|
|
|
|
|
printf_filtered ("sol-thread active.\n");
|
2001-05-04 06:15:33 +02:00
|
|
|
|
main_ph.ptid = inferior_ptid; /* Save for xfer_memory */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
push_target (&sol_thread_ops);
|
2001-05-04 06:15:33 +02:00
|
|
|
|
inferior_ptid = lwp_to_thread (inferior_ptid);
|
|
|
|
|
if (PIDGET (inferior_ptid) == -1)
|
|
|
|
|
inferior_ptid = main_ph.ptid;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
else
|
2001-05-04 06:15:33 +02:00
|
|
|
|
add_thread (inferior_ptid);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
}
|
|
|
|
|
/* XXX - might want to iterate over all the threads and register them. */
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Take a program previously attached to and detaches it.
|
|
|
|
|
The program resumes execution and will no longer stop
|
|
|
|
|
on signals, etc. We'd better not have left any breakpoints
|
|
|
|
|
in the program or it'll die when it hits one. For this
|
|
|
|
|
to work, it may be necessary for the process to have been
|
|
|
|
|
previously attached. It *might* work if the program was
|
|
|
|
|
started via the normal ptrace (PTRACE_TRACEME). */
|
|
|
|
|
|
|
|
|
|
static void
|
2000-07-30 03:48:28 +02:00
|
|
|
|
sol_thread_detach (char *args, int from_tty)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
2001-05-04 06:15:33 +02:00
|
|
|
|
inferior_ptid = pid_to_ptid (PIDGET (main_ph.ptid));
|
1999-04-16 03:35:26 +02:00
|
|
|
|
unpush_target (&sol_thread_ops);
|
|
|
|
|
procfs_ops.to_detach (args, from_tty);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Resume execution of process PID. If STEP is nozero, then
|
|
|
|
|
just single step it. If SIGNAL is nonzero, restart it with that
|
|
|
|
|
signal activated. We may have to convert pid from a thread-id to an LWP id
|
|
|
|
|
for procfs. */
|
|
|
|
|
|
|
|
|
|
static void
|
2001-05-04 06:15:33 +02:00
|
|
|
|
sol_thread_resume (ptid_t ptid, int step, enum target_signal signo)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
struct cleanup *old_chain;
|
|
|
|
|
|
2001-05-04 06:15:33 +02:00
|
|
|
|
old_chain = save_inferior_ptid ();
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
2001-05-04 06:15:33 +02:00
|
|
|
|
inferior_ptid = thread_to_lwp (inferior_ptid, PIDGET (main_ph.ptid));
|
|
|
|
|
if (PIDGET (inferior_ptid) == -1)
|
|
|
|
|
inferior_ptid = procfs_first_available ();
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
2001-05-04 06:15:33 +02:00
|
|
|
|
if (PIDGET (ptid) != -1)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
2001-05-04 06:15:33 +02:00
|
|
|
|
ptid_t save_ptid = ptid;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
2001-05-04 06:15:33 +02:00
|
|
|
|
ptid = thread_to_lwp (ptid, -2);
|
|
|
|
|
if (PIDGET (ptid) == -2) /* Inactive thread */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
error ("This version of Solaris can't start inactive threads.");
|
2001-05-04 06:15:33 +02:00
|
|
|
|
if (info_verbose && PIDGET (ptid) == -1)
|
|
|
|
|
warning ("Specified thread %ld seems to have terminated",
|
|
|
|
|
GET_THREAD (save_ptid));
|
1999-04-16 03:35:26 +02:00
|
|
|
|
}
|
|
|
|
|
|
2001-05-04 06:15:33 +02:00
|
|
|
|
procfs_ops.to_resume (ptid, step, signo);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
do_cleanups (old_chain);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Wait for any threads to stop. We may have to convert PID from a thread id
|
|
|
|
|
to a LWP id, and vice versa on the way out. */
|
|
|
|
|
|
2001-05-04 06:15:33 +02:00
|
|
|
|
static ptid_t
|
|
|
|
|
sol_thread_wait (ptid_t ptid, struct target_waitstatus *ourstatus)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
2001-05-04 06:15:33 +02:00
|
|
|
|
ptid_t rtnval;
|
|
|
|
|
ptid_t save_ptid;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
struct cleanup *old_chain;
|
|
|
|
|
|
2001-05-04 06:15:33 +02:00
|
|
|
|
save_ptid = inferior_ptid;
|
|
|
|
|
old_chain = save_inferior_ptid ();
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
2001-05-04 06:15:33 +02:00
|
|
|
|
inferior_ptid = thread_to_lwp (inferior_ptid, PIDGET (main_ph.ptid));
|
|
|
|
|
if (PIDGET (inferior_ptid) == -1)
|
|
|
|
|
inferior_ptid = procfs_first_available ();
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
2001-05-04 06:15:33 +02:00
|
|
|
|
if (PIDGET (ptid) != -1)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
2001-05-04 06:15:33 +02:00
|
|
|
|
ptid_t save_ptid = ptid;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
2001-05-04 06:15:33 +02:00
|
|
|
|
ptid = thread_to_lwp (ptid, -2);
|
|
|
|
|
if (PIDGET (ptid) == -2) /* Inactive thread */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
error ("This version of Solaris can't start inactive threads.");
|
2001-05-04 06:15:33 +02:00
|
|
|
|
if (info_verbose && PIDGET (ptid) == -1)
|
|
|
|
|
warning ("Specified thread %ld seems to have terminated",
|
|
|
|
|
GET_THREAD (save_ptid));
|
1999-04-16 03:35:26 +02:00
|
|
|
|
}
|
|
|
|
|
|
2001-05-04 06:15:33 +02:00
|
|
|
|
rtnval = procfs_ops.to_wait (ptid, ourstatus);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
if (ourstatus->kind != TARGET_WAITKIND_EXITED)
|
|
|
|
|
{
|
|
|
|
|
/* Map the LWP of interest back to the appropriate thread ID */
|
|
|
|
|
rtnval = lwp_to_thread (rtnval);
|
2001-05-04 06:15:33 +02:00
|
|
|
|
if (PIDGET (rtnval) == -1)
|
|
|
|
|
rtnval = save_ptid;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
/* See if we have a new thread */
|
|
|
|
|
if (is_thread (rtnval)
|
2001-05-04 06:15:33 +02:00
|
|
|
|
&& !ptid_equal (rtnval, save_ptid)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
&& !in_thread_list (rtnval))
|
|
|
|
|
{
|
|
|
|
|
printf_filtered ("[New %s]\n", target_pid_to_str (rtnval));
|
|
|
|
|
add_thread (rtnval);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* During process initialization, we may get here without the thread package
|
|
|
|
|
being initialized, since that can only happen after we've found the shared
|
|
|
|
|
libs. */
|
|
|
|
|
|
|
|
|
|
do_cleanups (old_chain);
|
|
|
|
|
|
|
|
|
|
return rtnval;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
2000-07-30 03:48:28 +02:00
|
|
|
|
sol_thread_fetch_registers (int regno)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
thread_t thread;
|
|
|
|
|
td_thrhandle_t thandle;
|
|
|
|
|
td_err_e val;
|
|
|
|
|
prgregset_t gregset;
|
|
|
|
|
prfpregset_t fpregset;
|
|
|
|
|
#if 0
|
|
|
|
|
int xregsize;
|
|
|
|
|
caddr_t xregset;
|
|
|
|
|
#endif
|
|
|
|
|
|
2001-05-04 06:15:33 +02:00
|
|
|
|
if (!is_thread (inferior_ptid))
|
1999-07-07 22:19:36 +02:00
|
|
|
|
{ /* LWP: pass the request on to procfs.c */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
if (target_has_execution)
|
|
|
|
|
procfs_ops.to_fetch_registers (regno);
|
|
|
|
|
else
|
|
|
|
|
orig_core_ops.to_fetch_registers (regno);
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
2001-05-04 06:15:33 +02:00
|
|
|
|
/* Solaris thread: convert inferior_ptid into a td_thrhandle_t */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
2001-05-04 06:15:33 +02:00
|
|
|
|
thread = GET_THREAD (inferior_ptid);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
if (thread == 0)
|
|
|
|
|
error ("sol_thread_fetch_registers: thread == 0");
|
|
|
|
|
|
|
|
|
|
val = p_td_ta_map_id2thr (main_ta, thread, &thandle);
|
|
|
|
|
if (val != TD_OK)
|
|
|
|
|
error ("sol_thread_fetch_registers: td_ta_map_id2thr: %s",
|
|
|
|
|
td_err_string (val));
|
|
|
|
|
|
|
|
|
|
/* Get the integer regs */
|
|
|
|
|
|
|
|
|
|
val = p_td_thr_getgregs (&thandle, gregset);
|
|
|
|
|
if (val != TD_OK
|
|
|
|
|
&& val != TD_PARTIALREG)
|
|
|
|
|
error ("sol_thread_fetch_registers: td_thr_getgregs %s",
|
|
|
|
|
td_err_string (val));
|
|
|
|
|
|
|
|
|
|
/* For the sparc, TD_PARTIALREG means that only i0->i7, l0->l7, pc and sp
|
|
|
|
|
are saved (by a thread context switch). */
|
|
|
|
|
|
|
|
|
|
/* And, now the fp regs */
|
|
|
|
|
|
|
|
|
|
val = p_td_thr_getfpregs (&thandle, &fpregset);
|
|
|
|
|
if (val != TD_OK
|
|
|
|
|
&& val != TD_NOFPREGS)
|
|
|
|
|
error ("sol_thread_fetch_registers: td_thr_getfpregs %s",
|
|
|
|
|
td_err_string (val));
|
|
|
|
|
|
|
|
|
|
/* Note that we must call supply_{g fp}regset *after* calling the td routines
|
|
|
|
|
because the td routines call ps_lget* which affect the values stored in the
|
|
|
|
|
registers array. */
|
|
|
|
|
|
2000-05-26 Michael Snyder <msnyder@seadog.cygnus.com>
* gregset.h: New file. Typedefs for gdb_gregset_t and
gdb_fpregset_t, prototypes for supply_gregset and friends.
* procfs.c: Include gregset.h. Delete local prototypes for
supply_gregset etc., and local typedef gdb_gregset_t etc.
* sol-thread.c: Include gregset.h, delete local prototypes,
add appropriate casts to gdb_gregset_t.
* uw-thread.c, lin-thread.c, core-sol2.c, core-regset.c,
sparc-tdep.c, ptx4-nat.c, ppc-linux-nat.c, mipsv4-nat.c,
m88k-nat.c, m68klinux-nat.c, m68k-tdep.c, irix5-nat.c,
irix4-nat.c, ia64-linux-nat.c, i386v4-nat.c, cxux-nat.c,
arm-linux-nat.c, alpha-nat.c: Include gregset.h.
* config/nm-linux.h: Define GDB_GREGSET_T, GDB_FPREGET_T.
* config/sparc/tm-sun4sol2.h: Ditto.
2000-05-27 01:22:41 +02:00
|
|
|
|
supply_gregset ((gdb_gregset_t *) &gregset);
|
|
|
|
|
supply_fpregset ((gdb_fpregset_t *) &fpregset);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
#if 0
|
|
|
|
|
/* thread_db doesn't seem to handle this right */
|
|
|
|
|
val = td_thr_getxregsize (&thandle, &xregsize);
|
|
|
|
|
if (val != TD_OK && val != TD_NOXREGS)
|
|
|
|
|
error ("sol_thread_fetch_registers: td_thr_getxregsize %s",
|
|
|
|
|
td_err_string (val));
|
|
|
|
|
|
|
|
|
|
if (val == TD_OK)
|
|
|
|
|
{
|
|
|
|
|
xregset = alloca (xregsize);
|
|
|
|
|
val = td_thr_getxregs (&thandle, xregset);
|
|
|
|
|
if (val != TD_OK)
|
|
|
|
|
error ("sol_thread_fetch_registers: td_thr_getxregs %s",
|
|
|
|
|
td_err_string (val));
|
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
2000-07-30 03:48:28 +02:00
|
|
|
|
sol_thread_store_registers (int regno)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
thread_t thread;
|
|
|
|
|
td_thrhandle_t thandle;
|
|
|
|
|
td_err_e val;
|
2000-05-26 Michael Snyder <msnyder@seadog.cygnus.com>
* gregset.h: New file. Typedefs for gdb_gregset_t and
gdb_fpregset_t, prototypes for supply_gregset and friends.
* procfs.c: Include gregset.h. Delete local prototypes for
supply_gregset etc., and local typedef gdb_gregset_t etc.
* sol-thread.c: Include gregset.h, delete local prototypes,
add appropriate casts to gdb_gregset_t.
* uw-thread.c, lin-thread.c, core-sol2.c, core-regset.c,
sparc-tdep.c, ptx4-nat.c, ppc-linux-nat.c, mipsv4-nat.c,
m88k-nat.c, m68klinux-nat.c, m68k-tdep.c, irix5-nat.c,
irix4-nat.c, ia64-linux-nat.c, i386v4-nat.c, cxux-nat.c,
arm-linux-nat.c, alpha-nat.c: Include gregset.h.
* config/nm-linux.h: Define GDB_GREGSET_T, GDB_FPREGET_T.
* config/sparc/tm-sun4sol2.h: Ditto.
2000-05-27 01:22:41 +02:00
|
|
|
|
prgregset_t gregset;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
prfpregset_t fpregset;
|
|
|
|
|
#if 0
|
|
|
|
|
int xregsize;
|
|
|
|
|
caddr_t xregset;
|
|
|
|
|
#endif
|
|
|
|
|
|
2001-05-04 06:15:33 +02:00
|
|
|
|
if (!is_thread (inferior_ptid))
|
1999-07-07 22:19:36 +02:00
|
|
|
|
{ /* LWP: pass the request on to procfs.c */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
procfs_ops.to_store_registers (regno);
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
2001-05-04 06:15:33 +02:00
|
|
|
|
/* Solaris thread: convert inferior_ptid into a td_thrhandle_t */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
2001-05-04 06:15:33 +02:00
|
|
|
|
thread = GET_THREAD (inferior_ptid);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
val = p_td_ta_map_id2thr (main_ta, thread, &thandle);
|
|
|
|
|
if (val != TD_OK)
|
|
|
|
|
error ("sol_thread_store_registers: td_ta_map_id2thr %s",
|
|
|
|
|
td_err_string (val));
|
|
|
|
|
|
|
|
|
|
if (regno != -1)
|
|
|
|
|
{ /* Not writing all the regs */
|
2003-08-10 16:05:47 +02:00
|
|
|
|
char old_value[MAX_REGISTER_SIZE];
|
|
|
|
|
|
|
|
|
|
/* Save new register value. */
|
|
|
|
|
regcache_collect (regno, old_value);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
2000-05-26 Michael Snyder <msnyder@seadog.cygnus.com>
* gregset.h: New file. Typedefs for gdb_gregset_t and
gdb_fpregset_t, prototypes for supply_gregset and friends.
* procfs.c: Include gregset.h. Delete local prototypes for
supply_gregset etc., and local typedef gdb_gregset_t etc.
* sol-thread.c: Include gregset.h, delete local prototypes,
add appropriate casts to gdb_gregset_t.
* uw-thread.c, lin-thread.c, core-sol2.c, core-regset.c,
sparc-tdep.c, ptx4-nat.c, ppc-linux-nat.c, mipsv4-nat.c,
m88k-nat.c, m68klinux-nat.c, m68k-tdep.c, irix5-nat.c,
irix4-nat.c, ia64-linux-nat.c, i386v4-nat.c, cxux-nat.c,
arm-linux-nat.c, alpha-nat.c: Include gregset.h.
* config/nm-linux.h: Define GDB_GREGSET_T, GDB_FPREGET_T.
* config/sparc/tm-sun4sol2.h: Ditto.
2000-05-27 01:22:41 +02:00
|
|
|
|
val = p_td_thr_getgregs (&thandle, gregset);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
if (val != TD_OK)
|
|
|
|
|
error ("sol_thread_store_registers: td_thr_getgregs %s",
|
|
|
|
|
td_err_string (val));
|
|
|
|
|
val = p_td_thr_getfpregs (&thandle, &fpregset);
|
|
|
|
|
if (val != TD_OK)
|
|
|
|
|
error ("sol_thread_store_registers: td_thr_getfpregs %s",
|
|
|
|
|
td_err_string (val));
|
|
|
|
|
|
2003-08-10 16:05:47 +02:00
|
|
|
|
/* Restore new register value. */
|
|
|
|
|
supply_register (regno, old_value);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
#if 0
|
|
|
|
|
/* thread_db doesn't seem to handle this right */
|
|
|
|
|
val = td_thr_getxregsize (&thandle, &xregsize);
|
|
|
|
|
if (val != TD_OK && val != TD_NOXREGS)
|
|
|
|
|
error ("sol_thread_store_registers: td_thr_getxregsize %s",
|
|
|
|
|
td_err_string (val));
|
|
|
|
|
|
|
|
|
|
if (val == TD_OK)
|
|
|
|
|
{
|
|
|
|
|
xregset = alloca (xregsize);
|
|
|
|
|
val = td_thr_getxregs (&thandle, xregset);
|
|
|
|
|
if (val != TD_OK)
|
|
|
|
|
error ("sol_thread_store_registers: td_thr_getxregs %s",
|
|
|
|
|
td_err_string (val));
|
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
}
|
|
|
|
|
|
2000-05-26 Michael Snyder <msnyder@seadog.cygnus.com>
* gregset.h: New file. Typedefs for gdb_gregset_t and
gdb_fpregset_t, prototypes for supply_gregset and friends.
* procfs.c: Include gregset.h. Delete local prototypes for
supply_gregset etc., and local typedef gdb_gregset_t etc.
* sol-thread.c: Include gregset.h, delete local prototypes,
add appropriate casts to gdb_gregset_t.
* uw-thread.c, lin-thread.c, core-sol2.c, core-regset.c,
sparc-tdep.c, ptx4-nat.c, ppc-linux-nat.c, mipsv4-nat.c,
m88k-nat.c, m68klinux-nat.c, m68k-tdep.c, irix5-nat.c,
irix4-nat.c, ia64-linux-nat.c, i386v4-nat.c, cxux-nat.c,
arm-linux-nat.c, alpha-nat.c: Include gregset.h.
* config/nm-linux.h: Define GDB_GREGSET_T, GDB_FPREGET_T.
* config/sparc/tm-sun4sol2.h: Ditto.
2000-05-27 01:22:41 +02:00
|
|
|
|
fill_gregset ((gdb_gregset_t *) &gregset, regno);
|
|
|
|
|
fill_fpregset ((gdb_fpregset_t *) &fpregset, regno);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
2000-05-26 Michael Snyder <msnyder@seadog.cygnus.com>
* gregset.h: New file. Typedefs for gdb_gregset_t and
gdb_fpregset_t, prototypes for supply_gregset and friends.
* procfs.c: Include gregset.h. Delete local prototypes for
supply_gregset etc., and local typedef gdb_gregset_t etc.
* sol-thread.c: Include gregset.h, delete local prototypes,
add appropriate casts to gdb_gregset_t.
* uw-thread.c, lin-thread.c, core-sol2.c, core-regset.c,
sparc-tdep.c, ptx4-nat.c, ppc-linux-nat.c, mipsv4-nat.c,
m88k-nat.c, m68klinux-nat.c, m68k-tdep.c, irix5-nat.c,
irix4-nat.c, ia64-linux-nat.c, i386v4-nat.c, cxux-nat.c,
arm-linux-nat.c, alpha-nat.c: Include gregset.h.
* config/nm-linux.h: Define GDB_GREGSET_T, GDB_FPREGET_T.
* config/sparc/tm-sun4sol2.h: Ditto.
2000-05-27 01:22:41 +02:00
|
|
|
|
val = p_td_thr_setgregs (&thandle, gregset);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
if (val != TD_OK)
|
|
|
|
|
error ("sol_thread_store_registers: td_thr_setgregs %s",
|
|
|
|
|
td_err_string (val));
|
|
|
|
|
val = p_td_thr_setfpregs (&thandle, &fpregset);
|
|
|
|
|
if (val != TD_OK)
|
|
|
|
|
error ("sol_thread_store_registers: td_thr_setfpregs %s",
|
|
|
|
|
td_err_string (val));
|
|
|
|
|
|
|
|
|
|
#if 0
|
|
|
|
|
/* thread_db doesn't seem to handle this right */
|
|
|
|
|
val = td_thr_getxregsize (&thandle, &xregsize);
|
|
|
|
|
if (val != TD_OK && val != TD_NOXREGS)
|
|
|
|
|
error ("sol_thread_store_registers: td_thr_getxregsize %s",
|
|
|
|
|
td_err_string (val));
|
|
|
|
|
|
|
|
|
|
/* Should probably do something about writing the xregs here, but what are
|
|
|
|
|
they? */
|
|
|
|
|
#endif
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Get ready to modify the registers array. On machines which store
|
|
|
|
|
individual registers, this doesn't need to do anything. On machines
|
|
|
|
|
which store all the registers in one fell swoop, this makes sure
|
|
|
|
|
that registers contains all the registers from the program being
|
|
|
|
|
debugged. */
|
|
|
|
|
|
|
|
|
|
static void
|
2000-07-30 03:48:28 +02:00
|
|
|
|
sol_thread_prepare_to_store (void)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
procfs_ops.to_prepare_to_store ();
|
|
|
|
|
}
|
|
|
|
|
|
2000-10-18 05:29:25 +02:00
|
|
|
|
/* Transfer LEN bytes between GDB address MYADDR and target address
|
|
|
|
|
MEMADDR. If DOWRITE is non-zero, transfer them to the target,
|
|
|
|
|
otherwise transfer them from the target. TARGET is unused.
|
|
|
|
|
|
|
|
|
|
Returns the number of bytes transferred. */
|
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
static int
|
2000-10-18 05:29:25 +02:00
|
|
|
|
sol_thread_xfer_memory (CORE_ADDR memaddr, char *myaddr, int len, int dowrite,
|
2001-01-24 22:01:02 +01:00
|
|
|
|
struct mem_attrib *attrib,
|
2000-10-18 05:29:25 +02:00
|
|
|
|
struct target_ops *target)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
int retval;
|
|
|
|
|
struct cleanup *old_chain;
|
|
|
|
|
|
2001-05-04 06:15:33 +02:00
|
|
|
|
old_chain = save_inferior_ptid ();
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
2001-05-04 06:15:33 +02:00
|
|
|
|
if (is_thread (inferior_ptid) || /* A thread */
|
|
|
|
|
!target_thread_alive (inferior_ptid)) /* An lwp, but not alive */
|
|
|
|
|
inferior_ptid = procfs_first_available (); /* Find any live lwp. */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
/* Note: don't need to call switch_to_thread; we're just reading memory. */
|
|
|
|
|
|
|
|
|
|
if (target_has_execution)
|
2001-01-24 22:01:02 +01:00
|
|
|
|
retval = procfs_ops.to_xfer_memory (memaddr, myaddr, len,
|
|
|
|
|
dowrite, attrib, target);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
else
|
|
|
|
|
retval = orig_core_ops.to_xfer_memory (memaddr, myaddr, len,
|
2001-01-24 22:01:02 +01:00
|
|
|
|
dowrite, attrib, target);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
do_cleanups (old_chain);
|
|
|
|
|
|
|
|
|
|
return retval;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Print status information about what we're accessing. */
|
|
|
|
|
|
|
|
|
|
static void
|
2000-07-30 03:48:28 +02:00
|
|
|
|
sol_thread_files_info (struct target_ops *ignore)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
procfs_ops.to_files_info (ignore);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
2000-07-30 03:48:28 +02:00
|
|
|
|
sol_thread_kill_inferior (void)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
procfs_ops.to_kill ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
2001-05-04 06:15:33 +02:00
|
|
|
|
sol_thread_notice_signals (ptid_t ptid)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
2001-05-04 06:15:33 +02:00
|
|
|
|
procfs_ops.to_notice_signals (pid_to_ptid (PIDGET (ptid)));
|
1999-04-16 03:35:26 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Fork an inferior process, and start debugging it with /proc. */
|
|
|
|
|
|
|
|
|
|
static void
|
2000-07-30 03:48:28 +02:00
|
|
|
|
sol_thread_create_inferior (char *exec_file, char *allargs, char **env)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
procfs_ops.to_create_inferior (exec_file, allargs, env);
|
|
|
|
|
|
2001-05-04 06:15:33 +02:00
|
|
|
|
if (sol_thread_active && !ptid_equal (inferior_ptid, null_ptid))
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
2001-05-04 06:15:33 +02:00
|
|
|
|
main_ph.ptid = inferior_ptid; /* Save for xfer_memory */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
push_target (&sol_thread_ops);
|
|
|
|
|
|
2001-05-04 06:15:33 +02:00
|
|
|
|
inferior_ptid = lwp_to_thread (inferior_ptid);
|
|
|
|
|
if (PIDGET (inferior_ptid) == -1)
|
|
|
|
|
inferior_ptid = main_ph.ptid;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
2001-05-04 06:15:33 +02:00
|
|
|
|
if (!in_thread_list (inferior_ptid))
|
|
|
|
|
add_thread (inferior_ptid);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* This routine is called whenever a new symbol table is read in, or when all
|
|
|
|
|
symbol tables are removed. libthread_db can only be initialized when it
|
|
|
|
|
finds the right variables in libthread.so. Since it's a shared library,
|
|
|
|
|
those variables don't show up until the library gets mapped and the symbol
|
|
|
|
|
table is read in. */
|
|
|
|
|
|
1999-11-09 02:23:30 +01:00
|
|
|
|
/* This new_objfile event is now managed by a chained function pointer.
|
|
|
|
|
* It is the callee's responsability to call the next client on the chain.
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
/* Saved pointer to previous owner of the new_objfile event. */
|
2000-06-04 02:41:10 +02:00
|
|
|
|
static void (*target_new_objfile_chain) (struct objfile *);
|
1999-11-09 02:23:30 +01:00
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
void
|
2000-07-30 03:48:28 +02:00
|
|
|
|
sol_thread_new_objfile (struct objfile *objfile)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
td_err_e val;
|
|
|
|
|
|
|
|
|
|
if (!objfile)
|
|
|
|
|
{
|
|
|
|
|
sol_thread_active = 0;
|
1999-11-09 02:23:30 +01:00
|
|
|
|
goto quit;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* don't do anything if init failed to resolve the libthread_db library */
|
|
|
|
|
if (!procfs_suppress_run)
|
1999-11-09 02:23:30 +01:00
|
|
|
|
goto quit;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
/* Now, initialize the thread debugging library. This needs to be done after
|
|
|
|
|
the shared libraries are located because it needs information from the
|
|
|
|
|
user's thread library. */
|
|
|
|
|
|
|
|
|
|
val = p_td_init ();
|
|
|
|
|
if (val != TD_OK)
|
1999-11-09 02:23:30 +01:00
|
|
|
|
{
|
|
|
|
|
warning ("sol_thread_new_objfile: td_init: %s", td_err_string (val));
|
|
|
|
|
goto quit;
|
|
|
|
|
}
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
val = p_td_ta_new (&main_ph, &main_ta);
|
|
|
|
|
if (val == TD_NOLIBTHREAD)
|
1999-11-09 02:23:30 +01:00
|
|
|
|
goto quit;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
else if (val != TD_OK)
|
1999-11-09 02:23:30 +01:00
|
|
|
|
{
|
|
|
|
|
warning ("sol_thread_new_objfile: td_ta_new: %s", td_err_string (val));
|
|
|
|
|
goto quit;
|
|
|
|
|
}
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
sol_thread_active = 1;
|
1999-11-09 02:23:30 +01:00
|
|
|
|
quit:
|
|
|
|
|
/* Call predecessor on chain, if any. */
|
|
|
|
|
if (target_new_objfile_chain)
|
|
|
|
|
target_new_objfile_chain (objfile);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Clean up after the inferior dies. */
|
|
|
|
|
|
|
|
|
|
static void
|
2000-07-30 03:48:28 +02:00
|
|
|
|
sol_thread_mourn_inferior (void)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
unpush_target (&sol_thread_ops);
|
|
|
|
|
procfs_ops.to_mourn_inferior ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Mark our target-struct as eligible for stray "run" and "attach" commands. */
|
|
|
|
|
|
|
|
|
|
static int
|
2000-07-30 03:48:28 +02:00
|
|
|
|
sol_thread_can_run (void)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
return procfs_suppress_run;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
LOCAL FUNCTION
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
sol_thread_alive - test thread for "aliveness"
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
SYNOPSIS
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
2001-05-04 06:15:33 +02:00
|
|
|
|
static bool sol_thread_alive (ptid_t ptid);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
DESCRIPTION
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
returns true if thread still active in inferior.
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
static int
|
2001-05-04 06:15:33 +02:00
|
|
|
|
sol_thread_alive (ptid_t ptid)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
2001-05-04 06:15:33 +02:00
|
|
|
|
if (is_thread (ptid)) /* non-kernel thread */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
td_err_e val;
|
|
|
|
|
td_thrhandle_t th;
|
2001-05-04 06:15:33 +02:00
|
|
|
|
int pid;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
2001-05-04 06:15:33 +02:00
|
|
|
|
pid = GET_THREAD (ptid);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
if ((val = p_td_ta_map_id2thr (main_ta, pid, &th)) != TD_OK)
|
1999-07-07 22:19:36 +02:00
|
|
|
|
return 0; /* thread not found */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
if ((val = p_td_thr_validate (&th)) != TD_OK)
|
1999-07-07 22:19:36 +02:00
|
|
|
|
return 0; /* thread not valid */
|
|
|
|
|
return 1; /* known thread: return true */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
}
|
1999-07-07 22:19:36 +02:00
|
|
|
|
else
|
|
|
|
|
/* kernel thread (LWP): let procfs test it */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
if (target_has_execution)
|
2001-05-04 06:15:33 +02:00
|
|
|
|
return procfs_ops.to_thread_alive (ptid);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
else
|
2001-05-04 06:15:33 +02:00
|
|
|
|
return orig_core_ops.to_thread_alive (ptid);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
2000-07-30 03:48:28 +02:00
|
|
|
|
sol_thread_stop (void)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
procfs_ops.to_stop ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* These routines implement the lower half of the thread_db interface. Ie: the
|
|
|
|
|
ps_* routines. */
|
|
|
|
|
|
|
|
|
|
/* Various versions of <proc_service.h> have slightly
|
|
|
|
|
different function prototypes. In particular, we have
|
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
NEWER OLDER
|
|
|
|
|
struct ps_prochandle * const struct ps_prochandle *
|
|
|
|
|
void* char*
|
|
|
|
|
const void* char*
|
|
|
|
|
int size_t
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
Which one you have depends on solaris version and what
|
|
|
|
|
patches you've applied. On the theory that there are
|
|
|
|
|
only two major variants, we have configure check the
|
|
|
|
|
prototype of ps_pdwrite (), and use that info to make
|
|
|
|
|
appropriate typedefs here. */
|
|
|
|
|
|
|
|
|
|
#ifdef PROC_SERVICE_IS_OLD
|
1999-07-07 22:19:36 +02:00
|
|
|
|
typedef const struct ps_prochandle *gdb_ps_prochandle_t;
|
|
|
|
|
typedef char *gdb_ps_read_buf_t;
|
|
|
|
|
typedef char *gdb_ps_write_buf_t;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
typedef int gdb_ps_size_t;
|
2000-04-07 19:18:57 +02:00
|
|
|
|
typedef paddr_t gdb_ps_addr_t;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
#else
|
1999-07-07 22:19:36 +02:00
|
|
|
|
typedef struct ps_prochandle *gdb_ps_prochandle_t;
|
|
|
|
|
typedef void *gdb_ps_read_buf_t;
|
|
|
|
|
typedef const void *gdb_ps_write_buf_t;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
typedef size_t gdb_ps_size_t;
|
2000-04-07 19:18:57 +02:00
|
|
|
|
typedef psaddr_t gdb_ps_addr_t;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* The next four routines are called by thread_db to tell us to stop and stop
|
|
|
|
|
a particular process or lwp. Since GDB ensures that these are all stopped
|
|
|
|
|
by the time we call anything in thread_db, these routines need to do
|
|
|
|
|
nothing. */
|
|
|
|
|
|
1999-09-09 02:02:17 +02:00
|
|
|
|
/* Process stop */
|
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
ps_err_e
|
|
|
|
|
ps_pstop (gdb_ps_prochandle_t ph)
|
|
|
|
|
{
|
|
|
|
|
return PS_OK;
|
|
|
|
|
}
|
|
|
|
|
|
1999-09-09 02:02:17 +02:00
|
|
|
|
/* Process continue */
|
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
ps_err_e
|
|
|
|
|
ps_pcontinue (gdb_ps_prochandle_t ph)
|
|
|
|
|
{
|
|
|
|
|
return PS_OK;
|
|
|
|
|
}
|
|
|
|
|
|
1999-09-09 02:02:17 +02:00
|
|
|
|
/* LWP stop */
|
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
ps_err_e
|
|
|
|
|
ps_lstop (gdb_ps_prochandle_t ph, lwpid_t lwpid)
|
|
|
|
|
{
|
|
|
|
|
return PS_OK;
|
|
|
|
|
}
|
|
|
|
|
|
1999-09-09 02:02:17 +02:00
|
|
|
|
/* LWP continue */
|
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
ps_err_e
|
|
|
|
|
ps_lcontinue (gdb_ps_prochandle_t ph, lwpid_t lwpid)
|
|
|
|
|
{
|
|
|
|
|
return PS_OK;
|
|
|
|
|
}
|
|
|
|
|
|
1999-09-09 02:02:17 +02:00
|
|
|
|
/* Looks up the symbol LD_SYMBOL_NAME in the debugger's symbol table. */
|
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
ps_err_e
|
|
|
|
|
ps_pglobal_lookup (gdb_ps_prochandle_t ph, const char *ld_object_name,
|
2000-04-07 19:18:57 +02:00
|
|
|
|
const char *ld_symbol_name, gdb_ps_addr_t * ld_symbol_addr)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
struct minimal_symbol *ms;
|
|
|
|
|
|
|
|
|
|
ms = lookup_minimal_symbol (ld_symbol_name, NULL, NULL);
|
|
|
|
|
|
|
|
|
|
if (!ms)
|
|
|
|
|
return PS_NOSYM;
|
|
|
|
|
|
|
|
|
|
*ld_symbol_addr = SYMBOL_VALUE_ADDRESS (ms);
|
|
|
|
|
|
|
|
|
|
return PS_OK;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Common routine for reading and writing memory. */
|
|
|
|
|
|
|
|
|
|
static ps_err_e
|
2000-04-07 19:18:57 +02:00
|
|
|
|
rw_common (int dowrite, const struct ps_prochandle *ph, gdb_ps_addr_t addr,
|
1999-04-16 03:35:26 +02:00
|
|
|
|
char *buf, int size)
|
|
|
|
|
{
|
|
|
|
|
struct cleanup *old_chain;
|
|
|
|
|
|
2001-05-04 06:15:33 +02:00
|
|
|
|
old_chain = save_inferior_ptid ();
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
2001-05-04 06:15:33 +02:00
|
|
|
|
if (is_thread (inferior_ptid) || /* A thread */
|
|
|
|
|
!target_thread_alive (inferior_ptid)) /* An lwp, but not alive */
|
|
|
|
|
inferior_ptid = procfs_first_available (); /* Find any live lwp. */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
/* Note: don't need to call switch_to_thread; we're just reading memory. */
|
|
|
|
|
|
2000-08-30 02:58:58 +02:00
|
|
|
|
#if defined (__sparcv9)
|
|
|
|
|
/* For Sparc64 cross Sparc32, make sure the address has not been
|
|
|
|
|
accidentally sign-extended (or whatever) to beyond 32 bits. */
|
2000-08-31 02:39:10 +02:00
|
|
|
|
if (bfd_get_arch_size (exec_bfd) == 32)
|
2000-08-30 02:58:58 +02:00
|
|
|
|
addr &= 0xffffffff;
|
|
|
|
|
#endif
|
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
while (size > 0)
|
|
|
|
|
{
|
|
|
|
|
int cc;
|
|
|
|
|
|
2001-01-24 22:01:02 +01:00
|
|
|
|
/* FIXME: passing 0 as attrib argument. */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
if (target_has_execution)
|
2001-01-24 22:01:02 +01:00
|
|
|
|
cc = procfs_ops.to_xfer_memory (addr, buf, size,
|
|
|
|
|
dowrite, 0, &procfs_ops);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
else
|
2001-01-24 22:01:02 +01:00
|
|
|
|
cc = orig_core_ops.to_xfer_memory (addr, buf, size,
|
|
|
|
|
dowrite, 0, &core_ops);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
if (cc < 0)
|
|
|
|
|
{
|
|
|
|
|
if (dowrite == 0)
|
|
|
|
|
print_sys_errmsg ("rw_common (): read", errno);
|
|
|
|
|
else
|
|
|
|
|
print_sys_errmsg ("rw_common (): write", errno);
|
|
|
|
|
|
|
|
|
|
do_cleanups (old_chain);
|
|
|
|
|
|
|
|
|
|
return PS_ERR;
|
|
|
|
|
}
|
2000-06-02 00:19:03 +02:00
|
|
|
|
else if (cc == 0)
|
|
|
|
|
{
|
|
|
|
|
if (dowrite == 0)
|
|
|
|
|
warning ("rw_common (): unable to read at addr 0x%lx",
|
|
|
|
|
(long) addr);
|
|
|
|
|
else
|
|
|
|
|
warning ("rw_common (): unable to write at addr 0x%lx",
|
|
|
|
|
(long) addr);
|
|
|
|
|
|
|
|
|
|
do_cleanups (old_chain);
|
|
|
|
|
|
|
|
|
|
return PS_ERR;
|
|
|
|
|
}
|
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
size -= cc;
|
|
|
|
|
buf += cc;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
do_cleanups (old_chain);
|
|
|
|
|
|
|
|
|
|
return PS_OK;
|
|
|
|
|
}
|
|
|
|
|
|
1999-09-09 02:02:17 +02:00
|
|
|
|
/* Copies SIZE bytes from target process .data segment to debugger memory. */
|
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
ps_err_e
|
2000-04-07 19:18:57 +02:00
|
|
|
|
ps_pdread (gdb_ps_prochandle_t ph, gdb_ps_addr_t addr,
|
1999-04-16 03:35:26 +02:00
|
|
|
|
gdb_ps_read_buf_t buf, gdb_ps_size_t size)
|
|
|
|
|
{
|
|
|
|
|
return rw_common (0, ph, addr, buf, size);
|
|
|
|
|
}
|
|
|
|
|
|
1999-09-09 02:02:17 +02:00
|
|
|
|
/* Copies SIZE bytes from debugger memory .data segment to target process. */
|
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
ps_err_e
|
2000-04-07 19:18:57 +02:00
|
|
|
|
ps_pdwrite (gdb_ps_prochandle_t ph, gdb_ps_addr_t addr,
|
1999-04-16 03:35:26 +02:00
|
|
|
|
gdb_ps_write_buf_t buf, gdb_ps_size_t size)
|
|
|
|
|
{
|
1999-07-07 22:19:36 +02:00
|
|
|
|
return rw_common (1, ph, addr, (char *) buf, size);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
}
|
|
|
|
|
|
1999-09-09 02:02:17 +02:00
|
|
|
|
/* Copies SIZE bytes from target process .text segment to debugger memory. */
|
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
ps_err_e
|
2000-04-07 19:18:57 +02:00
|
|
|
|
ps_ptread (gdb_ps_prochandle_t ph, gdb_ps_addr_t addr,
|
1999-04-16 03:35:26 +02:00
|
|
|
|
gdb_ps_read_buf_t buf, gdb_ps_size_t size)
|
|
|
|
|
{
|
|
|
|
|
return rw_common (0, ph, addr, buf, size);
|
|
|
|
|
}
|
|
|
|
|
|
1999-09-09 02:02:17 +02:00
|
|
|
|
/* Copies SIZE bytes from debugger memory .text segment to target process. */
|
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
ps_err_e
|
2000-04-07 19:18:57 +02:00
|
|
|
|
ps_ptwrite (gdb_ps_prochandle_t ph, gdb_ps_addr_t addr,
|
1999-04-16 03:35:26 +02:00
|
|
|
|
gdb_ps_write_buf_t buf, gdb_ps_size_t size)
|
|
|
|
|
{
|
1999-07-07 22:19:36 +02:00
|
|
|
|
return rw_common (1, ph, addr, (char *) buf, size);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
}
|
|
|
|
|
|
1999-09-09 02:02:17 +02:00
|
|
|
|
/* Get integer regs for LWP */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
ps_err_e
|
|
|
|
|
ps_lgetregs (gdb_ps_prochandle_t ph, lwpid_t lwpid,
|
|
|
|
|
prgregset_t gregset)
|
|
|
|
|
{
|
|
|
|
|
struct cleanup *old_chain;
|
|
|
|
|
|
2001-05-04 06:15:33 +02:00
|
|
|
|
old_chain = save_inferior_ptid ();
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
2001-05-04 06:15:33 +02:00
|
|
|
|
inferior_ptid = BUILD_LWP (lwpid, PIDGET (inferior_ptid));
|
1999-07-07 22:19:36 +02:00
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
if (target_has_execution)
|
|
|
|
|
procfs_ops.to_fetch_registers (-1);
|
|
|
|
|
else
|
|
|
|
|
orig_core_ops.to_fetch_registers (-1);
|
2000-05-26 Michael Snyder <msnyder@seadog.cygnus.com>
* gregset.h: New file. Typedefs for gdb_gregset_t and
gdb_fpregset_t, prototypes for supply_gregset and friends.
* procfs.c: Include gregset.h. Delete local prototypes for
supply_gregset etc., and local typedef gdb_gregset_t etc.
* sol-thread.c: Include gregset.h, delete local prototypes,
add appropriate casts to gdb_gregset_t.
* uw-thread.c, lin-thread.c, core-sol2.c, core-regset.c,
sparc-tdep.c, ptx4-nat.c, ppc-linux-nat.c, mipsv4-nat.c,
m88k-nat.c, m68klinux-nat.c, m68k-tdep.c, irix5-nat.c,
irix4-nat.c, ia64-linux-nat.c, i386v4-nat.c, cxux-nat.c,
arm-linux-nat.c, alpha-nat.c: Include gregset.h.
* config/nm-linux.h: Define GDB_GREGSET_T, GDB_FPREGET_T.
* config/sparc/tm-sun4sol2.h: Ditto.
2000-05-27 01:22:41 +02:00
|
|
|
|
fill_gregset ((gdb_gregset_t *) gregset, -1);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
do_cleanups (old_chain);
|
|
|
|
|
|
|
|
|
|
return PS_OK;
|
|
|
|
|
}
|
|
|
|
|
|
1999-09-09 02:02:17 +02:00
|
|
|
|
/* Set integer regs for LWP */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
ps_err_e
|
|
|
|
|
ps_lsetregs (gdb_ps_prochandle_t ph, lwpid_t lwpid,
|
|
|
|
|
const prgregset_t gregset)
|
|
|
|
|
{
|
|
|
|
|
struct cleanup *old_chain;
|
|
|
|
|
|
2001-05-04 06:15:33 +02:00
|
|
|
|
old_chain = save_inferior_ptid ();
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
2001-05-04 06:15:33 +02:00
|
|
|
|
inferior_ptid = BUILD_LWP (lwpid, PIDGET (inferior_ptid));
|
1999-07-07 22:19:36 +02:00
|
|
|
|
|
2000-05-26 Michael Snyder <msnyder@seadog.cygnus.com>
* gregset.h: New file. Typedefs for gdb_gregset_t and
gdb_fpregset_t, prototypes for supply_gregset and friends.
* procfs.c: Include gregset.h. Delete local prototypes for
supply_gregset etc., and local typedef gdb_gregset_t etc.
* sol-thread.c: Include gregset.h, delete local prototypes,
add appropriate casts to gdb_gregset_t.
* uw-thread.c, lin-thread.c, core-sol2.c, core-regset.c,
sparc-tdep.c, ptx4-nat.c, ppc-linux-nat.c, mipsv4-nat.c,
m88k-nat.c, m68klinux-nat.c, m68k-tdep.c, irix5-nat.c,
irix4-nat.c, ia64-linux-nat.c, i386v4-nat.c, cxux-nat.c,
arm-linux-nat.c, alpha-nat.c: Include gregset.h.
* config/nm-linux.h: Define GDB_GREGSET_T, GDB_FPREGET_T.
* config/sparc/tm-sun4sol2.h: Ditto.
2000-05-27 01:22:41 +02:00
|
|
|
|
supply_gregset ((gdb_gregset_t *) gregset);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
if (target_has_execution)
|
|
|
|
|
procfs_ops.to_store_registers (-1);
|
|
|
|
|
else
|
|
|
|
|
orig_core_ops.to_store_registers (-1);
|
|
|
|
|
|
|
|
|
|
do_cleanups (old_chain);
|
|
|
|
|
|
|
|
|
|
return PS_OK;
|
|
|
|
|
}
|
|
|
|
|
|
1999-09-09 02:02:17 +02:00
|
|
|
|
/* Log a message (sends to gdb_stderr). */
|
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
void
|
1999-07-07 22:19:36 +02:00
|
|
|
|
ps_plog (const char *fmt,...)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
va_list args;
|
|
|
|
|
|
|
|
|
|
va_start (args, fmt);
|
|
|
|
|
|
|
|
|
|
vfprintf_filtered (gdb_stderr, fmt, args);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Get size of extra register set. Currently a noop. */
|
|
|
|
|
|
|
|
|
|
ps_err_e
|
|
|
|
|
ps_lgetxregsize (gdb_ps_prochandle_t ph, lwpid_t lwpid, int *xregsize)
|
|
|
|
|
{
|
|
|
|
|
#if 0
|
|
|
|
|
int lwp_fd;
|
|
|
|
|
int regsize;
|
|
|
|
|
ps_err_e val;
|
|
|
|
|
|
|
|
|
|
val = get_lwp_fd (ph, lwpid, &lwp_fd);
|
|
|
|
|
if (val != PS_OK)
|
|
|
|
|
return val;
|
|
|
|
|
|
|
|
|
|
if (ioctl (lwp_fd, PIOCGXREGSIZE, ®size))
|
|
|
|
|
{
|
|
|
|
|
if (errno == EINVAL)
|
|
|
|
|
return PS_NOFREGS; /* XXX Wrong code, but this is the closest
|
|
|
|
|
thing in proc_service.h */
|
|
|
|
|
|
|
|
|
|
print_sys_errmsg ("ps_lgetxregsize (): PIOCGXREGSIZE", errno);
|
|
|
|
|
return PS_ERR;
|
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
return PS_OK;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Get extra register set. Currently a noop. */
|
|
|
|
|
|
|
|
|
|
ps_err_e
|
|
|
|
|
ps_lgetxregs (gdb_ps_prochandle_t ph, lwpid_t lwpid, caddr_t xregset)
|
|
|
|
|
{
|
|
|
|
|
#if 0
|
|
|
|
|
int lwp_fd;
|
|
|
|
|
ps_err_e val;
|
|
|
|
|
|
|
|
|
|
val = get_lwp_fd (ph, lwpid, &lwp_fd);
|
|
|
|
|
if (val != PS_OK)
|
|
|
|
|
return val;
|
|
|
|
|
|
|
|
|
|
if (ioctl (lwp_fd, PIOCGXREG, xregset))
|
|
|
|
|
{
|
|
|
|
|
print_sys_errmsg ("ps_lgetxregs (): PIOCGXREG", errno);
|
|
|
|
|
return PS_ERR;
|
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
return PS_OK;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Set extra register set. Currently a noop. */
|
|
|
|
|
|
|
|
|
|
ps_err_e
|
|
|
|
|
ps_lsetxregs (gdb_ps_prochandle_t ph, lwpid_t lwpid, caddr_t xregset)
|
|
|
|
|
{
|
|
|
|
|
#if 0
|
|
|
|
|
int lwp_fd;
|
|
|
|
|
ps_err_e val;
|
|
|
|
|
|
|
|
|
|
val = get_lwp_fd (ph, lwpid, &lwp_fd);
|
|
|
|
|
if (val != PS_OK)
|
|
|
|
|
return val;
|
|
|
|
|
|
|
|
|
|
if (ioctl (lwp_fd, PIOCSXREG, xregset))
|
|
|
|
|
{
|
|
|
|
|
print_sys_errmsg ("ps_lsetxregs (): PIOCSXREG", errno);
|
|
|
|
|
return PS_ERR;
|
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
return PS_OK;
|
|
|
|
|
}
|
|
|
|
|
|
1999-09-09 02:02:17 +02:00
|
|
|
|
/* Get floating-point regs for LWP */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
ps_err_e
|
|
|
|
|
ps_lgetfpregs (gdb_ps_prochandle_t ph, lwpid_t lwpid,
|
1999-07-07 22:19:36 +02:00
|
|
|
|
prfpregset_t * fpregset)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
struct cleanup *old_chain;
|
|
|
|
|
|
2001-05-04 06:15:33 +02:00
|
|
|
|
old_chain = save_inferior_ptid ();
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
2001-05-04 06:15:33 +02:00
|
|
|
|
inferior_ptid = BUILD_LWP (lwpid, PIDGET (inferior_ptid));
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
if (target_has_execution)
|
|
|
|
|
procfs_ops.to_fetch_registers (-1);
|
|
|
|
|
else
|
|
|
|
|
orig_core_ops.to_fetch_registers (-1);
|
2000-05-26 Michael Snyder <msnyder@seadog.cygnus.com>
* gregset.h: New file. Typedefs for gdb_gregset_t and
gdb_fpregset_t, prototypes for supply_gregset and friends.
* procfs.c: Include gregset.h. Delete local prototypes for
supply_gregset etc., and local typedef gdb_gregset_t etc.
* sol-thread.c: Include gregset.h, delete local prototypes,
add appropriate casts to gdb_gregset_t.
* uw-thread.c, lin-thread.c, core-sol2.c, core-regset.c,
sparc-tdep.c, ptx4-nat.c, ppc-linux-nat.c, mipsv4-nat.c,
m88k-nat.c, m68klinux-nat.c, m68k-tdep.c, irix5-nat.c,
irix4-nat.c, ia64-linux-nat.c, i386v4-nat.c, cxux-nat.c,
arm-linux-nat.c, alpha-nat.c: Include gregset.h.
* config/nm-linux.h: Define GDB_GREGSET_T, GDB_FPREGET_T.
* config/sparc/tm-sun4sol2.h: Ditto.
2000-05-27 01:22:41 +02:00
|
|
|
|
fill_fpregset ((gdb_fpregset_t *) fpregset, -1);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
do_cleanups (old_chain);
|
|
|
|
|
|
|
|
|
|
return PS_OK;
|
|
|
|
|
}
|
|
|
|
|
|
1999-09-09 02:02:17 +02:00
|
|
|
|
/* Set floating-point regs for LWP */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
ps_err_e
|
|
|
|
|
ps_lsetfpregs (gdb_ps_prochandle_t ph, lwpid_t lwpid,
|
1999-07-07 22:19:36 +02:00
|
|
|
|
const prfpregset_t * fpregset)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
struct cleanup *old_chain;
|
|
|
|
|
|
2001-05-04 06:15:33 +02:00
|
|
|
|
old_chain = save_inferior_ptid ();
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
2001-05-04 06:15:33 +02:00
|
|
|
|
inferior_ptid = BUILD_LWP (lwpid, PIDGET (inferior_ptid));
|
1999-07-07 22:19:36 +02:00
|
|
|
|
|
2000-05-26 Michael Snyder <msnyder@seadog.cygnus.com>
* gregset.h: New file. Typedefs for gdb_gregset_t and
gdb_fpregset_t, prototypes for supply_gregset and friends.
* procfs.c: Include gregset.h. Delete local prototypes for
supply_gregset etc., and local typedef gdb_gregset_t etc.
* sol-thread.c: Include gregset.h, delete local prototypes,
add appropriate casts to gdb_gregset_t.
* uw-thread.c, lin-thread.c, core-sol2.c, core-regset.c,
sparc-tdep.c, ptx4-nat.c, ppc-linux-nat.c, mipsv4-nat.c,
m88k-nat.c, m68klinux-nat.c, m68k-tdep.c, irix5-nat.c,
irix4-nat.c, ia64-linux-nat.c, i386v4-nat.c, cxux-nat.c,
arm-linux-nat.c, alpha-nat.c: Include gregset.h.
* config/nm-linux.h: Define GDB_GREGSET_T, GDB_FPREGET_T.
* config/sparc/tm-sun4sol2.h: Ditto.
2000-05-27 01:22:41 +02:00
|
|
|
|
supply_fpregset ((gdb_fpregset_t *) fpregset);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
if (target_has_execution)
|
|
|
|
|
procfs_ops.to_store_registers (-1);
|
|
|
|
|
else
|
|
|
|
|
orig_core_ops.to_store_registers (-1);
|
|
|
|
|
|
|
|
|
|
do_cleanups (old_chain);
|
|
|
|
|
|
|
|
|
|
return PS_OK;
|
|
|
|
|
}
|
|
|
|
|
|
2000-09-05 19:40:57 +02:00
|
|
|
|
#ifdef PR_MODEL_LP64
|
2000-08-30 02:58:58 +02:00
|
|
|
|
/* Identify process as 32-bit or 64-bit.
|
|
|
|
|
At the moment I'm using bfd to do this.
|
|
|
|
|
There might be a more solaris-specific (eg. procfs) method,
|
|
|
|
|
but this ought to work. */
|
|
|
|
|
|
|
|
|
|
ps_err_e
|
|
|
|
|
ps_pdmodel (gdb_ps_prochandle_t ph, int *data_model)
|
|
|
|
|
{
|
|
|
|
|
if (exec_bfd == 0)
|
2000-09-28 09:53:41 +02:00
|
|
|
|
*data_model = PR_MODEL_UNKNOWN;
|
|
|
|
|
else if (bfd_get_arch_size (exec_bfd) == 32)
|
2000-08-30 02:58:58 +02:00
|
|
|
|
*data_model = PR_MODEL_ILP32;
|
|
|
|
|
else
|
|
|
|
|
*data_model = PR_MODEL_LP64;
|
|
|
|
|
|
|
|
|
|
return PS_OK;
|
|
|
|
|
}
|
2000-09-05 19:40:57 +02:00
|
|
|
|
#endif /* PR_MODEL_LP64 */
|
2000-08-30 02:58:58 +02:00
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
#ifdef TM_I386SOL2_H
|
|
|
|
|
|
1999-09-09 02:02:17 +02:00
|
|
|
|
/* Reads the local descriptor table of a LWP. */
|
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
ps_err_e
|
|
|
|
|
ps_lgetLDT (gdb_ps_prochandle_t ph, lwpid_t lwpid,
|
|
|
|
|
struct ssd *pldt)
|
|
|
|
|
{
|
2000-02-29 14:53:59 +01:00
|
|
|
|
/* NOTE: only used on Solaris, therefore OK to refer to procfs.c */
|
2001-05-04 06:15:33 +02:00
|
|
|
|
extern struct ssd *procfs_find_LDT_entry (ptid_t);
|
2000-02-29 14:53:59 +01:00
|
|
|
|
struct ssd *ret;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
* sol-thread.c (GET_LWP, GET_THREAD, BUILD_LWP, BUILD_THREAD):
Change to rely on PIDGET etc.
* config/i386/nm-i386sol2.h (TARGET_HAS_WATCHPOINTS,
TARGET_CAN_USE_HARDWARE_WATCHPOINT, HAVE_CONTINUABLE_WATCHPOINT,
STOPPED_BY_WATCHPOINT, target_[insert/remove]_watchpoint):
define. Allow target to use procfs hardware watchpoints.
* config/sparc/nm-sun4sol2.h: ditto.
* config/i386/tm-i386sol2.h (PIDGET, TIDGET, MERGEPID): modify
definitions to use 16 bits for the pid, 15 bits for the tid, and
1 bit for the flag.
* config/sparc/tm-sun4sol2.h: ditto.
(SOFTWARE_SINGLE_STEP, SOFTWARE_SINGLE_STEP_P): undefine.
* testsuite/gdb.threads/pthreads.exp (all_threads_running): Allow
for more than 15 thread increments.
2000-04-07 03:14:10 +02:00
|
|
|
|
/* FIXME: can't I get the process ID from the prochandle or something?
|
|
|
|
|
*/
|
|
|
|
|
|
2001-05-04 06:15:33 +02:00
|
|
|
|
if (PIDGET (inferior_ptid) <= 0 || lwpid <= 0)
|
* sol-thread.c (GET_LWP, GET_THREAD, BUILD_LWP, BUILD_THREAD):
Change to rely on PIDGET etc.
* config/i386/nm-i386sol2.h (TARGET_HAS_WATCHPOINTS,
TARGET_CAN_USE_HARDWARE_WATCHPOINT, HAVE_CONTINUABLE_WATCHPOINT,
STOPPED_BY_WATCHPOINT, target_[insert/remove]_watchpoint):
define. Allow target to use procfs hardware watchpoints.
* config/sparc/nm-sun4sol2.h: ditto.
* config/i386/tm-i386sol2.h (PIDGET, TIDGET, MERGEPID): modify
definitions to use 16 bits for the pid, 15 bits for the tid, and
1 bit for the flag.
* config/sparc/tm-sun4sol2.h: ditto.
(SOFTWARE_SINGLE_STEP, SOFTWARE_SINGLE_STEP_P): undefine.
* testsuite/gdb.threads/pthreads.exp (all_threads_running): Allow
for more than 15 thread increments.
2000-04-07 03:14:10 +02:00
|
|
|
|
return PS_BADLID;
|
|
|
|
|
|
2001-05-04 06:15:33 +02:00
|
|
|
|
ret = procfs_find_LDT_entry (BUILD_LWP (lwpid, PIDGET (inferior_ptid)));
|
2000-02-29 14:53:59 +01:00
|
|
|
|
if (ret)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
2000-02-29 14:53:59 +01:00
|
|
|
|
memcpy (pldt, ret, sizeof (struct ssd));
|
|
|
|
|
return PS_OK;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
}
|
2000-02-29 14:53:59 +01:00
|
|
|
|
else /* LDT not found. */
|
1999-04-16 03:35:26 +02:00
|
|
|
|
return PS_ERR;
|
1999-07-07 22:19:36 +02:00
|
|
|
|
}
|
1999-04-16 03:35:26 +02:00
|
|
|
|
#endif /* TM_I386SOL2_H */
|
|
|
|
|
|
|
|
|
|
/* Convert a pid to printable form. */
|
|
|
|
|
|
|
|
|
|
char *
|
2001-05-04 06:15:33 +02:00
|
|
|
|
solaris_pid_to_str (ptid_t ptid)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
static char buf[100];
|
|
|
|
|
|
|
|
|
|
/* in case init failed to resolve the libthread_db library */
|
|
|
|
|
if (!procfs_suppress_run)
|
2001-05-04 06:15:33 +02:00
|
|
|
|
return procfs_pid_to_str (ptid);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
2001-05-04 06:15:33 +02:00
|
|
|
|
if (is_thread (ptid))
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
2001-05-04 06:15:33 +02:00
|
|
|
|
ptid_t lwp;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
2001-05-04 06:15:33 +02:00
|
|
|
|
lwp = thread_to_lwp (ptid, -2);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
2001-05-04 06:15:33 +02:00
|
|
|
|
if (PIDGET (lwp) == -1)
|
|
|
|
|
sprintf (buf, "Thread %ld (defunct)", GET_THREAD (ptid));
|
|
|
|
|
else if (PIDGET (lwp) != -2)
|
|
|
|
|
sprintf (buf, "Thread %ld (LWP %ld)", GET_THREAD (ptid), GET_LWP (lwp));
|
1999-04-16 03:35:26 +02:00
|
|
|
|
else
|
2001-05-04 06:15:33 +02:00
|
|
|
|
sprintf (buf, "Thread %ld ", GET_THREAD (ptid));
|
1999-04-16 03:35:26 +02:00
|
|
|
|
}
|
2001-05-04 06:15:33 +02:00
|
|
|
|
else if (GET_LWP (ptid) != 0)
|
|
|
|
|
sprintf (buf, "LWP %ld ", GET_LWP (ptid));
|
1999-04-16 03:35:26 +02:00
|
|
|
|
else
|
2001-05-04 06:15:33 +02:00
|
|
|
|
sprintf (buf, "process %d ", PIDGET (ptid));
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
return buf;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* Worker bee for find_new_threads
|
|
|
|
|
Callback function that gets called once per USER thread (i.e., not
|
|
|
|
|
kernel) thread. */
|
|
|
|
|
|
|
|
|
|
static int
|
2000-07-30 03:48:28 +02:00
|
|
|
|
sol_find_new_threads_callback (const td_thrhandle_t *th, void *ignored)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
td_err_e retval;
|
|
|
|
|
td_thrinfo_t ti;
|
2001-05-04 06:15:33 +02:00
|
|
|
|
ptid_t ptid;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
if ((retval = p_td_thr_get_info (th, &ti)) != TD_OK)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
return -1;
|
|
|
|
|
}
|
2001-05-04 06:15:33 +02:00
|
|
|
|
ptid = BUILD_THREAD (ti.ti_tid, PIDGET (inferior_ptid));
|
|
|
|
|
if (!in_thread_list (ptid))
|
|
|
|
|
add_thread (ptid);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
1999-09-09 02:02:17 +02:00
|
|
|
|
static void
|
2000-07-30 03:48:28 +02:00
|
|
|
|
sol_find_new_threads (void)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
/* don't do anything if init failed to resolve the libthread_db library */
|
|
|
|
|
if (!procfs_suppress_run)
|
|
|
|
|
return;
|
|
|
|
|
|
2001-05-04 06:15:33 +02:00
|
|
|
|
if (PIDGET (inferior_ptid) == -1)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
1999-07-07 22:19:36 +02:00
|
|
|
|
printf_filtered ("No process.\n");
|
1999-04-16 03:35:26 +02:00
|
|
|
|
return;
|
|
|
|
|
}
|
2001-05-04 06:15:33 +02:00
|
|
|
|
procfs_ops.to_find_new_threads (); /* first find new kernel threads */
|
1999-07-07 22:19:36 +02:00
|
|
|
|
p_td_ta_thr_iter (main_ta, sol_find_new_threads_callback, (void *) 0,
|
1999-04-16 03:35:26 +02:00
|
|
|
|
TD_THR_ANY_STATE, TD_THR_LOWEST_PRIORITY,
|
|
|
|
|
TD_SIGNO_MASK, TD_THR_ANY_USER_FLAGS);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
2000-07-30 03:48:28 +02:00
|
|
|
|
sol_core_open (char *filename, int from_tty)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
orig_core_ops.to_open (filename, from_tty);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
2000-07-30 03:48:28 +02:00
|
|
|
|
sol_core_close (int quitting)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
orig_core_ops.to_close (quitting);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
2000-07-30 03:48:28 +02:00
|
|
|
|
sol_core_detach (char *args, int from_tty)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
unpush_target (&core_ops);
|
|
|
|
|
orig_core_ops.to_detach (args, from_tty);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
2000-07-30 03:48:28 +02:00
|
|
|
|
sol_core_files_info (struct target_ops *t)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
orig_core_ops.to_files_info (t);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Worker bee for info sol-thread command. This is a callback function that
|
|
|
|
|
gets called once for each Solaris thread (ie. not kernel thread) in the
|
|
|
|
|
inferior. Print anything interesting that we can think of. */
|
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
static int
|
2000-07-30 03:48:28 +02:00
|
|
|
|
info_cb (const td_thrhandle_t *th, void *s)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
td_err_e ret;
|
|
|
|
|
td_thrinfo_t ti;
|
|
|
|
|
|
|
|
|
|
if ((ret = p_td_thr_get_info (th, &ti)) == TD_OK)
|
|
|
|
|
{
|
1999-07-07 22:19:36 +02:00
|
|
|
|
printf_filtered ("%s thread #%d, lwp %d, ",
|
|
|
|
|
ti.ti_type == TD_THR_SYSTEM ? "system" : "user ",
|
1999-04-16 03:35:26 +02:00
|
|
|
|
ti.ti_tid, ti.ti_lid);
|
1999-07-07 22:19:36 +02:00
|
|
|
|
switch (ti.ti_state)
|
|
|
|
|
{
|
1999-04-16 03:35:26 +02:00
|
|
|
|
default:
|
1999-07-07 22:19:36 +02:00
|
|
|
|
case TD_THR_UNKNOWN:
|
|
|
|
|
printf_filtered ("<unknown state>");
|
|
|
|
|
break;
|
|
|
|
|
case TD_THR_STOPPED:
|
|
|
|
|
printf_filtered ("(stopped)");
|
|
|
|
|
break;
|
|
|
|
|
case TD_THR_RUN:
|
|
|
|
|
printf_filtered ("(run) ");
|
|
|
|
|
break;
|
|
|
|
|
case TD_THR_ACTIVE:
|
|
|
|
|
printf_filtered ("(active) ");
|
|
|
|
|
break;
|
|
|
|
|
case TD_THR_ZOMBIE:
|
|
|
|
|
printf_filtered ("(zombie) ");
|
|
|
|
|
break;
|
|
|
|
|
case TD_THR_SLEEP:
|
|
|
|
|
printf_filtered ("(asleep) ");
|
|
|
|
|
break;
|
|
|
|
|
case TD_THR_STOPPED_ASLEEP:
|
|
|
|
|
printf_filtered ("(stopped asleep)");
|
|
|
|
|
break;
|
|
|
|
|
}
|
1999-04-16 03:35:26 +02:00
|
|
|
|
/* Print thr_create start function: */
|
|
|
|
|
if (ti.ti_startfunc != 0)
|
1999-11-17 03:31:06 +01:00
|
|
|
|
{
|
|
|
|
|
struct minimal_symbol *msym;
|
|
|
|
|
msym = lookup_minimal_symbol_by_pc (ti.ti_startfunc);
|
|
|
|
|
if (msym)
|
2003-02-25 David Carlton <carlton@math.stanford.edu>
* symtab.h (SYMBOL_NATURAL_NAME): New macro.
(SYMBOL_LINKAGE_NAME): Ditto.
(SYMBOL_PRINT_NAME): Use SYMBOL_NATURAL_NAME and
SYMBOL_LINKAGE_NAME.
(struct general_symbol_info): Expand comment.
(DEPRECATED_SYMBOL_NAME): Rename from SYMBOL_NAME.
(SYMBOL_MATCHES_NAME): Use DEPRECATED_SYMBOL_NAME.
(SYMBOL_MATCHES_REGEXP): Ditto.
* symtab.c (symbol_natural_name): New function.
* objfiles.h: Replace all uses of SYMBOL_NAME by
DEPRECATED_SYMBOL_NAME.
* xcoffread.c, valops.c, typeprint.c, tracepoint.c: Ditto.
* symtab.c, symmisc.c, symfile.c, stack.c, stabsread.c: Ditto.
* somsolib.c, sol-thread.c, rs6000-tdep.c, p-valprint.c: Ditto.
* printcmd.c, objfiles.c, objc-lang.c, mipsread.c: Ditto.
* minsyms.c, mdebugread.c, linespec.c, jv-lang.c: Ditto.
* i386-tdep.c, i386-linux-tdep.c, hpread.c, hppa-tdep.c: Ditto.
* gnu-v2-abi.c, f-valprint.c, findvar.c, expprint.c: Ditto.
* dwarfread.c, dwarf2read.c, dbxread.c, c-valprint.c: Ditto.
* cp-valprint.c, coffread.c, buildsym.c, breakpoint.c: Ditto.
* blockframe.c, ax-gdb.c, arm-linux-tdep.c, ada-lang.c: Ditto.
* ada-exp.y: Ditto.
* ada-exp.y: Update copyright.
* sol-thread.c, mipsread.c, jv-lang.c, f-valprint.c: Ditto.
* cp-valprint.c: Ditto.
2003-02-25 David Carlton <carlton@math.stanford.edu>
* generic/gdbtk.h: Replace all instances of SYMBOL_NAME by
DEPRECATED_SYMBOL_NAME.
* generic/gdbtk-stack.c, generic/gdbtk-cmds.c: Ditto.
* generic/gdbtk-stack.c, generic/gdbtk-cmds.c: Update copyright.
2003-02-25 David Carlton <carlton@math.stanford.edu>
* mi-cmd-stack.c: Replace all instances of SYMBOL_NAME with
DEPRECATED_SYMBOL_NAME. Update copyright.
2003-02-25 22:36:23 +01:00
|
|
|
|
printf_filtered (" startfunc: %s\n", DEPRECATED_SYMBOL_NAME (msym));
|
1999-11-17 03:31:06 +01:00
|
|
|
|
else
|
|
|
|
|
printf_filtered (" startfunc: 0x%s\n", paddr (ti.ti_startfunc));
|
|
|
|
|
}
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
/* If thread is asleep, print function that went to sleep: */
|
|
|
|
|
if (ti.ti_state == TD_THR_SLEEP)
|
1999-11-17 03:31:06 +01:00
|
|
|
|
{
|
|
|
|
|
struct minimal_symbol *msym;
|
|
|
|
|
msym = lookup_minimal_symbol_by_pc (ti.ti_pc);
|
|
|
|
|
if (msym)
|
2003-02-25 David Carlton <carlton@math.stanford.edu>
* symtab.h (SYMBOL_NATURAL_NAME): New macro.
(SYMBOL_LINKAGE_NAME): Ditto.
(SYMBOL_PRINT_NAME): Use SYMBOL_NATURAL_NAME and
SYMBOL_LINKAGE_NAME.
(struct general_symbol_info): Expand comment.
(DEPRECATED_SYMBOL_NAME): Rename from SYMBOL_NAME.
(SYMBOL_MATCHES_NAME): Use DEPRECATED_SYMBOL_NAME.
(SYMBOL_MATCHES_REGEXP): Ditto.
* symtab.c (symbol_natural_name): New function.
* objfiles.h: Replace all uses of SYMBOL_NAME by
DEPRECATED_SYMBOL_NAME.
* xcoffread.c, valops.c, typeprint.c, tracepoint.c: Ditto.
* symtab.c, symmisc.c, symfile.c, stack.c, stabsread.c: Ditto.
* somsolib.c, sol-thread.c, rs6000-tdep.c, p-valprint.c: Ditto.
* printcmd.c, objfiles.c, objc-lang.c, mipsread.c: Ditto.
* minsyms.c, mdebugread.c, linespec.c, jv-lang.c: Ditto.
* i386-tdep.c, i386-linux-tdep.c, hpread.c, hppa-tdep.c: Ditto.
* gnu-v2-abi.c, f-valprint.c, findvar.c, expprint.c: Ditto.
* dwarfread.c, dwarf2read.c, dbxread.c, c-valprint.c: Ditto.
* cp-valprint.c, coffread.c, buildsym.c, breakpoint.c: Ditto.
* blockframe.c, ax-gdb.c, arm-linux-tdep.c, ada-lang.c: Ditto.
* ada-exp.y: Ditto.
* ada-exp.y: Update copyright.
* sol-thread.c, mipsread.c, jv-lang.c, f-valprint.c: Ditto.
* cp-valprint.c: Ditto.
2003-02-25 David Carlton <carlton@math.stanford.edu>
* generic/gdbtk.h: Replace all instances of SYMBOL_NAME by
DEPRECATED_SYMBOL_NAME.
* generic/gdbtk-stack.c, generic/gdbtk-cmds.c: Ditto.
* generic/gdbtk-stack.c, generic/gdbtk-cmds.c: Update copyright.
2003-02-25 David Carlton <carlton@math.stanford.edu>
* mi-cmd-stack.c: Replace all instances of SYMBOL_NAME with
DEPRECATED_SYMBOL_NAME. Update copyright.
2003-02-25 22:36:23 +01:00
|
|
|
|
printf_filtered (" - Sleep func: %s\n", DEPRECATED_SYMBOL_NAME (msym));
|
1999-11-17 03:31:06 +01:00
|
|
|
|
else
|
|
|
|
|
printf_filtered (" - Sleep func: 0x%s\n", paddr (ti.ti_startfunc));
|
|
|
|
|
}
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
/* Wrap up line, if necessary */
|
|
|
|
|
if (ti.ti_state != TD_THR_SLEEP && ti.ti_startfunc == 0)
|
|
|
|
|
printf_filtered ("\n"); /* don't you hate counting newlines? */
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
warning ("info sol-thread: failed to get info for thread.");
|
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
return 0;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* List some state about each Solaris user thread in the inferior. */
|
|
|
|
|
|
|
|
|
|
static void
|
2000-07-30 03:48:28 +02:00
|
|
|
|
info_solthreads (char *args, int from_tty)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
1999-07-07 22:19:36 +02:00
|
|
|
|
p_td_ta_thr_iter (main_ta, info_cb, args,
|
1999-04-16 03:35:26 +02:00
|
|
|
|
TD_THR_ANY_STATE, TD_THR_LOWEST_PRIORITY,
|
|
|
|
|
TD_SIGNO_MASK, TD_THR_ANY_USER_FLAGS);
|
|
|
|
|
}
|
|
|
|
|
|
2002-01-09 01:37:02 +01:00
|
|
|
|
static int
|
|
|
|
|
sol_find_memory_regions (int (*func) (CORE_ADDR,
|
|
|
|
|
unsigned long,
|
|
|
|
|
int, int, int,
|
|
|
|
|
void *),
|
|
|
|
|
void *data)
|
|
|
|
|
{
|
|
|
|
|
return procfs_ops.to_find_memory_regions (func, data);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static char *
|
|
|
|
|
sol_make_note_section (bfd *obfd, int *note_size)
|
|
|
|
|
{
|
|
|
|
|
return procfs_ops.to_make_corefile_notes (obfd, note_size);
|
|
|
|
|
}
|
|
|
|
|
|
1999-04-16 03:35:26 +02:00
|
|
|
|
static int
|
2000-07-30 03:48:28 +02:00
|
|
|
|
ignore (CORE_ADDR addr, char *contents)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
static void
|
2000-07-30 03:48:28 +02:00
|
|
|
|
init_sol_thread_ops (void)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
sol_thread_ops.to_shortname = "solaris-threads";
|
|
|
|
|
sol_thread_ops.to_longname = "Solaris threads and pthread.";
|
|
|
|
|
sol_thread_ops.to_doc = "Solaris threads and pthread support.";
|
|
|
|
|
sol_thread_ops.to_open = sol_thread_open;
|
|
|
|
|
sol_thread_ops.to_attach = sol_thread_attach;
|
|
|
|
|
sol_thread_ops.to_detach = sol_thread_detach;
|
|
|
|
|
sol_thread_ops.to_resume = sol_thread_resume;
|
|
|
|
|
sol_thread_ops.to_wait = sol_thread_wait;
|
|
|
|
|
sol_thread_ops.to_fetch_registers = sol_thread_fetch_registers;
|
|
|
|
|
sol_thread_ops.to_store_registers = sol_thread_store_registers;
|
|
|
|
|
sol_thread_ops.to_prepare_to_store = sol_thread_prepare_to_store;
|
|
|
|
|
sol_thread_ops.to_xfer_memory = sol_thread_xfer_memory;
|
|
|
|
|
sol_thread_ops.to_files_info = sol_thread_files_info;
|
|
|
|
|
sol_thread_ops.to_insert_breakpoint = memory_insert_breakpoint;
|
|
|
|
|
sol_thread_ops.to_remove_breakpoint = memory_remove_breakpoint;
|
|
|
|
|
sol_thread_ops.to_terminal_init = terminal_init_inferior;
|
|
|
|
|
sol_thread_ops.to_terminal_inferior = terminal_inferior;
|
|
|
|
|
sol_thread_ops.to_terminal_ours_for_output = terminal_ours_for_output;
|
|
|
|
|
sol_thread_ops.to_terminal_ours = terminal_ours;
|
2002-08-26 21:18:33 +02:00
|
|
|
|
sol_thread_ops.to_terminal_save_ours = terminal_save_ours;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
sol_thread_ops.to_terminal_info = child_terminal_info;
|
|
|
|
|
sol_thread_ops.to_kill = sol_thread_kill_inferior;
|
|
|
|
|
sol_thread_ops.to_create_inferior = sol_thread_create_inferior;
|
|
|
|
|
sol_thread_ops.to_mourn_inferior = sol_thread_mourn_inferior;
|
|
|
|
|
sol_thread_ops.to_can_run = sol_thread_can_run;
|
|
|
|
|
sol_thread_ops.to_notice_signals = sol_thread_notice_signals;
|
|
|
|
|
sol_thread_ops.to_thread_alive = sol_thread_alive;
|
1999-12-22 22:45:38 +01:00
|
|
|
|
sol_thread_ops.to_pid_to_str = solaris_pid_to_str;
|
1999-05-05 16:45:51 +02:00
|
|
|
|
sol_thread_ops.to_find_new_threads = sol_find_new_threads;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
sol_thread_ops.to_stop = sol_thread_stop;
|
|
|
|
|
sol_thread_ops.to_stratum = process_stratum;
|
|
|
|
|
sol_thread_ops.to_has_all_memory = 1;
|
|
|
|
|
sol_thread_ops.to_has_memory = 1;
|
|
|
|
|
sol_thread_ops.to_has_stack = 1;
|
|
|
|
|
sol_thread_ops.to_has_registers = 1;
|
|
|
|
|
sol_thread_ops.to_has_execution = 1;
|
|
|
|
|
sol_thread_ops.to_has_thread_control = tc_none;
|
2002-01-09 01:37:02 +01:00
|
|
|
|
sol_thread_ops.to_find_memory_regions = sol_find_memory_regions;
|
|
|
|
|
sol_thread_ops.to_make_corefile_notes = sol_make_note_section;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
sol_thread_ops.to_magic = OPS_MAGIC;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
static void
|
2000-07-30 03:48:28 +02:00
|
|
|
|
init_sol_core_ops (void)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
1999-07-07 22:19:36 +02:00
|
|
|
|
sol_core_ops.to_shortname = "solaris-core";
|
|
|
|
|
sol_core_ops.to_longname = "Solaris core threads and pthread.";
|
|
|
|
|
sol_core_ops.to_doc = "Solaris threads and pthread support for core files.";
|
|
|
|
|
sol_core_ops.to_open = sol_core_open;
|
|
|
|
|
sol_core_ops.to_close = sol_core_close;
|
|
|
|
|
sol_core_ops.to_attach = sol_thread_attach;
|
|
|
|
|
sol_core_ops.to_detach = sol_core_detach;
|
|
|
|
|
sol_core_ops.to_fetch_registers = sol_thread_fetch_registers;
|
|
|
|
|
sol_core_ops.to_xfer_memory = sol_thread_xfer_memory;
|
|
|
|
|
sol_core_ops.to_files_info = sol_core_files_info;
|
|
|
|
|
sol_core_ops.to_insert_breakpoint = ignore;
|
|
|
|
|
sol_core_ops.to_remove_breakpoint = ignore;
|
|
|
|
|
sol_core_ops.to_create_inferior = sol_thread_create_inferior;
|
|
|
|
|
sol_core_ops.to_stratum = core_stratum;
|
|
|
|
|
sol_core_ops.to_has_memory = 1;
|
|
|
|
|
sol_core_ops.to_has_stack = 1;
|
|
|
|
|
sol_core_ops.to_has_registers = 1;
|
|
|
|
|
sol_core_ops.to_has_thread_control = tc_none;
|
2000-04-13 18:31:50 +02:00
|
|
|
|
sol_core_ops.to_thread_alive = sol_thread_alive;
|
1999-12-22 22:45:38 +01:00
|
|
|
|
sol_core_ops.to_pid_to_str = solaris_pid_to_str;
|
2000-04-13 18:31:50 +02:00
|
|
|
|
/* On Solaris/x86, when debugging a threaded core file from process <n>,
|
|
|
|
|
the following causes "info threads" to produce "procfs: couldn't find pid
|
|
|
|
|
<n> in procinfo list" where <n> is the pid of the process that produced
|
|
|
|
|
the core file. Disable it for now. */
|
|
|
|
|
/* sol_core_ops.to_find_new_threads = sol_find_new_threads; */
|
1999-07-07 22:19:36 +02:00
|
|
|
|
sol_core_ops.to_magic = OPS_MAGIC;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* we suppress the call to add_target of core_ops in corelow because
|
|
|
|
|
if there are two targets in the stratum core_stratum, find_core_target
|
|
|
|
|
won't know which one to return. see corelow.c for an additonal
|
|
|
|
|
comment on coreops_suppress_target. */
|
|
|
|
|
int coreops_suppress_target = 1;
|
|
|
|
|
|
|
|
|
|
void
|
2000-07-30 03:48:28 +02:00
|
|
|
|
_initialize_sol_thread (void)
|
1999-04-16 03:35:26 +02:00
|
|
|
|
{
|
|
|
|
|
void *dlhandle;
|
|
|
|
|
|
|
|
|
|
init_sol_thread_ops ();
|
|
|
|
|
init_sol_core_ops ();
|
|
|
|
|
|
|
|
|
|
dlhandle = dlopen ("libthread_db.so.1", RTLD_NOW);
|
|
|
|
|
if (!dlhandle)
|
|
|
|
|
goto die;
|
|
|
|
|
|
|
|
|
|
#define resolve(X) \
|
|
|
|
|
if (!(p_##X = dlsym (dlhandle, #X))) \
|
|
|
|
|
goto die;
|
|
|
|
|
|
|
|
|
|
resolve (td_log);
|
|
|
|
|
resolve (td_ta_new);
|
|
|
|
|
resolve (td_ta_delete);
|
|
|
|
|
resolve (td_init);
|
|
|
|
|
resolve (td_ta_get_ph);
|
|
|
|
|
resolve (td_ta_get_nthreads);
|
|
|
|
|
resolve (td_ta_tsd_iter);
|
|
|
|
|
resolve (td_ta_thr_iter);
|
|
|
|
|
resolve (td_thr_validate);
|
|
|
|
|
resolve (td_thr_tsd);
|
|
|
|
|
resolve (td_thr_get_info);
|
|
|
|
|
resolve (td_thr_getfpregs);
|
|
|
|
|
resolve (td_thr_getxregsize);
|
|
|
|
|
resolve (td_thr_getxregs);
|
|
|
|
|
resolve (td_thr_sigsetmask);
|
|
|
|
|
resolve (td_thr_setprio);
|
|
|
|
|
resolve (td_thr_setsigpending);
|
|
|
|
|
resolve (td_thr_setfpregs);
|
|
|
|
|
resolve (td_thr_setxregs);
|
|
|
|
|
resolve (td_ta_map_id2thr);
|
|
|
|
|
resolve (td_ta_map_lwp2thr);
|
|
|
|
|
resolve (td_thr_getgregs);
|
|
|
|
|
resolve (td_thr_setgregs);
|
|
|
|
|
|
|
|
|
|
add_target (&sol_thread_ops);
|
|
|
|
|
|
|
|
|
|
procfs_suppress_run = 1;
|
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
add_cmd ("sol-threads", class_maintenance, info_solthreads,
|
|
|
|
|
"Show info on Solaris user threads.\n", &maintenanceinfolist);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
memcpy (&orig_core_ops, &core_ops, sizeof (struct target_ops));
|
|
|
|
|
memcpy (&core_ops, &sol_core_ops, sizeof (struct target_ops));
|
1999-04-16 03:35:26 +02:00
|
|
|
|
add_target (&core_ops);
|
|
|
|
|
|
1999-11-09 02:23:30 +01:00
|
|
|
|
/* Hook into new_objfile notification. */
|
|
|
|
|
target_new_objfile_chain = target_new_objfile_hook;
|
|
|
|
|
target_new_objfile_hook = sol_thread_new_objfile;
|
1999-04-16 03:35:26 +02:00
|
|
|
|
return;
|
|
|
|
|
|
1999-07-07 22:19:36 +02:00
|
|
|
|
die:
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
fprintf_unfiltered (gdb_stderr, "[GDB will not be able to debug user-mode threads: %s]\n", dlerror ());
|
|
|
|
|
|
|
|
|
|
if (dlhandle)
|
|
|
|
|
dlclose (dlhandle);
|
|
|
|
|
|
|
|
|
|
/* allow the user to debug non-threaded core files */
|
1999-07-07 22:19:36 +02:00
|
|
|
|
add_target (&core_ops);
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
|
|
return;
|
|
|
|
|
}
|