From 5871f0a38dd0f2403765e60d7b00f511fcc4a6cc Mon Sep 17 00:00:00 2001 From: Tom Tromey Date: Mon, 8 Mar 2021 07:27:57 -0700 Subject: Remove now-unused Modula-2 evaluator code Now that the Modula-2 parser has switched to the new style, there is no need for the old Modula-2 evaluation code. gdb/ChangeLog 2021-03-08 Tom Tromey * m2-lang.h (class m2_language) : Remove. * m2-lang.c (evaluate_subexp_modula2) (m2_language::exp_descriptor_modula2): Remove. --- gdb/m2-lang.c | 34 ---------------------------------- 1 file changed, 34 deletions(-) (limited to 'gdb/m2-lang.c') diff --git a/gdb/m2-lang.c b/gdb/m2-lang.c index e286613..36b15c3 100644 --- a/gdb/m2-lang.c +++ b/gdb/m2-lang.c @@ -111,31 +111,6 @@ eval_op_m2_subscript (struct type *expect_type, struct expression *exp, return value_subscript (arg1, value_as_long (arg2)); } -static struct value * -evaluate_subexp_modula2 (struct type *expect_type, struct expression *exp, - int *pos, enum noside noside) -{ - enum exp_opcode op = exp->elts[*pos].opcode; - struct value *arg1; - struct value *arg2; - - switch (op) - { - case UNOP_HIGH: - (*pos)++; - arg1 = evaluate_subexp_with_coercion (exp, pos, noside); - return eval_op_m2_high (expect_type, exp, noside, arg1); - - case BINOP_SUBSCRIPT: - (*pos)++; - arg1 = evaluate_subexp_with_coercion (exp, pos, noside); - arg2 = evaluate_subexp_with_coercion (exp, pos, noside); - return eval_op_m2_subscript (expect_type, exp, noside, arg1, arg2); - - default: - return evaluate_subexp_standard (expect_type, exp, pos, noside); - } -} /* Table of operators and their precedences for printing expressions. */ @@ -175,15 +150,6 @@ const struct op_print m2_language::op_print_tab[] = }; -const struct exp_descriptor m2_language::exp_descriptor_modula2 = -{ - print_subexp_standard, - operator_length_standard, - operator_check_standard, - dump_subexp_body_standard, - evaluate_subexp_modula2 -}; - /* Single instance of the M2 language. */ static m2_language m2_language_defn; -- cgit v1.1