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