From eb4c927182a8c935960e8c70a2c2d3ab2c49e21f Mon Sep 17 00:00:00 2001 From: Tom Tromey Date: Mon, 8 Mar 2021 07:27:57 -0700 Subject: Implement Fortran associated operations This implements the Fortran 1- and 2-argument "associated" operations. gdb/ChangeLog 2021-03-08 Tom Tromey * f-lang.c (eval_op_f_associated): New functions. * f-exp.h (fortran_associated_1arg, fortran_associated_2arg): New typedefs. --- gdb/f-lang.c | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) (limited to 'gdb/f-lang.c') diff --git a/gdb/f-lang.c b/gdb/f-lang.c index dcd7c48..1a49b6b 100644 --- a/gdb/f-lang.c +++ b/gdb/f-lang.c @@ -995,6 +995,26 @@ fortran_associated (struct gdbarch *gdbarch, const language_defn *lang, return value_from_longest (result_type, is_associated ? 1 : 0); } +struct value * +eval_op_f_associated (struct type *expect_type, + struct expression *exp, + enum noside noside, + enum exp_opcode opcode, + struct value *arg1) +{ + return fortran_associated (exp->gdbarch, exp->language_defn, arg1); +} + +struct value * +eval_op_f_associated (struct type *expect_type, + struct expression *exp, + enum noside noside, + enum exp_opcode opcode, + struct value *arg1, + struct value *arg2) +{ + return fortran_associated (exp->gdbarch, exp->language_defn, arg1, arg2); +} /* A helper function for UNOP_ABS. */ -- cgit v1.1