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

	* m2-lang.c (evaluate_subexp_modula2): Discard unused variable.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 1548439..9ef42a6 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,5 +1,7 @@
 2011-02-28  Michael Snyder  <msnyder@vmware.com>
 
+       * m2-lang.c (evaluate_subexp_modula2): Discard unused variable.
+
        * opencl-lang.c (evaluate_subexp_opencl): Discard unused value.
 
        * p-valprint.c (pascal_val_print): Discard unused value.

diff --git a/gdb/m2-lang.c b/gdb/m2-lang.c
index b0a9e27..f83c622 100644 (file)
--- a/gdb/m2-lang.c
+++ b/gdb/m2-lang.c
@@ -255,7 +255,7 @@ evaluate_subexp_modula2 (struct type *expect_type, struct expression *exp,
          if (value_type (arg1) != type)
            arg1 = value_cast (type, arg1);
 
-         type = check_typedef (value_type (arg1));
+         check_typedef (value_type (arg1));
          return value_ind (value_ptradd (arg1, value_as_long (arg2)));
        }
       else