* ada-valprint.c (ada_val_print_1): When implicitly dereferencing

	a reference type, pass the reference type directly to unpack_pointer.
	* c-valprint.c (c_val_print): Likewise.
	* f-valprint.c (f_val_print): Likewise.
	* m2-valprint.c (print_variable_at_address, m2_val_print): Likewise.
	* p-valprint.c (pascal_val_print): Likewise.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index ec43cbd3c7653891b3a494ed793d505c822044c4..4249f7f0fcec3b04e256332b83691822126cc800 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,12 @@
+2008-09-11  Ulrich Weigand  <uweigand@de.ibm.com>
+
+       * ada-valprint.c (ada_val_print_1): When implicitly dereferencing
+       a reference type, pass the reference type directly to unpack_pointer.
+       * c-valprint.c (c_val_print): Likewise.
+       * f-valprint.c (f_val_print): Likewise.
+       * m2-valprint.c (print_variable_at_address, m2_val_print): Likewise.
+       * p-valprint.c (pascal_val_print): Likewise.
+
 2008-09-11  Ulrich Weigand  <uweigand@de.ibm.com>
 
        * eval.c (evaluate_subexp_standard): Use builtin_type_int8

diff --git a/gdb/ada-valprint.c b/gdb/ada-valprint.c
index 7ae8c0f633b325bc158b8dde0a3d374151d31521..dbce8d3d212f67666bd4a5bed0338896debd364f 100644 (file)
--- a/gdb/ada-valprint.c
+++ b/gdb/ada-valprint.c
@@ -891,9 +891,7 @@ ada_val_print_1 (struct type *type, const gdb_byte *valaddr0,
       
       if (TYPE_CODE (elttype) != TYPE_CODE_UNDEF)
         {
-          LONGEST deref_val_int = (LONGEST)
-            unpack_pointer (lookup_pointer_type (builtin_type_void),
-                            valaddr);
+          LONGEST deref_val_int = (LONGEST) unpack_pointer (type, valaddr);
           if (deref_val_int != 0)
             {
               struct value *deref_val =

diff --git a/gdb/c-valprint.c b/gdb/c-valprint.c
index 30a1be74076e8f6c003f26de325e43a1184c301f..9d8b439065dab895b3a1512bcf0796e79827870c 100644 (file)
--- a/gdb/c-valprint.c
+++ b/gdb/c-valprint.c
@@ -310,8 +310,7 @@ c_val_print (struct type *type, const gdb_byte *valaddr, int embedded_offset,
              struct value *deref_val =
              value_at
              (TYPE_TARGET_TYPE (type),
-              unpack_pointer (lookup_pointer_type (builtin_type_void),
-                              valaddr + embedded_offset));
+              unpack_pointer (type, valaddr + embedded_offset));
              common_val_print (deref_val, stream, format, deref_ref,
                                recurse, pretty, current_language);
            }

diff --git a/gdb/f-valprint.c b/gdb/f-valprint.c
index 4cbb7888a5ae1f726c3d77e06e9d293c62702faf..69c3395c4820fc59a0f53c047d002788aa6ab94a 100644 (file)
--- a/gdb/f-valprint.c
+++ b/gdb/f-valprint.c
@@ -444,8 +444,7 @@ f_val_print (struct type *type, const gdb_byte *valaddr, int embedded_offset,
              struct value *deref_val =
              value_at
              (TYPE_TARGET_TYPE (type),
-              unpack_pointer (lookup_pointer_type (builtin_type_void),
-                              valaddr + embedded_offset));
+              unpack_pointer (type, valaddr + embedded_offset));
              common_val_print (deref_val, stream, format, deref_ref, recurse,
                                pretty, current_language);
            }

diff --git a/gdb/m2-valprint.c b/gdb/m2-valprint.c
index 1258d07bfaeaadfb3ce63902c57b63e2f7da363d..e09ec2153ffa0c7bacb3d4cc0ebcbf073bd74279 100644 (file)
--- a/gdb/m2-valprint.c
+++ b/gdb/m2-valprint.c
@@ -258,10 +258,7 @@ print_variable_at_address (struct type *type,
   if (TYPE_CODE (elttype) != TYPE_CODE_UNDEF)
     {
       struct value *deref_val =
-       value_at
-       (TYPE_TARGET_TYPE (type),
-        unpack_pointer (lookup_pointer_type (builtin_type_void),
-                        valaddr));
+       value_at (TYPE_TARGET_TYPE (type), unpack_pointer (type, valaddr));
       common_val_print (deref_val, stream, format, deref_ref,
                        recurse, pretty, current_language);
     }
@@ -420,8 +417,7 @@ m2_val_print (struct type *type, const gdb_byte *valaddr, int embedded_offset,
              struct value *deref_val =
                value_at
                (TYPE_TARGET_TYPE (type),
-                unpack_pointer (lookup_pointer_type (builtin_type_void),
-                                valaddr + embedded_offset));
+                unpack_pointer (type, valaddr + embedded_offset));
              common_val_print (deref_val, stream, format, deref_ref,
                                recurse, pretty, current_language);
            }

diff --git a/gdb/p-valprint.c b/gdb/p-valprint.c
index 23a04dab3dc65832d73359e7958e70496142fda9..f76bf566a1449c7b8eedfa11af870310a1fdc3ed 100644 (file)
--- a/gdb/p-valprint.c
+++ b/gdb/p-valprint.c
@@ -267,8 +267,7 @@ pascal_val_print (struct type *type, const gdb_byte *valaddr,
              struct value *deref_val =
              value_at
              (TYPE_TARGET_TYPE (type),
-              unpack_pointer (lookup_pointer_type (builtin_type_void),
-                              valaddr + embedded_offset));
+              unpack_pointer (type, valaddr + embedded_offset));
              common_val_print (deref_val, stream, format, deref_ref,
                                recurse + 1, pretty, current_language);
            }