* defilep.y (def_name, def_library): Combine into...

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

diff --git a/gdb/f-valprint.c b/gdb/f-valprint.c
index 805590f0a9110b09614d6b13a231d58f46736644..24f7b3d345ba0f1699b8e09297e8db51a9a1759d 100644 (file)
--- a/gdb/f-valprint.c
+++ b/gdb/f-valprint.c
@@ -442,9 +442,8 @@ f_val_print (struct type *type, char *valaddr, int embedded_offset,
              value_at
              (TYPE_TARGET_TYPE (type),
               unpack_pointer (lookup_pointer_type (builtin_type_void),
-                              valaddr + embedded_offset),
-              NULL);
-             val_print (VALUE_TYPE (deref_val),
+                              valaddr + embedded_offset));
+             val_print (value_type (deref_val),
                         VALUE_CONTENTS (deref_val),
                         0,
                         VALUE_ADDRESS (deref_val),