2011-02-28 Michael Snyder <msnyder@vmware.com>

	* p-valprint.c (pascal_val_print): Discard unused value.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index d27caca..56db155 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,5 +1,7 @@
 2011-02-28  Michael Snyder  <msnyder@vmware.com>
 
+       * p-valprint.c (pascal_val_print): Discard unused value.
+
        * utils.c (nquery): Call va_end before return;
        (yquery): Ditto.
        (query): Ditto.

diff --git a/gdb/p-valprint.c b/gdb/p-valprint.c
index ee76542..618fc17 100644 (file)
--- a/gdb/p-valprint.c
+++ b/gdb/p-valprint.c
@@ -149,7 +149,7 @@ pascal_val_print (struct type *type, const gdb_byte *valaddr,
          print_address_demangle (gdbarch, addr, stream, demangle);
          break;
        }
-      elttype = check_typedef (TYPE_TARGET_TYPE (type));
+      check_typedef (TYPE_TARGET_TYPE (type));
 
       addr = unpack_pointer (type, valaddr + embedded_offset);
     print_unpacked_pointer: