1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
|
/* Private header for thread debug library
Copyright (C) 2003 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2.1 of the License, or (at your option) any later version.
The GNU C Library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public
License along with the GNU C Library; if not, write to the Free
Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
02111-1307 USA. */
#ifndef _THREAD_DBP_H
#define _THREAD_DBP_H 1
#include <stdbool.h>
#include <stdint.h>
#include <string.h>
#include <stdlib.h>
#include <unistd.h>
#include <assert.h>
#include "proc_service.h"
#include "thread_db.h"
#include "../nptl/pthreadP.h" /* This is for *_BITMASK only. */
/* Indeces for the symbol names. */
enum
{
# define DB_STRUCT(type) SYM_SIZEOF_##type,
# define DB_STRUCT_FIELD(type, field) SYM_##type##_FIELD_##field,
# define DB_SYMBOL(name) SYM_##name,
# define DB_FUNCTION(name) SYM_##name,
# define DB_VARIABLE(name) SYM_##name, SYM_DESC_##name,
# include "structs.def"
# undef DB_STRUCT
# undef DB_STRUCT_FIELD
# undef DB_SYMBOL
# undef DB_FUNCTION
# undef DB_VARIABLE
SYM_TH_UNIQUE_CONST_THREAD_AREA,
SYM_TH_UNIQUE_REGISTER64,
SYM_TH_UNIQUE_REGISTER32,
SYM_TH_UNIQUE_REGISTER64_THREAD_AREA,
SYM_TH_UNIQUE_REGISTER32_THREAD_AREA,
SYM_NUM_MESSAGES
};
/* Comment out the following for less verbose output. */
#ifndef NDEBUG
# define LOG(c) if (__td_debug) __libc_write (2, c "\n", strlen (c "\n"))
extern int __td_debug attribute_hidden;
#else
# define LOG(c)
#endif
#define DB_DESC_SIZE(desc) ((desc)[0])
#define DB_DESC_NELEM(desc) ((desc)[1])
#define DB_DESC_OFFSET(desc) ((int32_t) (desc)[2])
#define DB_SIZEOF_DESC (3 * sizeof (uint32_t))
#define DB_DEFINE_DESC(name, size, nelem, offset) \
const uint32_t name[3] = { (size), (nelem), (offset) }
typedef uint32_t db_desc_t[3];
/* Handle for a process. This type is opaque. */
struct td_thragent
{
/* Chain on the list of all agent structures. */
list_t list;
/* Delivered by the debugger and we have to pass it back in the
proc callbacks. */
struct ps_prochandle *ph;
/* Cached values read from the inferior. */
# define DB_STRUCT(type) \
uint32_t ta_sizeof_##type;
# define DB_STRUCT_FIELD(type, field) \
db_desc_t ta_field_##type##_##field;
# define DB_SYMBOL(name) \
psaddr_t ta_addr_##name;
# define DB_FUNCTION(name) \
psaddr_t ta_addr_##name;
# define DB_VARIABLE(name) \
psaddr_t ta_addr_##name; \
db_desc_t ta_var_##name;
# include "structs.def"
# undef DB_STRUCT
# undef DB_STRUCT_FIELD
# undef DB_FUNCTION
# undef DB_SYMBOL
# undef DB_VARIABLE
/* The method of locating a thread's th_unique value. */
enum
{
ta_howto_unknown,
ta_howto_reg,
ta_howto_reg_thread_area,
ta_howto_const_thread_area
} ta_howto;
union
{
uint32_t const_thread_area; /* Constant argument to ps_get_thread_area. */
/* These are as if the descriptor of the field in prregset_t,
but DB_DESC_NELEM is overloaded as follows: */
db_desc_t reg; /* Signed bias applied to register value. */
db_desc_t reg_thread_area; /* Bits to scale down register value. */
} ta_howto_data;
};
/* List of all known descriptors. */
extern list_t __td_agent_list attribute_hidden;
/* Function used to test for correct thread agent pointer. */
static inline bool
ta_ok (const td_thragent_t *ta)
{
list_t *runp;
list_for_each (runp, &__td_agent_list)
if (list_entry (runp, td_thragent_t, list) == ta)
return true;
return false;
}
/* Internal wrapper around ps_pglobal_lookup. */
extern ps_err_e td_lookup (struct ps_prochandle *ps,
int idx, psaddr_t *sym_addr) attribute_hidden;
/* Store in psaddr_t VAR the address of inferior's symbol NAME. */
#define DB_GET_SYMBOL(var, ta, name) \
(((ta)->ta_addr_##name == 0 \
&& td_lookup ((ta)->ph, SYM_##name, &(ta)->ta_addr_##name) != PS_OK) \
? TD_ERR : ((var) = (ta)->ta_addr_##name, TD_OK))
/* Store in psaddr_t VAR the value of ((TYPE) PTR)->FIELD[IDX] in the inferior.
A target field smaller than psaddr_t is zero-extended. */
#define DB_GET_FIELD(var, ta, ptr, type, field, idx) \
_td_fetch_value ((ta), (ta)->ta_field_##type##_##field, \
SYM_##type##_FIELD_##field, \
(psaddr_t) 0 + (idx), (ptr), &(var))
#define DB_GET_FIELD_ADDRESS(var, ta, ptr, type, field, idx) \
((var) = (ptr), _td_locate_field ((ta), (ta)->ta_field_##type##_##field, \
SYM_##type##_FIELD_##field, \
(psaddr_t) 0 + (idx), &(var)))
extern td_err_e _td_locate_field (td_thragent_t *ta,
db_desc_t desc, int descriptor_name,
psaddr_t idx,
psaddr_t *address) attribute_hidden;
/* Like DB_GET_FIELD, but PTR is a local pointer to a structure that
has already been copied in from the inferior. */
#define DB_GET_FIELD_LOCAL(var, ta, ptr, type, field, idx) \
_td_fetch_value_local ((ta), (ta)->ta_field_##type##_##field, \
SYM_##type##_FIELD_##field, \
(psaddr_t) 0 + (idx), (ptr), &(var))
/* Store in psaddr_t VAR the value of variable NAME[IDX] in the inferior.
A target value smaller than psaddr_t is zero-extended. */
#define DB_GET_VALUE(var, ta, name, idx) \
(((ta)->ta_addr_##name == 0 \
&& td_lookup ((ta)->ph, SYM_##name, &(ta)->ta_addr_##name) != PS_OK) \
? TD_ERR \
: _td_fetch_value ((ta), (ta)->ta_var_##name, SYM_DESC_##name, \
(psaddr_t) 0 + (idx), (ta)->ta_addr_##name, &(var)))
/* Helper functions for those. */
extern td_err_e _td_fetch_value (td_thragent_t *ta,
db_desc_t field, int descriptor_name,
psaddr_t idx, psaddr_t address,
psaddr_t *result) attribute_hidden;
extern td_err_e _td_fetch_value_local (td_thragent_t *ta,
db_desc_t field,
int descriptor_name,
psaddr_t idx, void *address,
psaddr_t *result) attribute_hidden;
/* Store psaddr_t VALUE in ((TYPE) PTR)->FIELD[IDX] in the inferior.
A target field smaller than psaddr_t is zero-extended. */
#define DB_PUT_FIELD(ta, ptr, type, field, idx, value) \
_td_store_value ((ta), (ta)->ta_field_##type##_##field, \
SYM_##type##_FIELD_##field, \
(psaddr_t) 0 + (idx), (ptr), (value))
#define DB_PUT_FIELD_LOCAL(ta, ptr, type, field, idx, value) \
_td_store_value_local ((ta), (ta)->ta_field_##type##_##field, \
SYM_##type##_FIELD_##field, \
(psaddr_t) 0 + (idx), (ptr), (value))
/* Store psaddr_t VALUE in variable NAME[IDX] in the inferior.
A target field smaller than psaddr_t is zero-extended. */
#define DB_PUT_VALUE(ta, name, idx, value) \
(((ta)->ta_addr_##name == 0 \
&& td_lookup ((ta)->ph, SYM_##name, &(ta)->ta_addr_##name) != PS_OK) \
? TD_ERR \
: _td_store_value ((ta), (ta)->ta_var_##name, SYM_DESC_##name, \
(psaddr_t) 0 + (idx), (ta)->ta_addr_##name, (value)))
/* Helper functions for those. */
extern td_err_e _td_store_value (td_thragent_t *ta,
db_desc_t field, int descriptor_name,
psaddr_t idx, psaddr_t address,
psaddr_t value) attribute_hidden;
extern td_err_e _td_store_value_local (td_thragent_t *ta,
db_desc_t field, int descriptor_name,
psaddr_t idx, void *address,
psaddr_t value) attribute_hidden;
#define DB_GET_STRUCT(var, ta, ptr, type) \
({ td_err_e _err = TD_OK; \
if ((ta)->ta_sizeof_##type == 0) \
_err = _td_check_sizeof ((ta), &(ta)->ta_sizeof_##type, \
SYM_SIZEOF_##type); \
if (_err == TD_OK) \
_err = ps_pdread ((ta)->ph, (ptr), \
(var) = __alloca ((ta)->ta_sizeof_##type), \
(ta)->ta_sizeof_##type) \
== PS_OK ? TD_OK : TD_ERR; \
else \
(var) = NULL; \
_err; \
})
#define DB_PUT_STRUCT(ta, ptr, type, copy) \
({ assert ((ta)->ta_sizeof_##type != 0); \
ps_pdwrite ((ta)->ph, (ptr), (copy), (ta)->ta_sizeof_##type) \
== PS_OK ? TD_OK : TD_ERR; \
})
extern td_err_e _td_check_sizeof (td_thragent_t *ta, uint32_t *sizep,
int sizep_name) attribute_hidden;
#endif /* thread_dbP.h */
|
