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