#include "defs.h"
#include "gdb_assert.h"
#include <dlfcn.h>
#include "gdb_proc_service.h"
#include "gdb_thread_db.h"
#include "bfd.h"
#include "exceptions.h"
#include "gdbthread.h"
#include "inferior.h"
#include "symfile.h"
#include "objfiles.h"
#include "target.h"
#include "regcache.h"
#include "solib-svr4.h"
#ifdef HAVE_GNU_LIBC_VERSION_H
#include <gnu/libc-version.h>
#endif
#ifndef LIBTHREAD_DB_SO
#define LIBTHREAD_DB_SO "libthread_db.so.1"
#endif
#include "inlining.h"
static struct target_ops thread_db_ops;
static struct target_ops *target_beneath;
static void (*target_new_objfile_chain) (struct objfile * objfile);
static int using_thread_db;
static int thread_signals;
static sigset_t thread_stop_set;
static sigset_t thread_print_set;
static struct ps_prochandle proc_handle;
static td_thragent_t *thread_agent;
static td_err_e (*td_init_p) (void);
static td_err_e (*td_ta_new_p) (struct ps_prochandle * ps,
td_thragent_t **ta);
static td_err_e (*td_ta_map_id2thr_p) (const td_thragent_t *ta, thread_t pt,
td_thrhandle_t *__th);
static td_err_e (*td_ta_map_lwp2thr_p) (const td_thragent_t *ta,
lwpid_t lwpid, td_thrhandle_t *th);
static td_err_e (*td_ta_thr_iter_p) (const td_thragent_t *ta,
td_thr_iter_f *callback, void *cbdata_p,
td_thr_state_e state, int ti_pri,
sigset_t *ti_sigmask_p,
unsigned int ti_user_flags);
static td_err_e (*td_ta_event_addr_p) (const td_thragent_t *ta,
td_event_e event, td_notify_t *ptr);
static td_err_e (*td_ta_set_event_p) (const td_thragent_t *ta,
td_thr_events_t *event);
static td_err_e (*td_ta_event_getmsg_p) (const td_thragent_t *ta,
td_event_msg_t *msg);
static td_err_e (*td_thr_validate_p) (const td_thrhandle_t *th);
static td_err_e (*td_thr_get_info_p) (const td_thrhandle_t *th,
td_thrinfo_t *infop);
static td_err_e (*td_thr_getfpregs_p) (const td_thrhandle_t *th,
gdb_prfpregset_t *regset);
static td_err_e (*td_thr_getgregs_p) (const td_thrhandle_t *th,
prgregset_t gregs);
static td_err_e (*td_thr_setfpregs_p) (const td_thrhandle_t *th,
const gdb_prfpregset_t *fpregs);
static td_err_e (*td_thr_setgregs_p) (const td_thrhandle_t *th,
prgregset_t gregs);
static td_err_e (*td_thr_event_enable_p) (const td_thrhandle_t *th,
int event);
static td_err_e (*td_thr_tls_get_addr_p) (const td_thrhandle_t *th,
void *map_address,
size_t offset, void **address);
static CORE_ADDR td_create_bp_addr;
static CORE_ADDR td_death_bp_addr;
static void thread_db_find_new_threads (void);
static void attach_thread (ptid_t ptid, const td_thrhandle_t *th_p,
const td_thrinfo_t *ti_p, int verbose);
static void detach_thread (ptid_t ptid, int verbose);
#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)
struct private_thread_info
{
unsigned int dying:1;
unsigned int th_valid:1;
unsigned int ti_valid:1;
td_thrhandle_t th;
td_thrinfo_t ti;
};
static char *
thread_db_err_str (td_err_e err)
{
static char buf[64];
switch (err)
{
case TD_OK:
return "generic 'call succeeded'";
case TD_ERR:
return "generic error";
case TD_NOTHR:
return "no thread to satisfy query";
case TD_NOSV:
return "no sync handle to satisfy query";
case TD_NOLWP:
return "no LWP to satisfy query";
case TD_BADPH:
return "invalid process handle";
case TD_BADTH:
return "invalid thread handle";
case TD_BADSH:
return "invalid synchronization handle";
case TD_BADTA:
return "invalid thread agent";
case TD_BADKEY:
return "invalid key";
case TD_NOMSG:
return "no event message for getmsg";
case TD_NOFPREGS:
return "FPU register set not available";
case TD_NOLIBTHREAD:
return "application not linked with libthread";
case TD_NOEVENT:
return "requested event is not supported";
case TD_NOCAPAB:
return "capability not available";
case TD_DBERR:
return "debugger service failed";
case TD_NOAPLIC:
return "operation not applicable to";
case TD_NOTSD:
return "no thread-specific data for this thread";
case TD_MALLOC:
return "malloc failed";
case TD_PARTIALREG:
return "only part of register set was written/read";
case TD_NOXREGS:
return "X register set not available for this thread";
default:
snprintf (buf, sizeof (buf), "unknown thread_db error '%d'", err);
return buf;
}
}
static char *
thread_db_state_str (td_thr_state_e state)
{
static char buf[64];
switch (state)
{
case TD_THR_STOPPED:
return "stopped by debugger";
case TD_THR_RUN:
return "runnable";
case TD_THR_ACTIVE:
return "active";
case TD_THR_ZOMBIE:
return "zombie";
case TD_THR_SLEEP:
return "sleeping";
case TD_THR_STOPPED_ASLEEP:
return "stopped by debugger AND blocked";
default:
snprintf (buf, sizeof (buf), "unknown thread_db state %d", state);
return buf;
}
}
static int
thread_get_info_callback (const td_thrhandle_t *thp, void *infop)
{
td_thrinfo_t ti;
td_err_e err;
struct thread_info *thread_info;
ptid_t thread_ptid;
err = td_thr_get_info_p (thp, &ti);
if (err != TD_OK)
error (_("thread_get_info_callback: cannot get thread info: %s"),
thread_db_err_str (err));
thread_ptid = ptid_build (GET_PID (inferior_ptid), ti.ti_lid, ti.ti_tid);
thread_info = find_thread_pid (thread_ptid);
if (ti.ti_state == TD_THR_UNKNOWN || ti.ti_state == TD_THR_ZOMBIE)
{
if (infop != NULL)
*(struct thread_info **) infop = thread_info;
if (thread_info != NULL)
{
memcpy (&thread_info->private->th, thp, sizeof (*thp));
thread_info->private->th_valid = 1;
memcpy (&thread_info->private->ti, &ti, sizeof (ti));
thread_info->private->ti_valid = 1;
}
return TD_THR_ZOMBIE;
}
if (thread_info == NULL)
{
attach_thread (thread_ptid, thp, &ti, 1);
thread_info = find_thread_pid (thread_ptid);
gdb_assert (thread_info != NULL);
}
memcpy (&thread_info->private->th, thp, sizeof (*thp));
thread_info->private->th_valid = 1;
memcpy (&thread_info->private->ti, &ti, sizeof (ti));
thread_info->private->ti_valid = 1;
if (infop != NULL)
*(struct thread_info **) infop = thread_info;
return 0;
}
static void
thread_db_map_id2thr (struct thread_info *thread_info, int fatal)
{
td_err_e err;
if (thread_info->private->th_valid)
return;
err = td_ta_map_id2thr_p (thread_agent, GET_THREAD (thread_info->ptid),
&thread_info->private->th);
if (err != TD_OK)
{
if (fatal)
error (_("Cannot find thread %ld: %s"),
(long) GET_THREAD (thread_info->ptid),
thread_db_err_str (err));
}
else
thread_info->private->th_valid = 1;
}
static td_thrinfo_t *
thread_db_get_info (struct thread_info *thread_info)
{
td_err_e err;
if (thread_info->private->ti_valid)
return &thread_info->private->ti;
if (!thread_info->private->th_valid)
thread_db_map_id2thr (thread_info, 1);
err =
td_thr_get_info_p (&thread_info->private->th, &thread_info->private->ti);
if (err != TD_OK)
error (_("thread_db_get_info: cannot get thread info: %s"),
thread_db_err_str (err));
thread_info->private->ti_valid = 1;
return &thread_info->private->ti;
}
static ptid_t
thread_from_lwp (ptid_t ptid)
{
td_thrhandle_t th;
td_err_e err;
struct thread_info *thread_info;
ptid_t thread_ptid;
if (GET_LWP (ptid) == 0)
ptid = BUILD_LWP (GET_PID (ptid), GET_PID (ptid));
gdb_assert (is_lwp (ptid));
err = td_ta_map_lwp2thr_p (thread_agent, GET_LWP (ptid), &th);
if (err != TD_OK)
error (_("Cannot find user-level thread for LWP %ld: %s"),
GET_LWP (ptid), thread_db_err_str (err));
thread_info = NULL;
if (thread_get_info_callback (&th, &thread_info) == TD_THR_ZOMBIE
&& thread_info == NULL)
return pid_to_ptid (-1);
gdb_assert (thread_info && thread_info->private->ti_valid);
return ptid_build (GET_PID (ptid), GET_LWP (ptid),
thread_info->private->ti.ti_tid);
}
static ptid_t
lwp_from_thread (ptid_t ptid)
{
return BUILD_LWP (GET_LWP (ptid), GET_PID (ptid));
}
void
thread_db_init (struct target_ops *target)
{
target_beneath = target;
}
static void *
verbose_dlsym (void *handle, const char *name)
{
void *sym = dlsym (handle, name);
if (sym == NULL)
warning (_("Symbol \"%s\" not found in libthread_db: %s"), name, dlerror ());
return sym;
}
static int
thread_db_load (void)
{
void *handle;
td_err_e err;
handle = dlopen (LIBTHREAD_DB_SO, RTLD_NOW);
if (handle == NULL)
{
fprintf_filtered (gdb_stderr, "\n\ndlopen failed on '%s' - %s\n",
LIBTHREAD_DB_SO, dlerror ());
fprintf_filtered (gdb_stderr,
"GDB will not be able to debug pthreads.\n\n");
return 0;
}
td_init_p = verbose_dlsym (handle, "td_init");
if (td_init_p == NULL)
return 0;
td_ta_new_p = verbose_dlsym (handle, "td_ta_new");
if (td_ta_new_p == NULL)
return 0;
td_ta_map_id2thr_p = verbose_dlsym (handle, "td_ta_map_id2thr");
if (td_ta_map_id2thr_p == NULL)
return 0;
td_ta_map_lwp2thr_p = verbose_dlsym (handle, "td_ta_map_lwp2thr");
if (td_ta_map_lwp2thr_p == NULL)
return 0;
td_ta_thr_iter_p = verbose_dlsym (handle, "td_ta_thr_iter");
if (td_ta_thr_iter_p == NULL)
return 0;
td_thr_validate_p = verbose_dlsym (handle, "td_thr_validate");
if (td_thr_validate_p == NULL)
return 0;
td_thr_get_info_p = verbose_dlsym (handle, "td_thr_get_info");
if (td_thr_get_info_p == NULL)
return 0;
td_thr_getfpregs_p = verbose_dlsym (handle, "td_thr_getfpregs");
if (td_thr_getfpregs_p == NULL)
return 0;
td_thr_getgregs_p = verbose_dlsym (handle, "td_thr_getgregs");
if (td_thr_getgregs_p == NULL)
return 0;
td_thr_setfpregs_p = verbose_dlsym (handle, "td_thr_setfpregs");
if (td_thr_setfpregs_p == NULL)
return 0;
td_thr_setgregs_p = verbose_dlsym (handle, "td_thr_setgregs");
if (td_thr_setgregs_p == NULL)
return 0;
err = td_init_p ();
if (err != TD_OK)
{
warning (_("Cannot initialize libthread_db: %s"), thread_db_err_str (err));
return 0;
}
td_ta_event_addr_p = dlsym (handle, "td_ta_event_addr");
td_ta_set_event_p = dlsym (handle, "td_ta_set_event");
td_ta_event_getmsg_p = dlsym (handle, "td_ta_event_getmsg");
td_thr_event_enable_p = dlsym (handle, "td_thr_event_enable");
td_thr_tls_get_addr_p = dlsym (handle, "td_thr_tls_get_addr");
return 1;
}
static td_err_e
enable_thread_event (td_thragent_t *thread_agent, int event, CORE_ADDR *bp)
{
td_notify_t notify;
td_err_e err;
err = td_ta_event_addr_p (thread_agent, event, ¬ify);
if (err != TD_OK)
return err;
(*bp) = gdbarch_convert_from_func_ptr_addr (current_gdbarch,
(CORE_ADDR) notify.u.bptaddr,
¤t_target);
create_thread_event_breakpoint ((*bp));
return TD_OK;
}
static void
enable_thread_event_reporting (void)
{
td_thr_events_t events;
td_notify_t notify;
td_err_e err;
#ifdef HAVE_GNU_LIBC_VERSION_H
const char *libc_version;
int libc_major, libc_minor;
#endif
if (td_ta_event_addr_p == NULL || td_ta_set_event_p == NULL
|| td_ta_event_getmsg_p == NULL || td_thr_event_enable_p == NULL)
return;
td_event_emptyset (&events);
td_event_addset (&events, TD_CREATE);
#ifdef HAVE_GNU_LIBC_VERSION_H
libc_version = gnu_get_libc_version ();
if (sscanf (libc_version, "%d.%d", &libc_major, &libc_minor) == 2
&& (libc_major > 2 || (libc_major == 2 && libc_minor > 1)))
#endif
td_event_addset (&events, TD_DEATH);
err = td_ta_set_event_p (thread_agent, &events);
if (err != TD_OK)
{
warning (_("Unable to set global thread event mask: %s"),
thread_db_err_str (err));
return;
}
remove_thread_event_breakpoints ();
td_create_bp_addr = 0;
td_death_bp_addr = 0;
err = enable_thread_event (thread_agent, TD_CREATE, &td_create_bp_addr);
if (err != TD_OK)
{
warning (_("Unable to get location for thread creation breakpoint: %s"),
thread_db_err_str (err));
return;
}
err = enable_thread_event (thread_agent, TD_DEATH, &td_death_bp_addr);
if (err != TD_OK)
{
warning (_("Unable to get location for thread death breakpoint: %s"),
thread_db_err_str (err));
return;
}
}
static void
disable_thread_event_reporting (void)
{
td_thr_events_t events;
td_event_emptyset (&events);
td_ta_set_event_p (thread_agent, &events);
remove_thread_event_breakpoints ();
td_create_bp_addr = 0;
td_death_bp_addr = 0;
}
static void
check_thread_signals (void)
{
#ifdef GET_THREAD_SIGNALS
if (!thread_signals)
{
sigset_t mask;
int i;
GET_THREAD_SIGNALS (&mask);
sigemptyset (&thread_stop_set);
sigemptyset (&thread_print_set);
for (i = 1; i < NSIG; i++)
{
if (sigismember (&mask, i))
{
if (signal_stop_update (target_signal_from_host (i), 0))
sigaddset (&thread_stop_set, i);
if (signal_print_update (target_signal_from_host (i), 0))
sigaddset (&thread_print_set, i);
thread_signals = 1;
}
}
}
#endif
}
static void
thread_db_new_objfile (struct objfile *objfile)
{
td_err_e err;
{
static int dejavu;
if (!dejavu)
{
Dl_info info;
const char *library = NULL;
if (dladdr ((*td_ta_new_p), &info) != 0)
library = info.dli_fname;
if (library == NULL)
library = LIBTHREAD_DB_SO;
printf_unfiltered (_("Using host libthread_db library \"%s\".\n"),
library);
dejavu = 1;
}
}
if (objfile == NULL || !target_has_execution)
{
if (using_thread_db)
{
gdb_assert (proc_handle.pid == 0);
unpush_target (&thread_db_ops);
using_thread_db = 0;
}
goto quit;
}
if (using_thread_db)
goto quit;
proc_handle.pid = GET_PID (inferior_ptid);
err = td_ta_new_p (&proc_handle, &thread_agent);
switch (err)
{
case TD_NOLIBTHREAD:
break;
case TD_OK:
printf_unfiltered (_("[Thread debugging using libthread_db enabled]\n"));
push_target (&thread_db_ops);
using_thread_db = 1;
enable_thread_event_reporting ();
thread_db_find_new_threads ();
break;
default:
warning (_("Cannot initialize thread debugging library: %s"),
thread_db_err_str (err));
break;
}
quit:
if (target_new_objfile_chain)
target_new_objfile_chain (objfile);
}
static void
attach_thread (ptid_t ptid, const td_thrhandle_t *th_p,
const td_thrinfo_t *ti_p, int verbose)
{
struct thread_info *tp;
td_err_e err;
if (in_thread_list (ptid))
{
tp = find_thread_pid (ptid);
gdb_assert (tp != NULL);
if (!tp->private->dying)
return;
delete_thread (ptid);
}
check_thread_signals ();
tp = add_thread (ptid);
tp->private = xmalloc (sizeof (struct private_thread_info));
memset (tp->private, 0, sizeof (struct private_thread_info));
if (verbose)
printf_unfiltered (_("[New %s]\n"), target_pid_to_str (ptid));
if (ti_p->ti_state == TD_THR_UNKNOWN || ti_p->ti_state == TD_THR_ZOMBIE)
return;
#ifdef ATTACH_LWP
ATTACH_LWP (BUILD_LWP (ti_p->ti_lid, GET_PID (ptid)), 0);
#endif
err = td_thr_event_enable_p (th_p, 1);
if (err != TD_OK)
error (_("Cannot enable thread event reporting for %s: %s"),
target_pid_to_str (ptid), thread_db_err_str (err));
}
static void
thread_db_attach (char *args, int from_tty)
{
target_beneath->to_attach (args, from_tty);
init_thread_list ();
proc_handle.pid = GET_PID (inferior_ptid);
enable_thread_event_reporting ();
thread_db_find_new_threads ();
}
static void
detach_thread (ptid_t ptid, int verbose)
{
struct thread_info *thread_info;
if (verbose)
printf_unfiltered (_("[%s exited]\n"), target_pid_to_str (ptid));
thread_info = find_thread_pid (ptid);
gdb_assert (thread_info != NULL);
thread_info->private->dying = 1;
}
static void
thread_db_detach (char *args, int from_tty)
{
disable_thread_event_reporting ();
inferior_ptid = lwp_from_thread (inferior_ptid);
proc_handle.pid = 0;
target_beneath->to_detach (args, from_tty);
}
static int
clear_lwpid_callback (struct thread_info *thread, void *dummy)
{
thread->private->th_valid = 0;
thread->private->ti_valid = 0;
return 0;
}
static void
thread_db_resume (ptid_t ptid, int step, enum target_signal signo)
{
struct cleanup *old_chain = save_inferior_ptid ();
if (GET_PID (ptid) == -1)
inferior_ptid = lwp_from_thread (inferior_ptid);
else if (is_thread (ptid))
ptid = lwp_from_thread (ptid);
iterate_over_threads (clear_lwpid_callback, NULL);
target_beneath->to_resume (ptid, step, signo);
do_cleanups (old_chain);
}
static void
check_event (ptid_t ptid)
{
td_event_msg_t msg;
td_thrinfo_t ti;
td_err_e err;
CORE_ADDR stop_pc;
int loop = 0;
stop_pc = read_pc_pid (ptid) - DECR_PC_AFTER_BREAK;
if (stop_pc != inlined_function_call_stack_pc ())
inlined_function_update_call_stack (stop_pc);
if (stop_pc != td_create_bp_addr && stop_pc != td_death_bp_addr)
return;
loop = 1;
do
{
err = td_ta_event_getmsg_p (thread_agent, &msg);
if (err != TD_OK)
{
if (err == TD_NOMSG)
return;
error (_("Cannot get thread event message: %s"),
thread_db_err_str (err));
}
err = td_thr_get_info_p (msg.th_p, &ti);
if (err != TD_OK)
error (_("Cannot get thread info: %s"), thread_db_err_str (err));
ptid = ptid_build (GET_PID (ptid), ti.ti_lid, ti.ti_tid);
switch (msg.event)
{
case TD_CREATE:
attach_thread (ptid, msg.th_p, &ti, 1);
break;
case TD_DEATH:
if (!in_thread_list (ptid))
error (_("Spurious thread death event."));
detach_thread (ptid, 1);
break;
default:
error (_("Spurious thread event."));
}
}
while (loop);
}
static ptid_t
thread_db_wait (ptid_t ptid, struct target_waitstatus *ourstatus)
{
extern ptid_t trap_ptid;
if (GET_PID (ptid) != -1 && is_thread (ptid))
ptid = lwp_from_thread (ptid);
ptid = target_beneath->to_wait (ptid, ourstatus);
if (proc_handle.pid == 0)
return ptid;
if (ourstatus->kind == TARGET_WAITKIND_EXITED)
return pid_to_ptid (-1);
if (ourstatus->kind == TARGET_WAITKIND_STOPPED
&& ourstatus->value.sig == TARGET_SIGNAL_TRAP)
check_event (ptid);
if (!ptid_equal (trap_ptid, null_ptid))
trap_ptid = thread_from_lwp (trap_ptid);
ptid = thread_from_lwp (ptid);
if (GET_PID (ptid) == -1)
ourstatus->kind = TARGET_WAITKIND_SPURIOUS;
return ptid;
}
static int
thread_db_xfer_memory (CORE_ADDR memaddr, gdb_byte *myaddr, int len, int write,
struct mem_attrib *attrib, struct target_ops *target)
{
struct cleanup *old_chain = save_inferior_ptid ();
int xfer;
if (is_thread (inferior_ptid))
{
if (!target_thread_alive (inferior_ptid))
inferior_ptid = pid_to_ptid (GET_PID (inferior_ptid));
else
inferior_ptid = lwp_from_thread (inferior_ptid);
}
xfer =
target_beneath->deprecated_xfer_memory (memaddr, myaddr, len, write,
attrib, target);
do_cleanups (old_chain);
return xfer;
}
static void
thread_db_fetch_registers (int regno)
{
struct thread_info *thread_info;
prgregset_t gregset;
gdb_prfpregset_t fpregset;
td_err_e err;
if (!is_thread (inferior_ptid))
{
target_beneath->to_fetch_registers (regno);
return;
}
thread_info = find_thread_pid (inferior_ptid);
thread_db_map_id2thr (thread_info, 1);
err = td_thr_getgregs_p (&thread_info->private->th, gregset);
if (err != TD_OK)
error (_("Cannot fetch general-purpose registers for thread %ld: %s"),
(long) GET_THREAD (inferior_ptid), thread_db_err_str (err));
err = td_thr_getfpregs_p (&thread_info->private->th, &fpregset);
if (err != TD_OK)
error (_("Cannot get floating-point registers for thread %ld: %s"),
(long) GET_THREAD (inferior_ptid), thread_db_err_str (err));
supply_gregset ((gdb_gregset_t *) gregset);
supply_fpregset (&fpregset);
}
static void
thread_db_store_registers (int regno)
{
prgregset_t gregset;
gdb_prfpregset_t fpregset;
td_err_e err;
struct thread_info *thread_info;
if (!is_thread (inferior_ptid))
{
target_beneath->to_store_registers (regno);
return;
}
thread_info = find_thread_pid (inferior_ptid);
thread_db_map_id2thr (thread_info, 1);
if (regno != -1)
{
char raw[MAX_REGISTER_SIZE];
deprecated_read_register_gen (regno, raw);
thread_db_fetch_registers (-1);
regcache_raw_supply (current_regcache, regno, raw);
}
fill_gregset ((gdb_gregset_t *) gregset, -1);
fill_fpregset (&fpregset, -1);
err = td_thr_setgregs_p (&thread_info->private->th, gregset);
if (err != TD_OK)
error (_("Cannot store general-purpose registers for thread %ld: %s"),
(long) GET_THREAD (inferior_ptid), thread_db_err_str (err));
err = td_thr_setfpregs_p (&thread_info->private->th, &fpregset);
if (err != TD_OK)
error (_("Cannot store floating-point registers for thread %ld: %s"),
(long) GET_THREAD (inferior_ptid), thread_db_err_str (err));
}
static void
thread_db_kill (void)
{
inferior_ptid = lwp_from_thread (inferior_ptid);
target_beneath->to_kill ();
}
static void
thread_db_create_inferior (char *exec_file, char *allargs, char **env,
int from_tty)
{
unpush_target (&thread_db_ops);
using_thread_db = 0;
target_beneath->to_create_inferior (exec_file, allargs, env, from_tty);
}
static void
thread_db_post_startup_inferior (ptid_t ptid)
{
if (proc_handle.pid == 0)
{
proc_handle.pid = GET_PID (ptid);
enable_thread_event_reporting ();
thread_db_find_new_threads ();
}
}
static void
thread_db_mourn_inferior (void)
{
remove_thread_event_breakpoints ();
proc_handle.pid = 0;
target_beneath->to_mourn_inferior ();
unpush_target (&thread_db_ops);
using_thread_db = 0;
}
static int
thread_db_thread_alive (ptid_t ptid)
{
td_thrhandle_t th;
td_err_e err;
if (is_thread (ptid))
{
struct thread_info *thread_info;
thread_info = find_thread_pid (ptid);
thread_db_map_id2thr (thread_info, 0);
if (!thread_info->private->th_valid)
return 0;
err = td_thr_validate_p (&thread_info->private->th);
if (err != TD_OK)
return 0;
if (!thread_info->private->ti_valid)
{
err =
td_thr_get_info_p (&thread_info->private->th,
&thread_info->private->ti);
if (err != TD_OK)
return 0;
thread_info->private->ti_valid = 1;
}
if (thread_info->private->ti.ti_state == TD_THR_UNKNOWN
|| thread_info->private->ti.ti_state == TD_THR_ZOMBIE)
return 0;
return 1;
}
if (target_beneath->to_thread_alive)
return target_beneath->to_thread_alive (ptid);
return 0;
}
static int
find_new_threads_callback (const td_thrhandle_t *th_p, void *data)
{
td_thrinfo_t ti;
td_err_e err;
ptid_t ptid;
err = td_thr_get_info_p (th_p, &ti);
if (err != TD_OK)
error (_("find_new_threads_callback: cannot get thread info: %s"),
thread_db_err_str (err));
if (ti.ti_state == TD_THR_UNKNOWN || ti.ti_state == TD_THR_ZOMBIE)
return 0;
ptid = ptid_build (GET_PID (inferior_ptid), ti.ti_lid, ti.ti_tid);
if (!in_thread_list (ptid))
attach_thread (ptid, th_p, &ti, 1);
return 0;
}
static void
thread_db_find_new_threads (void)
{
td_err_e err;
err = td_ta_thr_iter_p (thread_agent, find_new_threads_callback, NULL,
TD_THR_ANY_STATE, TD_THR_LOWEST_PRIORITY,
TD_SIGNO_MASK, TD_THR_ANY_USER_FLAGS);
if (err != TD_OK)
error (_("Cannot find new threads: %s"), thread_db_err_str (err));
}
static char *
thread_db_pid_to_str (ptid_t ptid)
{
if (is_thread (ptid))
{
static char buf[64];
td_thrinfo_t *ti_p;
td_err_e err;
struct thread_info *thread_info;
thread_info = find_thread_pid (ptid);
thread_db_map_id2thr (thread_info, 0);
if (!thread_info->private->th_valid)
{
snprintf (buf, sizeof (buf), "Thread %ld (Missing)",
GET_THREAD (ptid));
return buf;
}
ti_p = thread_db_get_info (thread_info);
if (ti_p->ti_state == TD_THR_ACTIVE && ti_p->ti_lid != 0)
{
snprintf (buf, sizeof (buf), "Thread %ld (LWP %d)",
(long) ti_p->ti_tid, ti_p->ti_lid);
}
else
{
snprintf (buf, sizeof (buf), "Thread %ld (%s)",
(long) ti_p->ti_tid,
thread_db_state_str (ti_p->ti_state));
}
return buf;
}
if (target_beneath->to_pid_to_str (ptid))
return target_beneath->to_pid_to_str (ptid);
return normal_pid_to_str (ptid);
}
static CORE_ADDR
thread_db_get_thread_local_address (ptid_t ptid,
CORE_ADDR lm,
CORE_ADDR offset)
{
if (is_thread (ptid))
{
td_err_e err;
void *address;
struct thread_info *thread_info;
if (!td_thr_tls_get_addr_p)
throw_error (TLS_NO_LIBRARY_SUPPORT_ERROR,
_("No TLS library support"));
gdb_assert (lm != 0);
thread_info = find_thread_pid (ptid);
thread_db_map_id2thr (thread_info, 1);
err = td_thr_tls_get_addr_p (&thread_info->private->th, (void *) lm,
offset, &address);
#ifdef THREAD_DB_HAS_TD_NOTALLOC
if (err == TD_NOTALLOC)
throw_error (TLS_NOT_ALLOCATED_YET_ERROR,
_("TLS not allocated yet"));
#endif
if (err != TD_OK)
throw_error (TLS_GENERIC_ERROR,
(("%s")), thread_db_err_str (err));
return (CORE_ADDR) address;
}
if (target_beneath->to_get_thread_local_address)
return target_beneath->to_get_thread_local_address (ptid, lm, offset);
else
throw_error (TLS_GENERIC_ERROR,
_("TLS not supported on this target"));
}
static void
init_thread_db_ops (void)
{
thread_db_ops.to_shortname = "multi-thread";
thread_db_ops.to_longname = "multi-threaded child process.";
thread_db_ops.to_doc = "Threads and pthreads support.";
thread_db_ops.to_attach = thread_db_attach;
thread_db_ops.to_detach = thread_db_detach;
thread_db_ops.to_resume = thread_db_resume;
thread_db_ops.to_wait = thread_db_wait;
thread_db_ops.to_fetch_registers = thread_db_fetch_registers;
thread_db_ops.to_store_registers = thread_db_store_registers;
thread_db_ops.deprecated_xfer_memory = thread_db_xfer_memory;
thread_db_ops.to_kill = thread_db_kill;
thread_db_ops.to_create_inferior = thread_db_create_inferior;
thread_db_ops.to_post_startup_inferior = thread_db_post_startup_inferior;
thread_db_ops.to_mourn_inferior = thread_db_mourn_inferior;
thread_db_ops.to_thread_alive = thread_db_thread_alive;
thread_db_ops.to_find_new_threads = thread_db_find_new_threads;
thread_db_ops.to_pid_to_str = thread_db_pid_to_str;
thread_db_ops.to_stratum = thread_stratum;
thread_db_ops.to_has_thread_control = tc_schedlock;
thread_db_ops.to_get_thread_local_address
= thread_db_get_thread_local_address;
thread_db_ops.to_magic = OPS_MAGIC;
}
void
_initialize_thread_db (void)
{
if (thread_db_load ())
{
init_thread_db_ops ();
add_target (&thread_db_ops);
target_new_objfile_chain = deprecated_target_new_objfile_hook;
deprecated_target_new_objfile_hook = thread_db_new_objfile;
}
}