* NEWS: Mention "info auto-load-scripts".

[deliverable/binutils-gdb.git] / gdb / m2-lang.c

diff --git a/gdb/m2-lang.c b/gdb/m2-lang.c
index b0a9e27fdedcc9fe5982e2e46881c440babfb7e7..f83c622e21a6d5dbeb40330c534b431c22cdee50 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