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-Url: http://drtracing.org/?a=commitdiff_plain;ds=sidebyside;h=830bb937a1076fbaf1eae8f2a3bdce8bcf53f281;hp=e035e3736f445850fa1372f8d2a7f403cf1cf6a7;p=deliverable%2Fbinutils-gdb.git * p-valprint.c (pascal_val_print): Use extract_typed_address to extract reference value. --- diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 55cace361f..5e9931b722 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,8 @@ +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. diff --git a/gdb/p-valprint.c b/gdb/p-valprint.c index 2d1cb08d45..68ff54a25d 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); }