20 #if !defined (ADA_LANG_H)
37 #if defined (__linux__)
38 #define ADA_KNOWN_RUNTIME_FILE_NAME_PATTERNS \
39 "^[agis]-.*\\.ad[bs]$", \
40 "/lib.*/libpthread\\.so[.0-9]*$", "/lib.*/libpthread\\.a$", \
41 "/lib.*/libc\\.so[.0-9]*$", "/lib.*/libc\\.a$",
44 #if !defined (ADA_KNOWN_RUNTIME_FILE_NAME_PATTERNS)
45 #define ADA_KNOWN_RUNTIME_FILE_NAME_PATTERNS \
47 "^[agis]-.*\\.ad[bs]$",
53 #define ADA_KNOWN_AUXILIARY_FUNCTION_NAME_PATTERNS \
54 "___clean[.$a-zA-Z0-9_]*$", \
55 "___finalizer[.$a-zA-Z0-9_]*$",
60 #define MAX_ENCLOSING_FRAME_LEVELS 7
65 #define MAX_RENAMING_CHAIN_LENGTH 10
160 #define GROW_VECT(v, s, m) \
161 if ((s) < (m)) (v) = grow_vect (v, &(s), m, sizeof *(v));
163 extern void *
grow_vect (
void *,
size_t *,
size_t,
int);
184 const struct value *,
197 unsigned int,
const char *,
int,
201 struct type *formal_type0);
339 int keep_dynamic_fields);
375 int *,
const char **);
387 char *excep_string,
char *cond_string,
int tempflag,
int disabled,
void ada_emit_char(int, struct type *, struct ui_file *, int, int)
int ada_is_tagged_type(struct type *, int)
void create_ada_exception_catchpoint(struct gdbarch *gdbarch, enum ada_exception_catchpoint_kind ex_kind, char *excep_string, char *cond_string, int tempflag, int disabled, int from_tty)
struct type * ada_template_to_fixed_record_type_1(struct type *type, const gdb_byte *valaddr, CORE_ADDR address, struct value *dval0, int keep_dynamic_fields)
int ada_is_constrained_packed_array_type(struct type *)
int ada_is_system_address_type(struct type *)
const char * ada_enum_name(const char *)
LONGEST ada_float_to_fixed(struct type *, DOUBLEST)
int ada_lookup_symbol_list(const char *, const struct block *, domain_enum, struct ada_symbol_info **)
LONGEST ada_discrete_type_high_bound(struct type *)
struct value * ada_value_primitive_packed_val(struct value *, const gdb_byte *, long, int, int, struct type *)
void ada_ensure_varsize_limit(const struct type *type)
char * ada_main_name(void)
struct type ** const(pascal_builtin_types[])
struct value * ada_value_struct_elt(struct value *, char *, int)
DOUBLEST ada_fixed_to_float(struct type *, LONGEST)
struct value * ada_convert_actual(struct value *actual, struct type *formal_type0)
int ada_is_array_descriptor_type(struct type *)
struct symbol * ada_find_renaming_symbol(struct symbol *name_sym, const struct block *block)
enum domain_enum_tag domain_enum
int ada_is_range_type_name(const char *)
struct value * ada_get_decoded_value(struct value *value)
char * ada_fold_name(const char *)
void ada_print_typedef(struct type *type, struct symbol *new_symbol, struct ui_file *stream)
void ada_print_type(struct type *, const char *, struct ui_file *, int, int, const struct type_print_options *)
int user_select_syms(struct ada_symbol_info *, int, int)
struct type * ada_to_fixed_type(struct type *, const gdb_byte *, CORE_ADDR, struct value *, int check_tag)
void ada_lookup_encoded_symbol(const char *name, const struct block *block, domain_enum domain, struct ada_symbol_info *symbol_info)
struct bound_minimal_symbol ada_lookup_simple_minsym(const char *)
struct symbol * ada_lookup_symbol(const char *, const struct block *, domain_enum, int *)
struct type * ada_tag_type(struct value *)
struct type * ada_variant_discrim_type(struct type *, struct type *)
struct type * ada_get_decoded_type(struct type *type)
VEC(ada_exc_info)*ada_exceptions_list(const char *regexp)
const char * ada_decode(const char *)
char * ada_variant_discrim_name(struct type *)
struct value * ada_coerce_to_simple_array_ptr(struct value *)
struct type * ada_type_of_array(struct value *, int)
const struct block * block
struct value * ada_value_ind(struct value *)
struct value * ada_value_subscript(struct value *, int, struct value **)
void * grow_vect(void *, size_t *, size_t, int)
struct ada_exc_info ada_exc_info
int ada_get_field_index(const struct type *type, const char *field_name, int maybe_missing)
int ada_prefer_type(struct type *, struct type *)
void print_ada_task_info(struct ui_out *uiout, char *taskno_str, struct inferior *inf)
struct type * ada_array_element_type(struct type *, int)
int ada_is_fixed_point_type(struct type *)
int ada_is_character_type(struct type *)
ULONGEST ada_modulus(struct type *)
char * ada_encode(const char *)
int ada_is_string_type(struct type *)
struct type * ada_check_typedef(struct type *)
struct type * ada_coerce_to_simple_array_type(struct type *)
int get_selections(int *, int, int, int, char *)
void( ada_task_list_iterator_ftype)(struct ada_task_info *task)
int ada_is_tag_type(struct type *)
struct value * ada_coerce_to_simple_array(struct value *)
int ada_which_variant_applies(struct type *, struct type *, const gdb_byte *)
const char * ada_attribute_name(enum exp_opcode)
DOUBLEST ada_delta(struct type *)
static struct symbol * new_symbol(struct die_info *, struct type *, struct dwarf2_cu *)
int ada_get_task_number(ptid_t)
void ada_fill_in_ada_prototype(struct symbol *)
int ada_array_arity(struct type *)
const char * ada_decode_symbol(const struct general_symbol_info *)
enum language ada_update_initial_language(enum language)
void ada_value_print(struct value *, struct ui_file *, const struct value_print_options *)
int ada_is_ignored_field(struct type *, int)
const struct ada_opname_map ada_opname_table[]
const gdb_byte * ada_aligned_value_addr(struct type *, const gdb_byte *)
int ada_name_prefix_len(const char *)
char * ada_breakpoint_rewrite(char *, int *)
struct value * ada_to_fixed_value(struct value *val)
struct type * ada_aligned_type(struct type *)
const char * ada_type_name(struct type *)
int ada_scan_number(const char *, int, LONGEST *, int *)
int ada_is_bogus_array_descriptor(struct type *)
int ada_is_others_clause(struct type *, int)
char * ada_name_for_lookup(const char *name)
enum ada_renaming_category ada_parse_renaming(struct symbol *, const char **, int *, const char **)
struct type * ada_find_parallel_type(struct type *, const char *suffix)
int ada_is_parent_field(struct type *, int)
struct value * ada_tag_value_at_base_address(struct value *obj)
ada_exception_catchpoint_kind
void iterate_over_live_ada_tasks(ada_task_list_iterator_ftype *iterator)
void ada_val_print(struct type *, const gdb_byte *, int, CORE_ADDR, struct ui_file *, int, const struct value *, const struct value_print_options *)
void ada_fixup_array_indexes_type(struct type *index_desc_type)
struct value * ada_value_tag(struct value *)
int ada_parse(struct parser_state *)
int ada_is_simple_array_type(struct type *)
void ada_printstr(struct ui_file *, struct type *, const gdb_byte *, unsigned int, const char *, int, const struct value_print_options *)
unsigned long long ULONGEST
static PyObject * field_name(struct type *type, int field)
int ada_is_aligner_type(struct type *)
int ada_in_variant(LONGEST, struct type *, int)
int ada_is_variant_part(struct type *, int)
int ada_build_task_list(void)
struct type * ada_parent_type(struct type *)
int ada_is_modular_type(struct type *)
void ada_print_scalar(struct type *, LONGEST, struct ui_file *)
void ada_printchar(int, struct type *, struct ui_file *)
LONGEST get_int_var_value(char *, int *)
LONGEST ada_discrete_type_low_bound(struct type *)
int ada_is_wrapper_field(struct type *, int)
struct type * ada_system_address_type(void)
struct type * ada_get_base_type(struct type *)
const char * ada_tag_name(struct value *)
void ada_find_printable_frame(struct frame_info *fi)
__extension__ enum domain_enum_tag domain