From 88b91969e1ae5d23f81b86ae6cd3c85b284c6294 Mon Sep 17 00:00:00 2001 From: Tom Tromey Date: Mon, 30 Nov 2020 01:37:10 -0700 Subject: Remove per-language op_name functions enum exp_opcode is created from all the .def files, but then each language is required to implement its own op_name function to turn an enum value to a string. This seemed over-complicated to me, and this patch removes the per-language functions in favor of simply using the .def names for all languages. Note that op_name is only used for dumping expressions, which is a maintainer/debug feature. Furthermore, I don't think there was any case where the .def name and the string name differed. gdb/ChangeLog 2020-11-30 Tom Tromey * rust-lang.c (rust_op_name): Remove. (exp_descriptor_rust): Update. * parser-defs.h (op_name_standard): Don't declare. (struct exp_descriptor) : Remove. * parse.c (exp_descriptor_standard): Update. * opencl-lang.c (exp_descriptor_opencl): Update. * m2-lang.c (m2_language::exp_descriptor_modula2): Update. * f-lang.c (op_name_f): Remove. (f_language::exp_descriptor_tab): Update. * expression.h (op_name): Update. * expprint.c (op_name): Rewrite. (op_name_standard): Remove. (dump_raw_expression, dump_subexp): Update. * c-lang.c (exp_descriptor_c): Update. * ax-gdb.c (gen_expr): Update. * ada-lang.c (ada_op_name): Remove. (ada_exp_descriptor): Update. --- gdb/f-lang.c | 19 ------------------- 1 file changed, 19 deletions(-) (limited to 'gdb/f-lang.c') diff --git a/gdb/f-lang.c b/gdb/f-lang.c index 4171c96..6771758 100644 --- a/gdb/f-lang.c +++ b/gdb/f-lang.c @@ -1072,24 +1072,6 @@ print_subexp_f (struct expression *exp, int *pos, } } -/* Special expression names for Fortran. */ - -static const char * -op_name_f (enum exp_opcode opcode) -{ - switch (opcode) - { - default: - return op_name_standard (opcode); - -#define OP(name) \ - case name: \ - return #name ; -#include "fortran-operator.def" -#undef OP - } -} - /* Special expression dumping for Fortran. */ static int @@ -1159,7 +1141,6 @@ const struct exp_descriptor f_language::exp_descriptor_tab = print_subexp_f, operator_length_f, operator_check_f, - op_name_f, dump_subexp_body_f, evaluate_subexp_f }; -- cgit v1.1