diff options
| author | Joel Brobecker <brobecker@gnat.com> | 2008-01-03 12:30:38 +0000 |
|---|---|---|
| committer | Joel Brobecker <brobecker@gnat.com> | 2008-01-03 12:30:38 +0000 |
| commit | 1ed6ede0102f09c717fb707bd27e7d224c77f9ef (patch) | |
| tree | ce406cc88855238d99b060711feaff9c2acf3b08 /gdb/ada-valprint.c | |
| parent | 542a88d0e44f1435c18e1dd02bcdf55f14b98583 (diff) | |
| download | binutils-gdb-1ed6ede0102f09c717fb707bd27e7d224c77f9ef.tar.gz | |
* 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.
Diffstat (limited to 'gdb/ada-valprint.c')
| -rw-r--r-- | gdb/ada-valprint.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gdb/ada-valprint.c b/gdb/ada-valprint.c index bfcb7fded36..8c7cc1074cd 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); |