*** empty log message ***

[deliverable/binutils-gdb.git] / gdb / p-valprint.c

diff --git a/gdb/p-valprint.c b/gdb/p-valprint.c
index fa0ec6c40a10ef7a6ad80c630b88ff34c5fc70f3..f76bf566a1449c7b8eedfa11af870310a1fdc3ed 100644 (file)
--- a/gdb/p-valprint.c
+++ b/gdb/p-valprint.c
@@ -219,7 +219,7 @@ pascal_val_print (struct type *type, const gdb_byte *valaddr,
 
                  if (msymbol != NULL)
                    wsym = lookup_symbol (SYMBOL_LINKAGE_NAME (msymbol), block,
-                                         VAR_DOMAIN, &is_this_fld, NULL);
+                                         VAR_DOMAIN, &is_this_fld);
 
                  if (wsym)
                    {
@@ -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);
            }