FreeChainXenon/binutils-gdb
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Introduce assign_modify_operation

Browse source 
This adds class assign_modify_operation, which implements
BINOP_ASSIGN_MODIFY.

gdb/ChangeLog
2021-03-08  Tom Tromey  <tom@tromey.com>

	* expop.h (class assign_modify_operation): New.
	* eval.c (eval_binop_assign_modify): No longer static.
	* ax-gdb.c (assign_modify_operation::do_generate_ax): New method.
This commit is contained in:
Tom Tromey 2021-03-08 07:27:57 -07:00
parent 4078678289
commit e5946e1604
4 changed files with 85 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

42
gdb/ax-gdb.c
View file

@ -2609,6 +2609,48 @@ assign_operation::do_generate_ax (struct expression *exp,
"may not assign to it"), name);
}
void
assign_modify_operation::do_generate_ax (struct expression *exp,
struct agent_expr *ax,
struct axs_value *value,
struct type *cast_type)
{
operation *subop = std::get<1> (m_storage).get ();
if (subop->opcode () != OP_INTERNALVAR)
error (_("May only assign to trace state variables"));
internalvar_operation *ivarop
= dynamic_cast<internalvar_operation *> (subop);
gdb_assert (ivarop != nullptr);
const char *name = internalvar_name (ivarop->get_internalvar ());
struct trace_state_variable *tsv;
tsv = find_trace_state_variable (name);
if (tsv)
{
/* The tsv will be the left half of the binary operation. */
ax_tsv (ax, aop_getv, tsv->number);
if (ax->tracing)
ax_tsv (ax, aop_tracev, tsv->number);
/* Trace state variables are always 64-bit integers. */
struct axs_value value1, value2;
value1.kind = axs_rvalue;
value1.type = builtin_type (ax->gdbarch)->builtin_long_long;
/* Now do right half of expression. */
std::get<2> (m_storage)->generate_ax (exp, ax, &value2);
gen_expr_binop_rest (exp, std::get<0> (m_storage), ax,
value, &value1, &value2);
/* We have a result of the binary op, set the 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