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-exp.h | 15 +++++++++++++++ 1 file changed, 15 insertions(+) (limited to 'gdb/f-exp.h') diff --git a/gdb/f-exp.h b/gdb/f-exp.h index e1d351a..11f403d 100644 --- a/gdb/f-exp.h +++ b/gdb/f-exp.h @@ -57,6 +57,17 @@ extern struct value *eval_op_f_kind (struct type *expect_type, enum noside noside, enum exp_opcode opcode, struct value *arg1); +extern struct value *eval_op_f_associated (struct type *expect_type, + struct expression *exp, + enum noside noside, + enum exp_opcode opcode, + struct value *arg1); +extern 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); namespace expr { @@ -72,6 +83,10 @@ using fortran_kind_operation = unop_operation; using fortran_modulo_operation = binop_operation; +using fortran_associated_1arg = unop_operation; +using fortran_associated_2arg = binop_operation; /* The Fortran "complex" operation. */ class fortran_cmplx_operation -- cgit v1.1