+2021-03-08 Tom Tromey <tom@tromey.com>
+
+ * expop.h (class string_operation): New.
+ * eval.c (eval_op_string): No longer static.
+
2021-03-08 Tom Tromey <tom@tromey.com>
* expop.h (class internalvar_operation): New.
/* Helper function that implements the body of OP_STRING. */
-static struct value *
+struct value *
eval_op_string (struct type *expect_type, struct expression *exp,
enum noside noside, int len, const char *string)
{
extern struct value *eval_op_register (struct type *expect_type,
struct expression *exp,
enum noside noside, const char *name);
+extern struct value *eval_op_string (struct type *expect_type,
+ struct expression *exp,
+ enum noside noside, int len,
+ const char *string);
namespace expr
{
override;
};
+class string_operation
+ : public tuple_holding_operation<std::string>
+{
+public:
+
+ using tuple_holding_operation::tuple_holding_operation;
+
+ value *evaluate (struct type *expect_type,
+ struct expression *exp,
+ enum noside noside) override
+ {
+ const std::string &str = std::get<0> (m_storage);
+ return eval_op_string (expect_type, exp, noside,
+ str.size (), str.c_str ());
+ }
+
+ enum exp_opcode opcode () const override
+ { return OP_STRING; }
+};
+
} /* namespace expr */
#endif /* EXPOP_H */