From: Ulrich Weigand Date: Mon, 18 May 2009 13:45:51 +0000 (+0000) Subject: * p-valprint.c (pascal_val_print): Use extract_typed_address X-Git-Tag: sid-snapshot-20090601~169 X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=830bb937a1076fbaf1eae8f2a3bdce8bcf53f281;p=external%2Fbinutils.git * p-valprint.c (pascal_val_print): Use extract_typed_address to extract reference value. --- diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 55cace3..5e9931b 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,5 +1,10 @@ 2009-05-18 Ulrich Weigand + * p-valprint.c (pascal_val_print): Use extract_typed_address + to extract reference value. + +2009-05-18 Ulrich Weigand + * doublest.c (NAN): Remove unused define. (extract_floating_by_length, deprecated_extract_floating): Remove. (store_floating_by_length, deprecated_store_floating): Remove. diff --git a/gdb/p-valprint.c b/gdb/p-valprint.c index 2d1cb08..68ff54a 100644 --- a/gdb/p-valprint.c +++ b/gdb/p-valprint.c @@ -251,11 +251,10 @@ pascal_val_print (struct type *type, const gdb_byte *valaddr, elttype = check_typedef (TYPE_TARGET_TYPE (type)); if (options->addressprint) { + CORE_ADDR addr + = extract_typed_address (valaddr + embedded_offset, type); fprintf_filtered (stream, "@"); - /* Extract the address, assume that it is unsigned. */ - fputs_filtered (paddress ( - extract_unsigned_integer (valaddr + embedded_offset, - gdbarch_ptr_bit (current_gdbarch) / HOST_CHAR_BIT)), stream); + fputs_filtered (paddress (addr), stream); if (options->deref_ref) fputs_filtered (": ", stream); }