diff options
Diffstat (limited to 'gdb/f-exp.h')
-rw-r--r-- | gdb/f-exp.h | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/gdb/f-exp.h b/gdb/f-exp.h index b3d0e0e..955d187 100644 --- a/gdb/f-exp.h +++ b/gdb/f-exp.h @@ -273,6 +273,22 @@ public: { return std::get<0> (m_storage); } }; +/* Implement STRUCTOP_STRUCT for Fortran. */ +class fortran_structop_operation + : public structop_base_operation +{ +public: + + using structop_base_operation::structop_base_operation; + + value *evaluate (struct type *expect_type, + struct expression *exp, + enum noside noside) override; + + enum exp_opcode opcode () const override + { return STRUCTOP_STRUCT; } +}; + } /* namespace expr */ #endif /* FORTRAN_EXP_H */ |