1 /* Which thread is running on an LWP?
2 Copyright (C) 2003, 2004 Free Software Foundation, Inc.
3 This file is part of the GNU C Library.
5 The GNU C Library is free software; you can redistribute it and/or
6 modify it under the terms of the GNU Lesser General Public
7 License as published by the Free Software Foundation; either
8 version 2.1 of the License, or (at your option) any later version.
10 The GNU C Library is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 Lesser General Public License for more details.
15 You should have received a copy of the GNU Lesser General Public
16 License along with the GNU C Library; if not, write to the Free
17 Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
20 #include "thread_dbP.h"
23 #include <sys/procfs.h>
27 td_ta_map_lwp2thr (const td_thragent_t *ta_arg,
28 lwpid_t lwpid, td_thrhandle_t *th)
30 td_thragent_t *const ta = (td_thragent_t *) ta_arg;
36 LOG ("td_ta_map_lwp2thr");
38 /* Test whether the TA parameter is ok. */
42 if (ta->ta_howto == ta_howto_unknown)
44 /* We need to read in from the inferior the instructions what to do. */
47 err = td_lookup (ta->ph, SYM_TH_UNIQUE_CONST_THREAD_AREA, &howto);
50 err = ps_pdread (ta->ph, howto,
51 &ta->ta_howto_data.const_thread_area,
52 sizeof ta->ta_howto_data.const_thread_area);
55 ta->ta_howto = ta_howto_const_thread_area;
56 if (ta->ta_howto_data.const_thread_area & 0xff000000U)
57 ta->ta_howto_data.const_thread_area
58 = bswap_32 (ta->ta_howto_data.const_thread_area);
62 switch (sizeof (regs[0]))
65 err = td_lookup (ta->ph, SYM_TH_UNIQUE_REGISTER64, &howto);
67 ta->ta_howto = ta_howto_reg;
68 else if (err == PS_NOSYM)
70 err = td_lookup (ta->ph,
71 SYM_TH_UNIQUE_REGISTER64_THREAD_AREA,
74 ta->ta_howto = ta_howto_reg_thread_area;
79 err = td_lookup (ta->ph, SYM_TH_UNIQUE_REGISTER32, &howto);
81 ta->ta_howto = ta_howto_reg;
82 else if (err == PS_NOSYM)
84 err = td_lookup (ta->ph,
85 SYM_TH_UNIQUE_REGISTER32_THREAD_AREA,
88 ta->ta_howto = ta_howto_reg_thread_area;
100 /* For either of these methods we read in the same descriptor. */
101 err = ps_pdread (ta->ph, howto,
102 ta->ta_howto_data.reg, DB_SIZEOF_DESC);
105 if (DB_DESC_SIZE (ta->ta_howto_data.reg) == 0)
107 if (DB_DESC_SIZE (ta->ta_howto_data.reg) & 0xff000000U)
109 /* Byte-swap these words, though we leave the size word
110 in native order as the handy way to distinguish. */
111 DB_DESC_OFFSET (ta->ta_howto_data.reg)
112 = bswap_32 (DB_DESC_OFFSET (ta->ta_howto_data.reg));
113 DB_DESC_NELEM (ta->ta_howto_data.reg)
114 = bswap_32 (DB_DESC_NELEM (ta->ta_howto_data.reg));
119 switch (ta->ta_howto)
121 case ta_howto_unknown:
128 /* On most machines, we are just looking at a register. */
129 if (ps_lgetregs (ta->ph, lwpid, regs) != PS_OK)
131 terr = _td_fetch_value_local (ta, ta->ta_howto_data.reg, -1,
135 /* In this descriptor the nelem word is overloaded as the bias. */
136 addr += (int32_t) DB_DESC_NELEM (ta->ta_howto_data.reg);
137 th->th_unique = addr;
140 case ta_howto_const_thread_area:
141 /* Some hosts don't have this call and this case won't be used. */
142 # pragma weak ps_get_thread_area
143 if (&ps_get_thread_area == NULL)
146 /* A la x86-64, there is a constant magic index for get_thread_area. */
147 if (ps_get_thread_area (ta->ph, lwpid,
148 ta->ta_howto_data.const_thread_area,
149 &th->th_unique) != PS_OK)
150 return TD_ERR; /* XXX Other error value? */
153 case ta_howto_reg_thread_area:
154 if (&ps_get_thread_area == NULL)
157 /* A la i386, there is a register with an index for get_thread_area. */
158 if (ps_lgetregs (ta->ph, lwpid, regs) != PS_OK)
160 terr = _td_fetch_value_local (ta, ta->ta_howto_data.reg_thread_area, -1,
164 /* In this descriptor the nelem word is overloaded as scale factor. */
165 if (ps_get_thread_area
167 ((addr - (psaddr_t) 0)
168 >> DB_DESC_NELEM (ta->ta_howto_data.reg_thread_area)),
169 &th->th_unique) != PS_OK)
170 return TD_ERR; /* XXX Other error value? */
174 /* Found it. Now complete the `td_thrhandle_t' object. */
175 th->th_ta_p = (td_thragent_t *) ta;