* p-valprint.c (pascal_val_print): Use extract_typed_address

	to extract reference value.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 55cace361fa2f8d96ab0b9f1949da927068e6137..5e9931b7221c9fc0a287bcd70100c0b3cb5686bb 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,8 @@
+2009-05-18  Ulrich Weigand  <uweigand@de.ibm.com>
+
+       * p-valprint.c (pascal_val_print): Use extract_typed_address
+       to extract reference value.
+
 2009-05-18  Ulrich Weigand  <uweigand@de.ibm.com>
 
        * doublest.c (NAN): Remove unused define.

diff --git a/gdb/p-valprint.c b/gdb/p-valprint.c
index 2d1cb08d45528828b35a5e181e01df33063ca8e2..68ff54a25dc28cf67a4dfd76e714df9ca31c6340 100644 (file)
--- 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);
        }