remote: Fix indentation in remote_new_objfile.

[deliverable/binutils-gdb.git] / gdb / f-exp.h

diff --git a/gdb/f-exp.h b/gdb/f-exp.h
index b3d0e0e9d54f635590ae641ac29b7637e79e32b1..955d1873f51d011ea898284c24b2ab836869b9f0 100644 (file)
--- 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 */