diff options
author | Joel Brobecker <brobecker@adacore.com> | 2020-05-15 15:06:42 -0500 |
---|---|---|
committer | Joel Brobecker <brobecker@adacore.com> | 2020-05-15 16:06:42 -0400 |
commit | b2188a06e4583067a503fbc271e110e814890cc1 (patch) | |
tree | 121abc54859cc2e200213193d8a056f53757c827 /gdb/ada-valprint.c | |
parent | 86e4e63d7cabb94a80a5ce767f670b65add5a083 (diff) | |
download | gdb-b2188a06e4583067a503fbc271e110e814890cc1.zip gdb-b2188a06e4583067a503fbc271e110e814890cc1.tar.gz gdb-b2188a06e4583067a503fbc271e110e814890cc1.tar.bz2 |
update name of several Ada fixed-point type handling functions
The purpose of this patch is to prepare for the future where
fixed point types become described using standard DWARF info,
rather than GNAT encodings. For that, we rename a number of
routines manipulating Ada fixed point types to make it explicit
from their new names that they rely on the GNAT encodings to work.
This will allow us, when we introduce support for fixed point types
from standard DWARF to use names that are not ambiguous with
the functions that do similar work, but only for GNAT encodings.
gdb/ChangeLog:
* ada-lang.h: (ada_is_gnat_encoded_fixed_point_type): Renames
ada_is_fixed_point_type. Update all callers.
(gnat_encoded_fixed_point_delta): Renames ada_delta. Update
all callers.
* ada-lang.c (gnat_encoded_fixed_type_info): Renames fixed_type_info.
Update all callers.
* ada-typeprint.c (print_gnat_encoded_fixed_point_type): Renames
print_fixed_point_type. Update all callers.
* ada-valprint.c (ada_value_print_num): Replace call to
ada_is_fixed_point_type by ada_is_gnat_encoded_fixed_point_type.
Diffstat (limited to 'gdb/ada-valprint.c')
-rw-r--r-- | gdb/ada-valprint.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gdb/ada-valprint.c b/gdb/ada-valprint.c index 4ad4b54..e11e47e 100644 --- a/gdb/ada-valprint.c +++ b/gdb/ada-valprint.c @@ -793,7 +793,7 @@ ada_value_print_num (struct value *val, struct ui_file *stream, int recurse, struct type *type = ada_check_typedef (value_type (val)); const gdb_byte *valaddr = value_contents_for_printing (val); - if (ada_is_fixed_point_type (type)) + if (ada_is_gnat_encoded_fixed_point_type (type)) { struct value *scale = ada_scaling_factor (type); val = value_cast (value_type (scale), val); |