From 1ed6ede0102f09c717fb707bd27e7d224c77f9ef Mon Sep 17 00:00:00 2001 From: Joel Brobecker Date: Thu, 3 Jan 2008 12:30:38 +0000 Subject: * ada-lang.c (ada_value_struct_elt, to_fixed_array_type) (to_fixed_array_type, ada_to_fixed_value_create, unwrap_value): Update calls to ada_to_fixed_type. (ada_template_to_fixed_record_type_1): Ditto, but without looking for the tag. (ada_to_fixed_type): Add check_tag parameter; do not look for tag if null. When looking for a tag, use a fixed record type. * ada-lang.h (ada_to_fixed_type): Add check_tag parameter. * ada-valprint.c (printable_val_type, ada_value_print): Update calls to ada_to_fixed_type. --- gdb/ada-valprint.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gdb/ada-valprint.c') diff --git a/gdb/ada-valprint.c b/gdb/ada-valprint.c index bfcb7fd..8c7cc10 100644 --- a/gdb/ada-valprint.c +++ b/gdb/ada-valprint.c @@ -246,7 +246,7 @@ val_print_packed_array_elements (struct type *type, const gdb_byte *valaddr, static struct type * printable_val_type (struct type *type, const gdb_byte *valaddr) { - return ada_to_fixed_type (ada_aligned_type (type), valaddr, 0, NULL); + return ada_to_fixed_type (ada_aligned_type (type), valaddr, 0, NULL, 1); } /* Print the character C on STREAM as part of the contents of a literal @@ -917,7 +917,7 @@ ada_value_print (struct value *val0, struct ui_file *stream, int format, const gdb_byte *valaddr = value_contents (val0); CORE_ADDR address = VALUE_ADDRESS (val0) + value_offset (val0); struct type *type = - ada_to_fixed_type (value_type (val0), valaddr, address, NULL); + ada_to_fixed_type (value_type (val0), valaddr, address, NULL, 1); struct value *val = value_from_contents_and_address (type, valaddr, address); -- cgit v1.1