nptl_db/td_thr_get_info.c

   1 /* Get thread information.
   2    Copyright (C) 1999-2003,2007,2009 Free Software Foundation, Inc.
   3    This file is part of the GNU C Library.
   4    Contributed by Ulrich Drepper <drepper@redhat.com>, 1999.
   5
   6    The GNU C Library is free software; you can redistribute it and/or
   7    modify it under the terms of the GNU Lesser General Public
   8    License as published by the Free Software Foundation; either
   9    version 2.1 of the License, or (at your option) any later version.
  10
  11    The GNU C Library is distributed in the hope that it will be useful,
  12    but WITHOUT ANY WARRANTY; without even the implied warranty of
  13    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14    Lesser General Public License for more details.
  15
  16    You should have received a copy of the GNU Lesser General Public
  17    License along with the GNU C Library; if not, write to the Free
  18    Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
  19    02111-1307 USA.  */
  20
  21 #include <stddef.h>
  22 #include <string.h>
  23 #include "thread_dbP.h"
  24
  25
  26 td_err_e
  27 td_thr_get_info (const td_thrhandle_t *th, td_thrinfo_t *infop)
  28 {
  29   td_err_e err;
  30   void *copy;
  31   psaddr_t tls, schedpolicy, schedprio, cancelhandling, tid, report_events;
  32
  33   LOG ("td_thr_get_info");
  34
  35   if (th->th_unique == 0)
  36     {
  37       /* Special case for the main thread before initialization.  */
  38       copy = NULL;
  39       tls = 0;
  40       cancelhandling = 0;
  41       schedpolicy = SCHED_OTHER;
  42       schedprio = 0;
  43       tid = 0;
  44       err = DB_GET_VALUE (report_events, th->th_ta_p,
  45                           __nptl_initial_report_events, 0);
  46     }
  47   else
  48     {
  49       /* Copy the whole descriptor in once so we can access the several
  50          fields locally.  Excess copying in one go is much better than
  51          multiple ps_pdread calls.  */
  52       err = DB_GET_STRUCT (copy, th->th_ta_p, th->th_unique, pthread);
  53       if (err != TD_OK)
  54         return err;
  55
  56       err = DB_GET_FIELD_ADDRESS (tls, th->th_ta_p, th->th_unique,
  57                                   pthread, specific, 0);
  58       if (err != TD_OK)
  59         return err;
  60
  61       err = DB_GET_FIELD_LOCAL (schedpolicy, th->th_ta_p, copy, pthread,
  62                                 schedpolicy, 0);
  63       if (err != TD_OK)
  64         return err;
  65       err = DB_GET_FIELD_LOCAL (schedprio, th->th_ta_p, copy, pthread,
  66                                 schedparam_sched_priority, 0);
  67       if (err != TD_OK)
  68         return err;
  69       err = DB_GET_FIELD_LOCAL (tid, th->th_ta_p, copy, pthread, tid, 0);
  70       if (err != TD_OK)
  71         return err;
  72       err = DB_GET_FIELD_LOCAL (cancelhandling, th->th_ta_p, copy, pthread,
  73                                 cancelhandling, 0);
  74       if (err != TD_OK)
  75         return err;
  76       err = DB_GET_FIELD_LOCAL (report_events, th->th_ta_p, copy, pthread,
  77                                 report_events, 0);
  78     }
  79   if (err != TD_OK)
  80     return err;
  81
  82   /* Fill in information.  Clear first to provide reproducable
  83      results for the fields we do not fill in.  */
  84   memset (infop, '\0', sizeof (td_thrinfo_t));
  85
  86   infop->ti_tid = (thread_t) th->th_unique;
  87   infop->ti_tls = (char *) tls;
  88   infop->ti_pri = ((uintptr_t) schedpolicy == SCHED_OTHER
  89                    ? 0 : (uintptr_t) schedprio);
  90   infop->ti_type = TD_THR_USER;
  91
  92   if ((((int) (uintptr_t) cancelhandling) & EXITING_BITMASK) == 0)
  93     /* XXX For now there is no way to get more information.  */
  94     infop->ti_state = TD_THR_ACTIVE;
  95   else if ((((int) (uintptr_t) cancelhandling) & TERMINATED_BITMASK) == 0)
  96     infop->ti_state = TD_THR_ZOMBIE;
  97   else
  98     infop->ti_state = TD_THR_UNKNOWN;
  99
 100   /* Initialization which are the same in both cases.  */
 101   infop->ti_ta_p = th->th_ta_p;
 102   infop->ti_lid = tid == 0 ? ps_getpid (th->th_ta_p->ph) : (uintptr_t) tid;
 103   infop->ti_traceme = report_events != 0;
 104
 105   if (copy != NULL)
 106     err = DB_GET_FIELD_LOCAL (infop->ti_startfunc, th->th_ta_p, copy, pthread,
 107                               start_routine, 0);
 108   if (copy != NULL && err == TD_OK)
 109     {
 110       uint32_t idx;
 111       for (idx = 0; idx < TD_EVENTSIZE; ++idx)
 112         {
 113           psaddr_t word;
 114           err = DB_GET_FIELD_LOCAL (word, th->th_ta_p, copy, pthread,
 115                                     eventbuf_eventmask_event_bits, idx);
 116           if (err != TD_OK)
 117             break;
 118           infop->ti_events.event_bits[idx] = (uintptr_t) word;
 119         }
 120       if (err == TD_NOAPLIC)
 121         memset (&infop->ti_events.event_bits[idx], 0,
 122                 (TD_EVENTSIZE - idx) * sizeof infop->ti_events.event_bits[0]);
 123     }
 124
 125   return err;
 126 }