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, see
18 <http://www.gnu.org/licenses/>. */
19
20 #include <stddef.h>
21 #include <string.h>
22 #include "thread_dbP.h"
23
24
25 td_err_e
td_thr_get_info(const td_thrhandle_t * th,td_thrinfo_t * infop)26 td_thr_get_info (const td_thrhandle_t *th, td_thrinfo_t *infop)
27 {
28 td_err_e err;
29 void *copy;
30 psaddr_t tls, schedpolicy, schedprio, cancelhandling, tid, report_events;
31
32 LOG ("td_thr_get_info");
33
34 /* Copy the whole descriptor in once so we can access the several
35 fields locally. Excess copying in one go is much better than
36 multiple ps_pdread calls. */
37 err = DB_GET_STRUCT (copy, th->th_ta_p, th->th_unique, pthread);
38 if (err != TD_OK)
39 return err;
40
41 err = DB_GET_FIELD_ADDRESS (tls, th->th_ta_p, th->th_unique,
42 pthread, specific, 0);
43 if (err != TD_OK)
44 return err;
45
46 err = DB_GET_FIELD_LOCAL (schedpolicy, th->th_ta_p, copy, pthread,
47 schedpolicy, 0);
48 if (err != TD_OK)
49 return err;
50 err = DB_GET_FIELD_LOCAL (schedprio, th->th_ta_p, copy, pthread,
51 schedparam_sched_priority, 0);
52 if (err != TD_OK)
53 return err;
54 err = DB_GET_FIELD_LOCAL (tid, th->th_ta_p, copy, pthread, tid, 0);
55 if (err != TD_OK)
56 return err;
57 err = DB_GET_FIELD_LOCAL (cancelhandling, th->th_ta_p, copy, pthread,
58 cancelhandling, 0);
59 if (err != TD_OK)
60 return err;
61 err = DB_GET_FIELD_LOCAL (report_events, th->th_ta_p, copy, pthread,
62 report_events, 0);
63 if (err != TD_OK)
64 return err;
65
66 /* Fill in information. Clear first to provide reproducable
67 results for the fields we do not fill in. */
68 memset (infop, '\0', sizeof (td_thrinfo_t));
69
70 infop->ti_tid = (thread_t) th->th_unique;
71 infop->ti_tls = (char *) tls;
72 infop->ti_pri = ((uintptr_t) schedpolicy == SCHED_OTHER
73 ? 0 : (uintptr_t) schedprio);
74 infop->ti_type = TD_THR_USER;
75
76 if ((((int) (uintptr_t) cancelhandling) & EXITING_BITMASK) == 0)
77 /* XXX For now there is no way to get more information. */
78 infop->ti_state = TD_THR_ACTIVE;
79 else if ((((int) (uintptr_t) cancelhandling) & TERMINATED_BITMASK) == 0)
80 infop->ti_state = TD_THR_ZOMBIE;
81 else
82 infop->ti_state = TD_THR_UNKNOWN;
83
84 /* Initialization which are the same in both cases. */
85 infop->ti_ta_p = th->th_ta_p;
86 infop->ti_lid = tid == 0 ? ps_getpid (th->th_ta_p->ph) : (uintptr_t) tid;
87 infop->ti_traceme = report_events != 0;
88
89 err = DB_GET_FIELD_LOCAL (infop->ti_startfunc, th->th_ta_p, copy, pthread,
90 start_routine, 0);
91 if (err == TD_OK)
92 {
93 uint32_t idx;
94 for (idx = 0; idx < TD_EVENTSIZE; ++idx)
95 {
96 psaddr_t word;
97 err = DB_GET_FIELD_LOCAL (word, th->th_ta_p, copy, pthread,
98 eventbuf_eventmask_event_bits, idx);
99 if (err != TD_OK)
100 break;
101 infop->ti_events.event_bits[idx] = (uintptr_t) word;
102 }
103 if (err == TD_NOAPLIC)
104 memset (&infop->ti_events.event_bits[idx], 0,
105 (TD_EVENTSIZE - idx) * sizeof infop->ti_events.event_bits[0]);
106 }
107
108 return err;
109 }
110