20#if !defined (ADA_LANG_H)
36#if defined (__linux__)
37#define ADA_KNOWN_RUNTIME_FILE_NAME_PATTERNS \
38 "^[agis]-.*\\.ad[bs]$", \
39 "/lib.*/libpthread\\.so[.0-9]*$", "/lib.*/libpthread\\.a$", \
40 "/lib.*/libc\\.so[.0-9]*$", "/lib.*/libc\\.a$",
43#if !defined (ADA_KNOWN_RUNTIME_FILE_NAME_PATTERNS)
44#define ADA_KNOWN_RUNTIME_FILE_NAME_PATTERNS \
46 "^[agis]-.*\\.ad[bs]$",
52#define ADA_KNOWN_AUXILIARY_FUNCTION_NAME_PATTERNS \
53 "___clean[.$a-zA-Z0-9_]*$", \
54 "___finalizer[.$a-zA-Z0-9_]*$",
59#define MAX_ENCLOSING_FRAME_LEVELS 7
64#define MAX_RENAMING_CHAIN_LENGTH 10
180 unsigned int,
const char *,
int,
184 struct type *formal_type0);
222 bool operators =
true);
228 const struct block *,
243 struct type *arg_type);
292 CORE_ADDR,
struct value *,
298 const gdb_byte *valaddr,
301 int keep_dynamic_fields);
318extern std::string
ada_encode (
const char *,
bool fold =
true);
334 int *,
const char **);
342 std::string &&excep_string,
const std::string &cond_string,
int tempflag,
343 int enabled,
int from_tty);
381 const char *taskno_str,
390 bool parse_completion,
391 int nargs,
value *argvec[]);
402 struct type *context_type,
403 bool parse_completion,
404 int nargs,
value *argvec[],
417 struct type *context_type,
418 bool parse_completion,
bool is_ada_exception_catchpoint(breakpoint *bp)
LONGEST ada_discrete_type_low_bound(struct type *)
struct type * ada_parent_type(struct type *)
const char * ada_variant_discrim_name(struct type *)
int ada_get_task_number(thread_info *thread)
void ada_value_print(struct value *, struct ui_file *, const struct value_print_options *)
struct type * ada_index_type(struct type *type, int n, const char *name)
int ada_which_variant_applies(struct type *, struct value *)
struct value * ada_value_subscript(struct value *, int, struct value **)
struct ada_task_info * ada_get_task_info_from_ptid(ptid_t ptid)
int ada_is_range_type_name(const char *)
struct value * ada_get_decoded_value(struct value *value)
block_symbol ada_resolve_funcall(struct symbol *sym, const struct block *block, struct type *context_type, bool parse_completion, int nargs, value *argvec[], innermost_block_tracker *tracker)
void ada_print_scalar(struct type *, LONGEST, struct ui_file *)
void ada_print_type(struct type *, const char *, struct ui_file *, int, int, const struct type_print_options *)
int ada_is_tag_type(struct type *)
std::vector< struct block_symbol > ada_lookup_symbol_list(const char *, const struct block *, domain_enum)
block_symbol ada_find_operator_symbol(enum exp_opcode op, bool parse_completion, int nargs, value *argvec[])
struct value * ada_value_primitive_packed_val(struct value *, const gdb_byte *, long, int, int, struct type *)
void ada_printchar(int, struct type *, struct ui_file *)
gdb::function_view< void(struct ada_task_info *task) ada_task_list_iterator_ftype)
std::string ada_decode(const char *name, bool wrap=true, bool operators=true)
LONGEST ada_discrete_type_high_bound(struct type *)
bool ada_is_access_to_unconstrained_array(struct type *type)
void ada_emit_char(int, struct type *, struct ui_file *, int, int)
void ada_print_typedef(struct type *type, struct symbol *new_symbol, struct ui_file *stream)
@ ADA_SUBPROGRAM_RENAMING
struct bound_minimal_symbol ada_lookup_simple_minsym(const char *, objfile *)
const char * ada_decode_symbol(const struct general_symbol_info *)
int ada_is_system_address_type(struct type *)
struct block_symbol ada_lookup_symbol(const char *, const struct block *, domain_enum)
struct type * ada_get_base_type(struct type *)
int ada_name_prefix_len(const char *)
struct type * ada_to_fixed_type(struct type *, const gdb_byte *, CORE_ADDR, struct value *, int check_tag)
struct type * ada_variant_discrim_type(struct type *, struct type *)
int ada_is_ignored_field(struct type *, int)
const char * ada_type_name(struct type *)
struct type * ada_find_parallel_type(struct type *, const char *suffix)
void ada_value_print_inner(struct value *, struct ui_file *, int, const struct value_print_options *)
void ada_find_printable_frame(frame_info_ptr fi)
void create_ada_exception_catchpoint(struct gdbarch *gdbarch, enum ada_exception_catchpoint_kind ex_kind, std::string &&excep_string, const std::string &cond_string, int tempflag, int enabled, int from_tty)
struct type * ada_coerce_to_simple_array_type(struct type *)
int ada_is_tagged_type(struct type *, int)
std::vector< ada_exc_info > ada_exceptions_list(const char *regexp)
enum ada_renaming_category ada_parse_renaming(struct symbol *, const char **, int *, const char **)
bool ada_is_string_type(struct type *)
struct value * ada_coerce_to_simple_array_ptr(struct value *)
struct value * ada_value_ind(struct value *)
void print_ada_task_info(struct ui_out *uiout, const char *taskno_str, struct inferior *inf)
struct type * ada_get_decoded_type(struct type *type)
const char * ada_main_name()
void ada_printstr(struct ui_file *, struct type *, const gdb_byte *, unsigned int, const char *, int, const struct value_print_options *)
const gdb_byte * ada_aligned_value_addr(struct type *, const gdb_byte *)
const char * ada_enum_name(const char *)
struct type * ada_check_typedef(struct type *)
struct value * ada_tag_value_at_base_address(struct value *obj)
struct value * ada_convert_actual(struct value *actual, struct type *formal_type0)
std::string ada_encode(const char *, bool fold=true)
int ada_is_constrained_packed_array_type(struct type *)
const char * ada_get_tcb_types_info(void)
block_symbol ada_resolve_variable(struct symbol *sym, const struct block *block, struct type *context_type, bool parse_completion, int deprocedure_p, innermost_block_tracker *tracker)
int ada_array_arity(struct type *)
int ada_is_variant_part(struct type *, int)
bool get_int_var_value(const char *, LONGEST &value)
void ada_lookup_encoded_symbol(const char *name, const struct block *block, domain_enum domain, struct block_symbol *symbol_info)
void iterate_over_live_ada_tasks(ada_task_list_iterator_ftype iterator)
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)
struct type * ada_aligned_type(struct type *)
int ada_prefer_type(struct type *, struct type *)
struct type * ada_array_element_type(struct type *, int)
int ada_is_wrapper_field(struct type *, int)
int ada_is_parent_field(struct type *, int)
int ada_is_aligner_type(struct type *)
ULONGEST ada_modulus(struct type *)
int ada_get_field_index(const struct type *type, const char *field_name, int maybe_missing)
const struct ada_opname_map ada_opname_table[]
int ada_scan_number(const char *, int, LONGEST *, int *)
bool ada_is_character_type(struct type *)
struct value * ada_value_primitive_field(struct value *arg1, int offset, int fieldno, struct type *arg_type)
void ada_fixup_array_indexes_type(struct type *index_desc_type)
int ada_is_modular_type(struct type *)
gdb::unique_xmalloc_ptr< char > ada_tag_name(struct value *)
int ada_is_simple_array_type(struct type *)
ada_exception_catchpoint_kind
@ ada_catch_exception_unhandled
struct value * ada_to_fixed_value(struct value *val)
int ada_parse(struct parser_state *)
int ada_is_array_descriptor_type(struct type *)
struct value * ada_coerce_to_simple_array(struct value *)
static gdbpy_ref field_name(struct type *type, int field)
static struct symbol * new_symbol(struct die_info *, struct type *, struct dwarf2_cu *, struct symbol *=NULL)
bool operator<(const ada_exc_info &) const
bool operator==(const ada_exc_info &) const