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)
28 /* A macro to reorder the bytes of an address depending on the endiannes
30 #define EXTRACT_ADDRESS(x) ((void *) extract_address (&(x), sizeof (x)))
31 /* A macro to reorder the bytes of an int depending on the endiannes
33 #define EXTRACT_INT(x) ((int) extract_signed_integer (&(x), sizeof (x)))
35 /* Chain of cleanups for arguments of OP_UNRESOLVED_VALUE names. Created in
36 yyparse and freed in ada_resolve. */
37 extern struct cleanup
*unresolved_names
;
39 /* Corresponding mangled/demangled names and opcodes for Ada user-definable
44 const char *demangled
;
48 /* Table of Ada operators in mangled and demangled forms. */
49 /* Defined in ada-lang.c */
50 extern const struct ada_opname_map ada_opname_table
[];
52 /* The maximum number of tasks known to the Ada runtime */
53 extern const int MAX_NUMBER_OF_KNOWN_TASKS
;
55 /* Identifiers for Ada attributes that need special processing. Be sure
56 to update the table attribute_names in ada-lang.c whenever you change this.
61 /* Invalid attribute for error checking. */
77 /* Dummy last attribute. */
91 Master_Completion_Sleep
,
95 extern char *ada_task_states
[];
104 typedef struct entry_call
113 #if (defined (VXWORKS_TARGET) || !defined (i386)) \
114 && !(defined (VXWORKS_TARGET) && defined (M68K_TARGET))
118 #if (defined (VXWORKS_TARGET) && defined (M68K_TARGET))
123 int current_priority
;
125 entry_call_link call
;
126 #if (defined (sun) && defined (__SVR4)) && !defined (VXWORKS_TARGET)
135 #if (defined (VXWORKS_TARGET) && defined (M68K_TARGET))
136 __attribute__ ((packed
))
144 int known_tasks_index
;
145 struct task_entry
*next_task
;
151 extern struct type
*builtin_type_ada_int
;
152 extern struct type
*builtin_type_ada_short
;
153 extern struct type
*builtin_type_ada_long
;
154 extern struct type
*builtin_type_ada_long_long
;
155 extern struct type
*builtin_type_ada_char
;
156 extern struct type
*builtin_type_ada_float
;
157 extern struct type
*builtin_type_ada_double
;
158 extern struct type
*builtin_type_ada_long_double
;
159 extern struct type
*builtin_type_ada_natural
;
160 extern struct type
*builtin_type_ada_positive
;
161 extern struct type
*builtin_type_ada_system_address
;
163 /* Assuming V points to an array of S objects, make sure that it contains at
164 least M objects, updating V and S as necessary. */
166 #define GROW_VECT(v, s, m) \
167 if ((s) < (m)) grow_vect ((void**) &(v), &(s), (m), sizeof(*(v)));
169 extern void grow_vect (void **, size_t *, size_t, int);
171 extern int ada_parse (void); /* Defined in ada-exp.y */
173 extern void ada_error (char *); /* Defined in ada-exp.y */
175 /* Defined in ada-typeprint.c */
176 extern void ada_print_type (struct type
*, char *, struct ui_file
*, int,
179 extern int ada_val_print (struct type
*, char *, int, CORE_ADDR
,
180 struct ui_file
*, int, int, int,
181 enum val_prettyprint
);
183 extern int ada_value_print (struct value
*, struct ui_file
*, int,
184 enum val_prettyprint
);
186 /* Defined in ada-lang.c */
188 extern struct value
*value_from_contents_and_address (struct type
*, char *,
191 extern void ada_emit_char (int, struct ui_file
*, int, int);
193 extern void ada_printchar (int, struct ui_file
*);
195 extern void ada_printstr (struct ui_file
*, char *, unsigned int, int, int);
197 extern void ada_convert_actuals (struct value
*, int, struct value
**,
200 extern struct value
*ada_value_subscript (struct value
*, int,
203 extern struct type
*ada_array_element_type (struct type
*, int);
205 extern int ada_array_arity (struct type
*);
207 struct type
*ada_type_of_array (struct value
*, int);
209 extern struct value
*ada_coerce_to_simple_array (struct value
*);
211 extern struct value
*ada_coerce_to_simple_array_ptr (struct value
*);
213 extern int ada_is_simple_array (struct type
*);
215 extern int ada_is_array_descriptor (struct type
*);
217 extern int ada_is_bogus_array_descriptor (struct type
*);
219 extern struct type
*ada_index_type (struct type
*, int);
221 extern struct value
*ada_array_bound (struct value
*, int, int);
223 extern int ada_lookup_symbol_list (const char *, struct block
*,
224 namespace_enum
, struct symbol
***,
227 extern char *ada_fold_name (const char *);
229 extern struct symbol
*ada_lookup_symbol (const char *, struct block
*,
232 extern struct minimal_symbol
*ada_lookup_minimal_symbol (const char *);
234 extern void ada_resolve (struct expression
**, struct type
*);
236 extern int ada_resolve_function (struct symbol
**, struct block
**, int,
237 struct value
**, int, const char *,
240 extern void ada_fill_in_ada_prototype (struct symbol
*);
242 extern int user_select_syms (struct symbol
**, struct block
**, int, int);
244 extern int get_selections (int *, int, int, int, char *);
246 extern char *ada_start_decode_line_1 (char *);
248 extern struct symtabs_and_lines
ada_finish_decode_line_1 (char **,
252 extern int ada_scan_number (const char *, int, LONGEST
*, int *);
254 extern struct type
*ada_parent_type (struct type
*);
256 extern int ada_is_ignored_field (struct type
*, int);
258 extern int ada_is_packed_array_type (struct type
*);
260 extern struct value
*ada_value_primitive_packed_val (struct value
*, char *,
264 extern struct type
*ada_coerce_to_simple_array_type (struct type
*);
266 extern int ada_is_character_type (struct type
*);
268 extern int ada_is_string_type (struct type
*);
270 extern int ada_is_tagged_type (struct type
*);
272 extern struct type
*ada_tag_type (struct value
*);
274 extern struct value
*ada_value_tag (struct value
*);
276 extern int ada_is_parent_field (struct type
*, int);
278 extern int ada_is_wrapper_field (struct type
*, int);
280 extern int ada_is_variant_part (struct type
*, int);
282 extern struct type
*ada_variant_discrim_type (struct type
*, struct type
*);
284 extern int ada_is_others_clause (struct type
*, int);
286 extern int ada_in_variant (LONGEST
, struct type
*, int);
288 extern char *ada_variant_discrim_name (struct type
*);
290 extern struct type
*ada_lookup_struct_elt_type (struct type
*, char *, int,
293 extern struct value
*ada_value_struct_elt (struct value
*, char *, char *);
295 extern struct value
*ada_search_struct_field (char *, struct value
*, int,
298 extern int ada_is_aligner_type (struct type
*);
300 extern struct type
*ada_aligned_type (struct type
*);
302 extern char *ada_aligned_value_addr (struct type
*, char *);
304 extern const char *ada_attribute_name (int);
306 extern int ada_is_fixed_point_type (struct type
*);
308 extern DOUBLEST
ada_delta (struct type
*);
310 extern DOUBLEST
ada_fixed_to_float (struct type
*, LONGEST
);
312 extern LONGEST
ada_float_to_fixed (struct type
*, DOUBLEST
);
314 extern int ada_is_vax_floating_type (struct type
*);
316 extern int ada_vax_float_type_suffix (struct type
*);
318 extern struct value
*ada_vax_float_print_function (struct type
*);
320 extern struct type
*ada_system_address_type (void);
322 extern int ada_which_variant_applies (struct type
*, struct type
*, char *);
324 extern struct value
*ada_to_fixed_value (struct type
*, char *, CORE_ADDR
,
327 extern struct type
*ada_to_fixed_type (struct type
*, char *, CORE_ADDR
,
330 extern int ada_name_prefix_len (const char *);
332 extern char *ada_type_name (struct type
*);
334 extern struct type
*ada_find_parallel_type (struct type
*,
337 extern LONGEST
get_int_var_value (char *, char *, int *);
339 extern struct type
*ada_find_any_type (const char *name
);
341 extern int ada_prefer_type (struct type
*, struct type
*);
343 extern struct type
*ada_get_base_type (struct type
*);
345 extern struct type
*ada_completed_type (struct type
*);
347 extern char *ada_mangle (const char *);
349 extern const char *ada_enum_name (const char *);
351 extern int ada_is_modular_type (struct type
*);
353 extern LONGEST
ada_modulus (struct type
*);
355 extern struct value
*ada_value_ind (struct value
*);
357 extern void ada_print_scalar (struct type
*, LONGEST
, struct ui_file
*);
359 extern int ada_is_range_type_name (const char *);
361 extern const char *ada_renaming_type (struct type
*);
363 extern int ada_is_object_renaming (struct symbol
*);
365 extern const char *ada_simple_renamed_entity (struct symbol
*);
367 extern char *ada_breakpoint_rewrite (char *, int *);
369 /* Tasking-related: ada-tasks.c */
371 extern int valid_task_id (int);
373 extern int get_current_task (void);
375 extern void init_task_list (void);
377 extern void *get_self_id (void);
379 extern int get_current_task (void);
381 extern int get_entry_number (void *);
383 extern void ada_report_exception_break (struct breakpoint
*);
385 extern int ada_maybe_exception_partial_symbol (struct partial_symbol
*sym
);
387 extern int ada_is_exception_sym (struct symbol
*sym
);