td_err_e
td_thr_validate (const td_thrhandle_t *th)
{
td_err_e err;
psaddr_t list;
LOG ("td_thr_validate");
/* First check the list with threads using user allocated stacks. */
bool uninit = false;
err = DB_GET_SYMBOL (list, th->th_ta_p, __stack_user);
if (err == TD_OK)
err = check_thread_list (th, list, &uninit);
/* If our thread is not on this list search the list with stack
using implementation allocated stacks. */
if (err == TD_NOTHR)
{
err = DB_GET_SYMBOL (list, th->th_ta_p, stack_used);
if (err == TD_OK)
err = check_thread_list (th, list, &uninit);
if (err == TD_NOTHR && uninit && th->th_unique == 0)
/* __pthread_initialize_minimal has not run yet.
There is only the special case thread handle. */
err = TD_OK;
}
return err;
}
td_err_e
td_thr_validate (const td_thrhandle_t *th)
{
td_err_e err;
psaddr_t list;
LOG ("td_thr_validate");
/* First check the list with threads using user allocated stacks. */
bool uninit = false;
err = DB_GET_SYMBOL (list, th->th_ta_p, __stack_user);
if (err == TD_OK)
err = check_thread_list (th, list, &uninit);
/* If our thread is not on this list search the list with stack
using implementation allocated stacks. */
if (err == TD_NOTHR)
{
err = DB_GET_SYMBOL (list, th->th_ta_p, stack_used);
if (err == TD_OK)
err = check_thread_list (th, list, &uninit);
if (err == TD_NOTHR && uninit && th->th_unique == 0)
/* __pthread_initialize_minimal has not run yet.
There is only the special case thread handle. */
err = TD_OK;
}
if (err == TD_OK)
{
/* Verify that this is not a stale element in a fork child. */
pid_t match_pid = ps_getpid (th->th_ta_p->ph);
psaddr_t pid;
err = DB_GET_FIELD (pid, th->th_ta_p, th->th_unique, pthread, pid, 0);
if (err == TD_OK && (pid_t) (uintptr_t) pid < 0)
{
/* This was a thread that was about to fork, or it is the new sole
thread in a fork child. In the latter case, its tid was stored
via CLONE_CHILD_SETTID and so is already the proper child PID. */
if (-(pid_t) (uintptr_t) pid == match_pid)
/* It is about to do a fork, but is really still the parent PID. */
pid = (psaddr_t) (uintptr_t) match_pid;
else
/* It must be a fork child, whose new PID is in the tid field. */
err = DB_GET_FIELD (pid, th->th_ta_p, th->th_unique,
pthread, tid, 0);
}
if (err == TD_OK && (pid_t) (uintptr_t) pid != match_pid)
err = TD_NOTHR;
}
return err;
}
td_err_e
td_ta_tsd_iter (const td_thragent_t *ta_arg, td_key_iter_f *callback,
void *cbdata_p)
{
td_thragent_t *const ta = (td_thragent_t *) ta_arg;
td_err_e err;
void *keys;
size_t keys_nb, keys_elemsize;
psaddr_t addr;
uint32_t idx;
LOG ("td_ta_tsd_iter");
/* Test whether the TA parameter is ok. */
if (! ta_ok (ta))
return TD_BADTA;
/* This makes sure we have the size information on hand. */
addr = 0;
err = _td_locate_field (ta,
ta->ta_var___pthread_keys, SYM_DESC___pthread_keys,
(psaddr_t) 0 + 1, &addr);
if (err != TD_OK)
return err;
/* Now copy in the entire array of key descriptors. */
keys_elemsize = (addr - (psaddr_t) 0) / 8;
keys_nb = keys_elemsize * DB_DESC_NELEM (ta->ta_var___pthread_keys);
keys = __alloca (keys_nb);
err = DB_GET_SYMBOL (addr, ta, __pthread_keys);
if (err != TD_OK)
return err;
if (ps_pdread (ta->ph, addr, keys, keys_nb) != PS_OK)
return TD_ERR;
/* Now get all descriptors, one after the other. */
for (idx = 0; idx < DB_DESC_NELEM (ta->ta_var___pthread_keys); ++idx)
{
psaddr_t seq, destr;
err = DB_GET_FIELD_LOCAL (seq, ta, keys, pthread_key_struct, seq, 0);
if (err != TD_OK)
return err;
if (((uintptr_t) seq) & 1)
{
err = DB_GET_FIELD_LOCAL (destr, ta, keys, pthread_key_struct,
destr, 0);
if (err != TD_OK)
return err;
/* Return with an error if the callback returns a nonzero value. */
if (callback ((thread_key_t) idx, destr, cbdata_p) != 0)
return TD_DBERR;
}
/* Advance to the next element in the copied array. */
keys += keys_elemsize;
}
return TD_OK;
}
td_err_e
td_ta_clear_event (const td_thragent_t *ta_arg, td_thr_events_t *event)
{
td_thragent_t *const ta = (td_thragent_t *) ta_arg;
td_err_e err;
psaddr_t eventmask = 0;
void *copy = NULL;
LOG ("td_ta_clear_event");
/* Test whether the TA parameter is ok. */
if (! ta_ok (ta))
return TD_BADTA;
/* Fetch the old event mask from the inferior and modify it in place. */
err = DB_GET_SYMBOL (eventmask, ta, __nptl_threads_events);
if (err == TD_OK)
err = DB_GET_STRUCT (copy, ta, eventmask, td_thr_events_t);
if (err == TD_OK)
{
uint32_t idx;
for (idx = 0; idx < TD_EVENTSIZE; ++idx)
{
psaddr_t word;
uint32_t mask;
err = DB_GET_FIELD_LOCAL (word, ta, copy,
td_thr_events_t, event_bits, idx);
if (err != TD_OK)
break;
mask = (uintptr_t) word;
mask &= ~event->event_bits[idx];
word = (psaddr_t) (uintptr_t) mask;
err = DB_PUT_FIELD_LOCAL (ta, copy,
td_thr_events_t, event_bits, idx, word);
if (err != TD_OK)
break;
}
if (err == TD_NOAPLIC)
{
err = TD_OK;
while (idx < TD_EVENTSIZE)
if (event->event_bits[idx++] != 0)
{
err = TD_NOEVENT;
break;
}
}
if (err == TD_OK)
/* Now write it back to the inferior. */
err = DB_PUT_STRUCT (ta, eventmask, td_thr_events_t, copy);
}
return err;
}
td_err_e
td_ta_event_addr (const td_thragent_t *ta_arg,
td_event_e event, td_notify_t *addr)
{
td_thragent_t *const ta = (td_thragent_t *) ta_arg;
td_err_e err;
psaddr_t taddr = NULL;
LOG ("td_ta_event_addr");
/* Test whether the TA parameter is ok. */
if (! ta_ok (ta))
return TD_BADTA;
switch (event)
{
case TD_CREATE:
err = DB_GET_SYMBOL (taddr, ta, __nptl_create_event);
break;
case TD_DEATH:
err = DB_GET_SYMBOL (taddr, ta, __nptl_death_event);
break;
default:
/* Event cannot be handled. */
return TD_NOEVENT;
}
if (err == TD_OK)
{
/* Success, we got the address. */
addr->type = NOTIFY_BPT;
addr->u.bptaddr = taddr;
}
return err;
}
td_err_e
td_ta_thr_iter (const td_thragent_t *ta_arg, 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)
{
td_thragent_t *const ta = (td_thragent_t *) ta_arg;
td_err_e err;
psaddr_t list = 0;
LOG ("td_ta_thr_iter");
/* Test whether the TA parameter is ok. */
if (! ta_ok (ta))
return TD_BADTA;
/* The thread library keeps two lists for the running threads. One
list contains the thread which are using user-provided stacks
(this includes the main thread) and the other includes the
threads for which the thread library allocated the stacks. We
have to iterate over both lists separately. We start with the
list of threads with user-defined stacks. */
pid_t pid = ps_getpid (ta->ph);
err = DB_GET_SYMBOL (list, ta, __stack_user);
if (err == TD_OK)
err = iterate_thread_list (ta, callback, cbdata_p, state, ti_pri,
list, true, pid);
/* And the threads with stacks allocated by the implementation. */
if (err == TD_OK)
err = DB_GET_SYMBOL (list, ta, stack_used);
if (err == TD_OK)
err = iterate_thread_list (ta, callback, cbdata_p, state, ti_pri,
list, false, pid);
return err;
}
