From: Michael Snyder <msnyder@vmware.com>
Date: Mon, 28 Feb 2011 22:45:16 +0000 (+0000)
Subject: 2011-02-28  Michael Snyder  <msnyder@vmware.com>
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=91e8df85d85a3ca61fd42e158dc7f2b1c8ab841a;p=binutils-gdb.git

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 d27cacad7c2..56db155e9f6 100644
--- 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 ee765421eeb..618fc17ce4f 100644
--- 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: