extern void ada_print_typedef (struct type *type, struct symbol *new_symbol,
struct ui_file *stream);
-extern void ada_val_print (struct type *, int, CORE_ADDR,
- struct ui_file *, int,
- struct value *,
- const struct value_print_options *);
-
/* Implement la_value_print_inner for Ada. */
extern void ada_value_print_inner (struct value *, struct ui_file *, int,
extern int ada_scan_number (const char *, int, LONGEST *, int *);
+extern struct value *ada_value_primitive_field (struct value *arg1,
+ int offset,
+ int fieldno,
+ struct type *arg_type);
+
extern struct type *ada_parent_type (struct type *);
extern int ada_is_ignored_field (struct type *, int);
extern const gdb_byte *ada_aligned_value_addr (struct type *,
const gdb_byte *);
-extern int ada_is_fixed_point_type (struct type *);
+extern int ada_is_gnat_encoded_fixed_point_type (struct type *);
extern int ada_is_system_address_type (struct type *);
-extern struct value *ada_delta (struct type *);
+extern struct value *gnat_encoded_fixed_point_delta (struct type *);
extern struct value *ada_scaling_factor (struct type *);
-extern int ada_which_variant_applies (struct type *, struct type *,
- const gdb_byte *);
+extern int ada_which_variant_applies (struct type *, struct value *);
extern struct type *ada_to_fixed_type (struct type *, const gdb_byte *,
CORE_ADDR, struct value *,