From 40786782896deaf8f97f8dc62b85d9facb30fc8a Mon Sep 17 00:00:00 2001 From: Tom Tromey Date: Mon, 8 Mar 2021 07:27:57 -0700 Subject: Introduce assign_operation This adds class assign_operation, which implements BINOP_ASSIGN. gdb/ChangeLog 2021-03-08 Tom Tromey * expop.h (class assign_operation): New. * ax-gdb.c (assign_operation::do_generate_ax): New method. --- gdb/ax-gdb.c | 30 ++++++++++++++++++++++++++++++ 1 file changed, 30 insertions(+) (limited to 'gdb/ax-gdb.c') diff --git a/gdb/ax-gdb.c b/gdb/ax-gdb.c index 98edc6c..d8b5ed7 100644 --- a/gdb/ax-gdb.c +++ b/gdb/ax-gdb.c @@ -2579,6 +2579,36 @@ op_this_operation::do_generate_ax (struct expression *exp, sym->print_name ()); } +void +assign_operation::do_generate_ax (struct expression *exp, + struct agent_expr *ax, + struct axs_value *value, + struct type *cast_type) +{ + operation *subop = std::get<0> (m_storage).get (); + if (subop->opcode () != OP_INTERNALVAR) + error (_("May only assign to trace state variables")); + + internalvar_operation *ivarop + = dynamic_cast (subop); + gdb_assert (ivarop != nullptr); + + const char *name = internalvar_name (ivarop->get_internalvar ()); + struct trace_state_variable *tsv; + + std::get<1> (m_storage)->generate_ax (exp, ax, value); + tsv = find_trace_state_variable (name); + if (tsv) + { + ax_tsv (ax, aop_setv, tsv->number); + if (ax->tracing) + ax_tsv (ax, aop_tracev, tsv->number); + } + else + error (_("$%s is not a trace state variable, " + "may not assign to it"), name); +} + } /* This handles the middle-to-right-side of code generation for binary -- cgit v1.1