OP_ADA_LAST
};
-/* A triple, (symbol, block, symtab), representing one instance of a
+/* A tuple, (symbol, block), representing one instance of a
* symbol-lookup operation. */
struct ada_symbol_info {
struct symbol* sym;
struct block* block;
- struct symtab* symtab;
};
/* Denotes a type of renaming symbol (see ada_parse_renaming). */
extern void ada_printstr (struct ui_file *, const gdb_byte *,
unsigned int, int, int);
-extern void ada_convert_actuals (struct value *, int, struct value **,
- CORE_ADDR *);
+struct value *ada_convert_actual (struct value *actual,
+ struct type *formal_type0,
+ CORE_ADDR *sp);
extern struct value *ada_value_subscript (struct value *, int,
struct value **);
extern void clear_ada_sym_cache (void);
-extern char **ada_make_symbol_completion_list (const char *text0,
- const char *word);
-
extern int ada_lookup_symbol_list (const char *, const struct block *,
domain_enum, struct ada_symbol_info**);
extern char *ada_fold_name (const char *);
extern struct symbol *ada_lookup_symbol (const char *, const struct block *,
- domain_enum, int *,
- struct symtab **);
+ domain_enum, int *);
extern struct symbol *
ada_lookup_encoded_symbol (const char *, const struct block *,
- domain_enum namespace,
- struct block **, struct symtab **);
+ domain_enum namespace, struct block **);
extern struct minimal_symbol *ada_lookup_simple_minsym (const char *);
const gdb_byte *);
extern struct type *ada_to_fixed_type (struct type *, const gdb_byte *,
- CORE_ADDR, struct value *);
+ CORE_ADDR, struct value *,
+ int check_tag);
extern struct type *ada_template_to_fixed_record_type_1 (struct type *type,
const gdb_byte *valaddr,