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 d27cacad7c2544e5d309753c17aacda4e19f890a..56db155e9f6e41ab6d720fa277f3bdee58957d97 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 ee765421eeb625a4b2c4377ffda7e9ef7da720d9..618fc17ce4fad2f93fb238d75955594de6a851cf 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: