2003-08-22 Roland McGrath <roland@redhat.com>
[kopensolaris-gnu/glibc.git] / nptl_db / td_thr_get_info.c
1 /* Get thread information.
2    Copyright (C) 1999, 2000, 2001, 2002, 2003 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   /* Copy the whole descriptor in once so we can access the several
36      fields locally.  Excess copying in one go is much better than
37      multiple ps_pdread calls.  */
38   err = DB_GET_STRUCT (copy, th->th_ta_p, th->th_unique, pthread);
39   if (err != TD_OK)
40     return err;
41
42   err = DB_GET_FIELD_ADDRESS (tls, th->th_ta_p, th->th_unique,
43                               pthread, specific, 0);
44   if (err != TD_OK)
45     return err;
46
47   err = DB_GET_FIELD_LOCAL (schedpolicy, th->th_ta_p, copy, pthread,
48                             schedpolicy, 0);
49   if (err != TD_OK)
50     return err;
51   err = DB_GET_FIELD_LOCAL (schedprio, th->th_ta_p, copy, pthread,
52                             schedparam_sched_priority, 0);
53   if (err != TD_OK)
54     return err;
55   err = DB_GET_FIELD_LOCAL (tid, th->th_ta_p, copy, pthread, tid, 0);
56   if (err != TD_OK)
57     return err;
58   err = DB_GET_FIELD_LOCAL (cancelhandling, th->th_ta_p, copy, pthread,
59                             cancelhandling, 0);
60   if (err != TD_OK)
61     return err;
62   err = DB_GET_FIELD_LOCAL (report_events, th->th_ta_p, copy, pthread,
63                             report_events, 0);
64   if (err != TD_OK)
65     return err;
66
67   /* Fill in information.  Clear first to provide reproducable
68      results for the fields we do not fill in.  */
69   memset (infop, '\0', sizeof (td_thrinfo_t));
70
71   infop->ti_tid = th->th_unique;
72   infop->ti_tls = (char *) tls;
73   infop->ti_pri = ((uintptr_t) schedpolicy == SCHED_OTHER
74                    ? 0 : (uintptr_t) schedprio);
75   infop->ti_type = TD_THR_USER;
76
77   if ((((int) (uintptr_t) cancelhandling) & EXITING_BITMASK) == 0)
78     /* XXX For now there is no way to get more information.  */
79     infop->ti_state = TD_THR_ACTIVE;
80   else if ((((int) (uintptr_t) cancelhandling) & TERMINATED_BITMASK) == 0)
81     infop->ti_state = TD_THR_ZOMBIE;
82   else
83     infop->ti_state = TD_THR_UNKNOWN;
84
85   /* Initialization which are the same in both cases.  */
86   infop->ti_ta_p = th->th_ta_p;
87   infop->ti_lid = tid == 0 ? ps_getpid (th->th_ta_p->ph) : (uintptr_t) tid;
88   infop->ti_traceme = report_events != 0;
89
90   err = DB_GET_FIELD_LOCAL (infop->ti_startfunc, th->th_ta_p, copy, pthread,
91                             start_routine, 0);
92   if (err == TD_OK)
93     {
94       uint32_t idx;
95       for (idx = 0; idx < TD_EVENTSIZE; ++idx)
96         {
97           psaddr_t word;
98           err = DB_GET_FIELD_LOCAL (word, th->th_ta_p, copy, pthread,
99                                     eventbuf_eventmask_event_bits, idx);
100           if (err != TD_OK)
101             break;
102           infop->ti_events.event_bits[idx] = (uintptr_t) word;
103         }
104       if (err == TD_NOAPLIC)
105         memset (&infop->ti_events.event_bits[idx], 0,
106                 (TD_EVENTSIZE - idx) * sizeof infop->ti_events.event_bits[0]);
107     }
108
109   return err;
110 }