From b276f1bbc9cf6f8d44204350cb03e4d021edf783 Mon Sep 17 00:00:00 2001 From: Andrew Cagney Date: Sat, 24 May 2003 03:21:42 +0000 Subject: 2003-05-23 Andrew Cagney * 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. --- gdb/ada-valprint.c | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'gdb/ada-valprint.c') diff --git a/gdb/ada-valprint.c b/gdb/ada-valprint.c index 11c42bf..f5f4118 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); } -- cgit v1.1