diff options
| -rw-r--r-- | ChangeLog | 3 | ||||
| -rw-r--r-- | tapsets.cxx | 19 |
2 files changed, 22 insertions, 0 deletions
@@ -4,6 +4,9 @@ (procfs_var_expanding_copy_visitor::visit_target_symbol): Print an error when trying to use the procfs target variable '$value' as an array or structure. + (perfmon_var_expanding_copy_visitor::visit_target_symbol): Print an + error when trying to use the perfmon target variable '$counter as + an array or structure. 2008-01-16 David Smith <dsmith@redhat.com> diff --git a/tapsets.cxx b/tapsets.cxx index 89819d6e..84187960 100644 --- a/tapsets.cxx +++ b/tapsets.cxx @@ -5882,6 +5882,25 @@ perfmon_var_expanding_copy_visitor::visit_target_symbol (target_symbol *e) if (e->base_name != "$counter") throw semantic_error ("target variables not available to perfmon probes"); + if (e->components.size() > 0) + { + switch (e->components[0].first) + { + case target_symbol::comp_literal_array_index: + throw semantic_error("perfmon probe '$counter' variable may not be used as array", + e->tok); + break; + case target_symbol::comp_struct_member: + throw semantic_error("perfmon probe '$counter' variable may not be used as a structure", + e->tok); + break; + default: + throw semantic_error ("invalid use of perfmon probe '$counter' variable", + e->tok); + break; + } + } + ec->code = "THIS->__retvalue = _pfm_pmd_x[" + lex_cast<string>(counter_number) + "].reg_num;"; ec->code += "/* pure */"; |