/* Defined in ada-lang.c */
extern const struct ada_opname_map ada_opname_table[];
-/* A tuple, (symbol, block), representing one instance of a
- * symbol-lookup operation. */
-struct ada_symbol_info {
- struct symbol* sym;
- struct block* block;
+/* A tuple representing one instance of a symbol-lookup operation. */
+
+struct ada_symbol_info
+{
+ /* The symbol that was found. */
+ struct symbol *sym;
+
+ /* The block where the symbol was found. */
+ struct block *block;
};
/* Denotes a type of renaming symbol (see ada_parse_renaming). */
extern void ada_print_typedef (struct type *type, struct symbol *new_symbol,
struct ui_file *stream);
-extern int ada_val_print (struct type *, const gdb_byte *, int, CORE_ADDR,
- struct ui_file *, int,
- const struct value *,
- const struct value_print_options *);
+extern void ada_val_print (struct type *, const gdb_byte *, int, CORE_ADDR,
+ struct ui_file *, int,
+ const struct value *,
+ const struct value_print_options *);
-extern int ada_value_print (struct value *, struct ui_file *,
- const struct value_print_options *);
+extern void ada_value_print (struct value *, struct ui_file *,
+ const struct value_print_options *);
/* Defined in ada-lang.c */
extern LONGEST ada_discrete_type_high_bound (struct type *);
+extern struct value *ada_get_decoded_value (struct value *value);
+
+extern struct type *ada_get_decoded_type (struct type *type);
+
extern char *ada_decode_symbol (const struct general_symbol_info*);
extern const char *ada_decode (const char*);
extern struct symbol *ada_lookup_symbol (const char *, const struct block *,
domain_enum, int *);
-extern struct symbol *
-ada_lookup_encoded_symbol (const char *, const struct block *,
- domain_enum namespace, struct block **);
+extern void ada_lookup_encoded_symbol
+ (const char *name, const struct block *block, domain_enum namespace,
+ struct ada_symbol_info *symbol_info);
extern struct minimal_symbol *ada_lookup_simple_minsym (const char *);
extern LONGEST get_int_var_value (char *, int *);
-extern struct symbol *ada_find_any_symbol (const char *name);
-
-extern struct type *ada_find_any_type (const char *name);
-
-extern struct symbol *ada_find_renaming_symbol (const char *name,
+extern struct symbol *ada_find_renaming_symbol (struct symbol *name_sym,
struct block *block);
extern int ada_prefer_type (struct type *, struct type *);