projects / deliverable / binutils-gdb.git / blame_incremental
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (non-incremental) | history | HEAD
Remove AT_SYMBOL
[deliverable/binutils-gdb.git] / gdb / ada-lang.h
... / ...
CommitLineData
1/* Ada language support definitions for GDB, the GNU debugger.
2
3 Copyright (C) 1992, 1997-2005, 2007-2012 Free Software Foundation,
4 Inc.
5
6 This file is part of GDB.
7
8 This program is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 3 of the License, or
11 (at your option) any later version.
12
13 This program is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
17
18 You should have received a copy of the GNU General Public License
19 along with this program. If not, see <http://www.gnu.org/licenses/>. */
20
21#if !defined (ADA_LANG_H)
22#define ADA_LANG_H 1
23
24struct frame_info;
25struct inferior;
26
27#include "value.h"
28#include "gdbtypes.h"
29#include "breakpoint.h"
30
31/* Names of specific files known to be part of the runtime
32 system and that might consider (confusing) debugging information.
33 Each name (a basic regular expression string) is followed by a
34 comma. FIXME: Should be part of a configuration file. */
35#if defined(__alpha__) && defined(__osf__)
36#define ADA_KNOWN_RUNTIME_FILE_NAME_PATTERNS \
37 "^[agis]-.*\\.ad[bs]$", \
38 "/usr/shlib/libpthread\\.so",
39#elif defined (__linux__)
40#define ADA_KNOWN_RUNTIME_FILE_NAME_PATTERNS \
41 "^[agis]-.*\\.ad[bs]$", \
42 "/lib.*/libpthread\\.so[.0-9]*$", "/lib.*/libpthread\\.a$", \
43 "/lib.*/libc\\.so[.0-9]*$", "/lib.*/libc\\.a$",
44#endif
45
46#if !defined (ADA_KNOWN_RUNTIME_FILE_NAME_PATTERNS)
47#define ADA_KNOWN_RUNTIME_FILE_NAME_PATTERNS \
48 "^[agis]-.*\\.ad[bs]$",
49#endif
50
51/* Names of compiler-generated auxiliary functions probably of no
52 interest to users. Each name (a basic regular expression string)
53 is followed by a comma. */
54#define ADA_KNOWN_AUXILIARY_FUNCTION_NAME_PATTERNS \
55 "___clean[.$a-zA-Z0-9_]*$", \
56 "___finalizer[.$a-zA-Z0-9_]*$",
57
58/* The maximum number of frame levels searched for non-local,
59 * non-global symbols. This limit exists as a precaution to prevent
60 * infinite search loops when the stack is screwed up. */
61#define MAX_ENCLOSING_FRAME_LEVELS 7
62
63/* Maximum number of steps followed in looking for the ultimate
64 referent of a renaming. This prevents certain infinite loops that
65 can otherwise result. */
66#define MAX_RENAMING_CHAIN_LENGTH 10
67
68struct block;
69
70/* Corresponding encoded/decoded names and opcodes for Ada user-definable
71 operators. */
72struct ada_opname_map
73{
74 const char *encoded;
75 const char *decoded;
76 enum exp_opcode op;
77};
78
79/* Table of Ada operators in encoded and decoded forms. */
80/* Defined in ada-lang.c */
81extern const struct ada_opname_map ada_opname_table[];
82
83/* A tuple representing one instance of a symbol-lookup operation. */
84
85struct ada_symbol_info
86{
87 /* The symbol that was found. */
88 struct symbol *sym;
89
90 /* The block where the symbol was found. */
91 struct block *block;
92};
93
94/* Denotes a type of renaming symbol (see ada_parse_renaming). */
95enum ada_renaming_category
96 {
97 /* Indicates a symbol that does not encode a renaming. */
98 ADA_NOT_RENAMING,
99
100 /* For symbols declared
101 Foo : TYPE renamed OBJECT; */
102 ADA_OBJECT_RENAMING,
103
104 /* For symbols declared
105 Foo : exception renames EXCEPTION; */
106 ADA_EXCEPTION_RENAMING,
107 /* For packages declared
108 package Foo renames PACKAGE; */
109 ADA_PACKAGE_RENAMING,
110 /* For subprograms declared
111 SUBPROGRAM_SPEC renames SUBPROGRAM;
112 (Currently not used). */
113 ADA_SUBPROGRAM_RENAMING
114 };
115
116/* Ada task structures. */
117
118struct ada_task_info
119{
120 /* The PTID of the thread that this task runs on. This ptid is computed
121 in a target-dependent way from the associated Task Control Block. */
122 ptid_t ptid;
123
124 /* The ID of the task. */
125 CORE_ADDR task_id;
126
127 /* The name of the task. */
128 char name[257];
129
130 /* The current state of the task. */
131 int state;
132
133 /* The priority associated to the task. */
134 int priority;
135
136 /* If non-zero, the task ID of the parent task. */
137 CORE_ADDR parent;
138
139 /* If the task is waiting on a task entry, this field contains
140 the ID of the other task. Zero otherwise. */
141 CORE_ADDR called_task;
142
143 /* If the task is accepting a rendezvous with another task, this field
144 contains the ID of the calling task. Zero otherwise. */
145 CORE_ADDR caller_task;
146};
147
148/* Assuming V points to an array of S objects, make sure that it contains at
149 least M objects, updating V and S as necessary. */
150
151#define GROW_VECT(v, s, m) \
152 if ((s) < (m)) (v) = grow_vect (v, &(s), m, sizeof *(v));
153
154extern void *grow_vect (void *, size_t *, size_t, int);
155
156extern int ada_get_field_index (const struct type *type,
157 const char *field_name,
158 int maybe_missing);
159
160extern int ada_parse (void); /* Defined in ada-exp.y */
161
162extern void ada_error (char *); /* Defined in ada-exp.y */
163
164 /* Defined in ada-typeprint.c */
165extern void ada_print_type (struct type *, const char *, struct ui_file *, int,
166 int);
167
168extern void ada_print_typedef (struct type *type, struct symbol *new_symbol,
169 struct ui_file *stream);
170
171extern void ada_val_print (struct type *, const gdb_byte *, int, CORE_ADDR,
172 struct ui_file *, int,
173 const struct value *,
174 const struct value_print_options *);
175
176extern void ada_value_print (struct value *, struct ui_file *,
177 const struct value_print_options *);
178
179 /* Defined in ada-lang.c */
180
181extern void ada_emit_char (int, struct type *, struct ui_file *, int, int);
182
183extern void ada_printchar (int, struct type *, struct ui_file *);
184
185extern void ada_printstr (struct ui_file *, struct type *, const gdb_byte *,
186 unsigned int, const char *, int,
187 const struct value_print_options *);
188
189struct value *ada_convert_actual (struct value *actual,
190 struct type *formal_type0);
191
192extern struct value *ada_value_subscript (struct value *, int,
193 struct value **);
194
195extern void ada_fixup_array_indexes_type (struct type *index_desc_type);
196
197extern struct type *ada_array_element_type (struct type *, int);
198
199extern int ada_array_arity (struct type *);
200
201struct type *ada_type_of_array (struct value *, int);
202
203extern struct value *ada_coerce_to_simple_array_ptr (struct value *);
204
205struct value *ada_coerce_to_simple_array (struct value *);
206
207extern int ada_is_simple_array_type (struct type *);
208
209extern int ada_is_array_descriptor_type (struct type *);
210
211extern int ada_is_bogus_array_descriptor (struct type *);
212
213extern LONGEST ada_discrete_type_low_bound (struct type *);
214
215extern LONGEST ada_discrete_type_high_bound (struct type *);
216
217extern struct value *ada_get_decoded_value (struct value *value);
218
219extern struct type *ada_get_decoded_type (struct type *type);
220
221extern char *ada_decode_symbol (const struct general_symbol_info*);
222
223extern const char *ada_decode (const char*);
224
225extern enum language ada_update_initial_language (enum language);
226
227extern void clear_ada_sym_cache (void);
228
229extern int ada_lookup_symbol_list (const char *, const struct block *,
230 domain_enum, struct ada_symbol_info**,
231 int);
232
233extern char *ada_fold_name (const char *);
234
235extern struct symbol *ada_lookup_symbol (const char *, const struct block *,
236 domain_enum, int *);
237
238extern void ada_lookup_encoded_symbol
239 (const char *name, const struct block *block, domain_enum namespace,
240 struct ada_symbol_info *symbol_info);
241
242extern struct minimal_symbol *ada_lookup_simple_minsym (const char *);
243
244extern void ada_fill_in_ada_prototype (struct symbol *);
245
246extern int user_select_syms (struct ada_symbol_info *, int, int);
247
248extern int get_selections (int *, int, int, int, char *);
249
250extern int ada_scan_number (const char *, int, LONGEST *, int *);
251
252extern struct type *ada_parent_type (struct type *);
253
254extern int ada_is_ignored_field (struct type *, int);
255
256extern int ada_is_constrained_packed_array_type (struct type *);
257
258extern struct value *ada_value_primitive_packed_val (struct value *,
259 const gdb_byte *,
260 long, int, int,
261 struct type *);
262
263extern struct type *ada_coerce_to_simple_array_type (struct type *);
264
265extern int ada_is_character_type (struct type *);
266
267extern int ada_is_string_type (struct type *);
268
269extern int ada_is_tagged_type (struct type *, int);
270
271extern int ada_is_tag_type (struct type *);
272
273extern struct type *ada_tag_type (struct value *);
274
275extern struct value *ada_value_tag (struct value *);
276
277extern const char *ada_tag_name (struct value *);
278
279extern int ada_is_parent_field (struct type *, int);
280
281extern int ada_is_wrapper_field (struct type *, int);
282
283extern int ada_is_variant_part (struct type *, int);
284
285extern struct type *ada_variant_discrim_type (struct type *, struct type *);
286
287extern int ada_is_others_clause (struct type *, int);
288
289extern int ada_in_variant (LONGEST, struct type *, int);
290
291extern char *ada_variant_discrim_name (struct type *);
292
293extern struct value *ada_value_struct_elt (struct value *, char *, int);
294
295extern int ada_is_aligner_type (struct type *);
296
297extern struct type *ada_aligned_type (struct type *);
298
299extern const gdb_byte *ada_aligned_value_addr (struct type *,
300 const gdb_byte *);
301
302extern const char *ada_attribute_name (enum exp_opcode);
303
304extern int ada_is_fixed_point_type (struct type *);
305
306extern int ada_is_system_address_type (struct type *);
307
308extern DOUBLEST ada_delta (struct type *);
309
310extern DOUBLEST ada_fixed_to_float (struct type *, LONGEST);
311
312extern LONGEST ada_float_to_fixed (struct type *, DOUBLEST);
313
314extern struct type *ada_system_address_type (void);
315
316extern int ada_which_variant_applies (struct type *, struct type *,
317 const gdb_byte *);
318
319extern struct type *ada_to_fixed_type (struct type *, const gdb_byte *,
320 CORE_ADDR, struct value *,
321 int check_tag);
322
323extern struct value *ada_to_fixed_value (struct value *val);
324
325extern struct type *ada_template_to_fixed_record_type_1 (struct type *type,
326 const gdb_byte *valaddr,
327 CORE_ADDR address,
328 struct value *dval0,
329 int keep_dynamic_fields);
330
331extern int ada_name_prefix_len (const char *);
332
333extern const char *ada_type_name (struct type *);
334
335extern struct type *ada_find_parallel_type (struct type *,
336 const char *suffix);
337
338extern LONGEST get_int_var_value (char *, int *);
339
340extern struct symbol *ada_find_renaming_symbol (struct symbol *name_sym,
341 struct block *block);
342
343extern int ada_prefer_type (struct type *, struct type *);
344
345extern struct type *ada_get_base_type (struct type *);
346
347extern struct type *ada_check_typedef (struct type *);
348
349extern char *ada_encode (const char *);
350
351extern const char *ada_enum_name (const char *);
352
353extern int ada_is_modular_type (struct type *);
354
355extern ULONGEST ada_modulus (struct type *);
356
357extern struct value *ada_value_ind (struct value *);
358
359extern void ada_print_scalar (struct type *, LONGEST, struct ui_file *);
360
361extern int ada_is_range_type_name (const char *);
362
363extern enum ada_renaming_category ada_parse_renaming (struct symbol *,
364 const char **,
365 int *, const char **);
366
367extern void ada_find_printable_frame (struct frame_info *fi);
368
369extern char *ada_breakpoint_rewrite (char *, int *);
370
371extern char *ada_main_name (void);
372
373extern char *ada_name_for_lookup (const char *name);
374
375/* Tasking-related: ada-tasks.c */
376
377extern int valid_task_id (int);
378
379extern int ada_get_task_number (ptid_t);
380
381typedef void (ada_task_list_iterator_ftype) (struct ada_task_info *task);
382extern void iterate_over_live_ada_tasks
383 (ada_task_list_iterator_ftype *iterator);
384
385extern int ada_build_task_list (void);
386
387extern void print_ada_task_info (struct ui_out *uiout,
388 char *taskno_str,
389 struct inferior *inf);
390
391#endif
GDB Binutils - Deliverables
This page took 0.023553 seconds and 4 git commands to generate.