diff options
| author | Tom Tromey <tom@tromey.com> | 2021-03-08 07:27:57 -0700 |
|---|---|---|
| committer | Tom Tromey <tom@tromey.com> | 2021-03-08 07:28:16 -0700 |
| commit | e6e01e16c547b21be2e3fc6b0783492aea98c427 (patch) | |
| tree | 8c2fb58588c9f9bcd0d8a3f70693de97ea3d6041 /gdb/ax-gdb.c | |
| parent | e6985c5e45ef0693005e21a25d847baf0f93c965 (diff) | |
| download | gdb-e6e01e16c547b21be2e3fc6b0783492aea98c427.zip gdb-e6e01e16c547b21be2e3fc6b0783492aea98c427.tar.gz gdb-e6e01e16c547b21be2e3fc6b0783492aea98c427.tar.bz2 | |
Introduce internalvar_operation
This adds class internalvar_operation, which implements
OP_INTERNALVAR.
gdb/ChangeLog
2021-03-08 Tom Tromey <tom@tromey.com>
* expop.h (class internalvar_operation): New.
* ax-gdb.c (internalvar_operation::do_generate_ax): New method.
Diffstat (limited to 'gdb/ax-gdb.c')
| -rw-r--r-- | gdb/ax-gdb.c | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/gdb/ax-gdb.c b/gdb/ax-gdb.c index 5ffe5a0..e25e294 100644 --- a/gdb/ax-gdb.c +++ b/gdb/ax-gdb.c @@ -2365,6 +2365,31 @@ register_operation::do_generate_ax (struct expression *exp, value->type = register_type (ax->gdbarch, reg); } +void +internalvar_operation::do_generate_ax (struct expression *exp, + struct agent_expr *ax, + struct axs_value *value, + struct type *cast_type) +{ + struct internalvar *var = std::get<0> (m_storage); + const char *name = internalvar_name (var); + struct trace_state_variable *tsv; + + tsv = find_trace_state_variable (name); + if (tsv) + { + 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. */ + value->kind = axs_rvalue; + value->type = builtin_type (ax->gdbarch)->builtin_long_long; + } + else if (! compile_internalvar_to_ax (var, ax, value)) + error (_("$%s is not a trace state variable; GDB agent " + "expressions cannot use convenience variables."), name); +} + } /* This handles the middle-to-right-side of code generation for binary |