diff options
Diffstat (limited to 'gdb/f-exp.h')
-rw-r--r-- | gdb/f-exp.h | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/gdb/f-exp.h b/gdb/f-exp.h index 11f19af979..b3d0e0e9d5 100644 --- a/gdb/f-exp.h +++ b/gdb/f-exp.h @@ -73,6 +73,11 @@ extern struct value * eval_op_f_allocated (struct type *expect_type, enum noside noside, enum exp_opcode op, struct value *arg1); +extern struct value * eval_op_f_loc (struct type *expect_type, + struct expression *exp, + enum noside noside, + enum exp_opcode op, + struct value *arg1); /* Implement the evaluation of UNOP_FORTRAN_RANK. EXPECTED_TYPE, EXP, and NOSIDE are as for expression::evaluate (see expression.h). OP will @@ -131,6 +136,8 @@ using fortran_kind_operation = unop_operation<UNOP_FORTRAN_KIND, eval_op_f_kind>; using fortran_allocated_operation = unop_operation<UNOP_FORTRAN_ALLOCATED, eval_op_f_allocated>; +using fortran_loc_operation = unop_operation<UNOP_FORTRAN_LOC, + eval_op_f_loc>; using fortran_mod_operation = binop_operation<BINOP_MOD, eval_op_f_mod>; using fortran_modulo_operation = binop_operation<BINOP_FORTRAN_MODULO, |