mirror of
https://github.com/espressif/binutils-gdb.git
synced 2025-07-14 03:40:52 +08:00
Implement Fortran associated operations
This implements the Fortran 1- and 2-argument "associated" operations. gdb/ChangeLog 2021-03-08 Tom Tromey <tom@tromey.com> * f-lang.c (eval_op_f_associated): New functions. * f-exp.h (fortran_associated_1arg, fortran_associated_2arg): New typedefs.
This commit is contained in:
20
gdb/f-lang.c
20
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. */
|
||||
|
||||
|
Reference in New Issue
Block a user