diff options
author | Andrew Cagney <cagney@redhat.com> | 2003-05-24 03:21:42 +0000 |
---|---|---|
committer | Andrew Cagney <cagney@redhat.com> | 2003-05-24 03:21:42 +0000 |
commit | 6c8e6b8c433775705c154d3fbc4e67105ea41f91 (patch) | |
tree | 7529eda6bdd1c4dbed92a010c2967e498a9adae7 /gdb/ada-valprint.c | |
parent | 5666253a6dab43a926d499c77845733d5d291911 (diff) | |
download | gdb-6c8e6b8c433775705c154d3fbc4e67105ea41f91.tar.gz |
2003-05-23 Andrew Cagney <cagney@redhat.com>
* p-valprint.c (pascal_val_print): Replace extract_address with
the inline equivalent extract_unsigned_integer.
* jv-valprint.c (java_value_print): Ditto.
* ada-valprint.c (ada_val_print_1): Ditto.
* ada-lang.h (EXTRACT_ADDRESS): Ditto.
Diffstat (limited to 'gdb/ada-valprint.c')
-rw-r--r-- | gdb/ada-valprint.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gdb/ada-valprint.c b/gdb/ada-valprint.c index 11c42bf9e67..f5f411898b2 100644 --- a/gdb/ada-valprint.c +++ b/gdb/ada-valprint.c @@ -742,9 +742,11 @@ ada_val_print_1 (struct type *type, char *valaddr0, int embedded_offset, if (addressprint) { fprintf_filtered (stream, "@"); + /* Extract an address, assume that the address is unsigned. */ print_address_numeric - (extract_address (valaddr, - TARGET_PTR_BIT / HOST_CHAR_BIT), 1, stream); + (extract_unsigned_integer (valaddr, + TARGET_PTR_BIT / HOST_CHAR_BIT), + 1, stream); if (deref_ref) fputs_filtered (": ", stream); } |