1 /* Ada language support definitions for GDB, the GNU debugger.
2 Copyright 1992, 1997 Free Software Foundation, Inc.
4 This file is part of GDB.
6 This program is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 2 of the License, or
9 (at your option) any later version.
11 This program 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
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with this program; if not, write to the Free Software
18 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
20 #if !defined (ADA_LANG_H)
23 struct partial_symbol
;
30 /* A macro to reorder the bytes of an address depending on the
31 endiannes of the target. */
32 #define EXTRACT_ADDRESS(x) ((void *) extract_unsigned_integer (&(x), sizeof (x)))
33 /* A macro to reorder the bytes of an int depending on the endiannes
35 #define EXTRACT_INT(x) ((int) extract_signed_integer (&(x), sizeof (x)))
37 /* Chain of cleanups for arguments of OP_UNRESOLVED_VALUE names. Created in
38 yyparse and freed in ada_resolve. */
39 extern struct cleanup
*unresolved_names
;
41 /* Corresponding mangled/demangled names and opcodes for Ada user-definable
46 const char *demangled
;
50 /* Table of Ada operators in mangled and demangled forms. */
51 /* Defined in ada-lang.c */
52 extern const struct ada_opname_map ada_opname_table
[];
54 /* The maximum number of tasks known to the Ada runtime */
55 extern const int MAX_NUMBER_OF_KNOWN_TASKS
;
57 /* Identifiers for Ada attributes that need special processing. Be sure
58 to update the table attribute_names in ada-lang.c whenever you change this.
63 /* Invalid attribute for error checking. */
79 /* Dummy last attribute. */
93 Master_Completion_Sleep
,
97 extern char *ada_task_states
[];
106 typedef struct entry_call
115 #if (defined (VXWORKS_TARGET) || !defined (i386)) \
116 && !(defined (VXWORKS_TARGET) && defined (M68K_TARGET))
120 #if (defined (VXWORKS_TARGET) && defined (M68K_TARGET))
125 int current_priority
;
127 entry_call_link call
;
128 #if (defined (sun) && defined (__SVR4)) && !defined (VXWORKS_TARGET)
137 #if (defined (VXWORKS_TARGET) && defined (M68K_TARGET))
138 __attribute__ ((packed
))
146 int known_tasks_index
;
147 struct task_entry
*next_task
;
153 extern struct type
*builtin_type_ada_int
;
154 extern struct type
*builtin_type_ada_short
;
155 extern struct type
*builtin_type_ada_long
;
156 extern struct type
*builtin_type_ada_long_long
;
157 extern struct type
*builtin_type_ada_char
;
158 extern struct type
*builtin_type_ada_float
;
159 extern struct type
*builtin_type_ada_double
;
160 extern struct type
*builtin_type_ada_long_double
;
161 extern struct type
*builtin_type_ada_natural
;
162 extern struct type
*builtin_type_ada_positive
;
163 extern struct type
*builtin_type_ada_system_address
;
165 /* Assuming V points to an array of S objects, make sure that it contains at
166 least M objects, updating V and S as necessary. */
168 #define GROW_VECT(v, s, m) \
169 if ((s) < (m)) grow_vect ((void**) &(v), &(s), (m), sizeof(*(v)));
171 extern void grow_vect (void **, size_t *, size_t, int);
173 extern int ada_parse (void); /* Defined in ada-exp.y */
175 extern void ada_error (char *); /* Defined in ada-exp.y */
177 /* Defined in ada-typeprint.c */
178 extern void ada_print_type (struct type
*, char *, struct ui_file
*, int,
181 extern int ada_val_print (struct type
*, char *, int, CORE_ADDR
,
182 struct ui_file
*, int, int, int,
183 enum val_prettyprint
);
185 extern int ada_value_print (struct value
*, struct ui_file
*, int,
186 enum val_prettyprint
);
188 /* Defined in ada-lang.c */
190 extern struct value
*value_from_contents_and_address (struct type
*, char *,
193 extern void ada_emit_char (int, struct ui_file
*, int, int);
195 extern void ada_printchar (int, struct ui_file
*);
197 extern void ada_printstr (struct ui_file
*, char *, unsigned int, int, int);
199 extern void ada_convert_actuals (struct value
*, int, struct value
**,
202 extern struct value
*ada_value_subscript (struct value
*, int,
205 extern struct type
*ada_array_element_type (struct type
*, int);
207 extern int ada_array_arity (struct type
*);
209 struct type
*ada_type_of_array (struct value
*, int);
211 extern struct value
*ada_coerce_to_simple_array (struct value
*);
213 extern struct value
*ada_coerce_to_simple_array_ptr (struct value
*);
215 extern int ada_is_simple_array (struct type
*);
217 extern int ada_is_array_descriptor (struct type
*);
219 extern int ada_is_bogus_array_descriptor (struct type
*);
221 extern struct type
*ada_index_type (struct type
*, int);
223 extern struct value
*ada_array_bound (struct value
*, int, int);
225 extern int ada_lookup_symbol_list (const char *, struct block
*,
226 domain_enum
, struct symbol
***,
229 extern char *ada_fold_name (const char *);
231 extern struct symbol
*ada_lookup_symbol (const char *, struct block
*,
234 extern struct minimal_symbol
*ada_lookup_minimal_symbol (const char *);
236 extern void ada_resolve (struct expression
**, struct type
*);
238 extern int ada_resolve_function (struct symbol
**, struct block
**, int,
239 struct value
**, int, const char *,
242 extern void ada_fill_in_ada_prototype (struct symbol
*);
244 extern int user_select_syms (struct symbol
**, struct block
**, int, int);
246 extern int get_selections (int *, int, int, int, char *);
248 extern char *ada_start_decode_line_1 (char *);
250 extern struct symtabs_and_lines
ada_finish_decode_line_1 (char **,
254 extern int ada_scan_number (const char *, int, LONGEST
*, int *);
256 extern struct type
*ada_parent_type (struct type
*);
258 extern int ada_is_ignored_field (struct type
*, int);
260 extern int ada_is_packed_array_type (struct type
*);
262 extern struct value
*ada_value_primitive_packed_val (struct value
*, char *,
266 extern struct type
*ada_coerce_to_simple_array_type (struct type
*);
268 extern int ada_is_character_type (struct type
*);
270 extern int ada_is_string_type (struct type
*);
272 extern int ada_is_tagged_type (struct type
*);
274 extern struct type
*ada_tag_type (struct value
*);
276 extern struct value
*ada_value_tag (struct value
*);
278 extern int ada_is_parent_field (struct type
*, int);
280 extern int ada_is_wrapper_field (struct type
*, int);
282 extern int ada_is_variant_part (struct type
*, int);
284 extern struct type
*ada_variant_discrim_type (struct type
*, struct type
*);
286 extern int ada_is_others_clause (struct type
*, int);
288 extern int ada_in_variant (LONGEST
, struct type
*, int);
290 extern char *ada_variant_discrim_name (struct type
*);
292 extern struct type
*ada_lookup_struct_elt_type (struct type
*, char *, int,
295 extern struct value
*ada_value_struct_elt (struct value
*, char *, char *);
297 extern struct value
*ada_search_struct_field (char *, struct value
*, int,
300 extern int ada_is_aligner_type (struct type
*);
302 extern struct type
*ada_aligned_type (struct type
*);
304 extern char *ada_aligned_value_addr (struct type
*, char *);
306 extern const char *ada_attribute_name (int);
308 extern int ada_is_fixed_point_type (struct type
*);
310 extern DOUBLEST
ada_delta (struct type
*);
312 extern DOUBLEST
ada_fixed_to_float (struct type
*, LONGEST
);
314 extern LONGEST
ada_float_to_fixed (struct type
*, DOUBLEST
);
316 extern int ada_is_vax_floating_type (struct type
*);
318 extern int ada_vax_float_type_suffix (struct type
*);
320 extern struct value
*ada_vax_float_print_function (struct type
*);
322 extern struct type
*ada_system_address_type (void);
324 extern int ada_which_variant_applies (struct type
*, struct type
*, char *);
326 extern struct value
*ada_to_fixed_value (struct type
*, char *, CORE_ADDR
,
329 extern struct type
*ada_to_fixed_type (struct type
*, char *, CORE_ADDR
,
332 extern int ada_name_prefix_len (const char *);
334 extern char *ada_type_name (struct type
*);
336 extern struct type
*ada_find_parallel_type (struct type
*,
339 extern LONGEST
get_int_var_value (char *, char *, int *);
341 extern struct type
*ada_find_any_type (const char *name
);
343 extern int ada_prefer_type (struct type
*, struct type
*);
345 extern struct type
*ada_get_base_type (struct type
*);
347 extern struct type
*ada_completed_type (struct type
*);
349 extern char *ada_mangle (const char *);
351 extern const char *ada_enum_name (const char *);
353 extern int ada_is_modular_type (struct type
*);
355 extern LONGEST
ada_modulus (struct type
*);
357 extern struct value
*ada_value_ind (struct value
*);
359 extern void ada_print_scalar (struct type
*, LONGEST
, struct ui_file
*);
361 extern int ada_is_range_type_name (const char *);
363 extern const char *ada_renaming_type (struct type
*);
365 extern int ada_is_object_renaming (struct symbol
*);
367 extern const char *ada_simple_renamed_entity (struct symbol
*);
369 extern char *ada_breakpoint_rewrite (char *, int *);
371 /* Tasking-related: ada-tasks.c */
373 extern int valid_task_id (int);
375 extern int get_current_task (void);
377 extern void init_task_list (void);
379 extern void *get_self_id (void);
381 extern int get_current_task (void);
383 extern int get_entry_number (void *);
385 extern void ada_report_exception_break (struct breakpoint
*);
387 extern int ada_maybe_exception_partial_symbol (struct partial_symbol
*sym
);
389 extern int ada_is_exception_sym (struct symbol
*sym
);