diff options
author | Wenji Huang <wenji.huang@oracle.com> | 2009-07-28 19:50:24 -0400 |
---|---|---|
committer | Wenji Huang <wenji.huang@oracle.com> | 2009-07-28 19:50:24 -0400 |
commit | a0c0ed1c030d8e812eed19b096c626b7ce233358 (patch) | |
tree | 6f0b56dc7814bf92d116fd9b291c04f5d1400ac7 /tapset-utrace.cxx | |
parent | fc7e606e053159fad715883ccee2d99324c32f1a (diff) | |
download | systemtap-steved-a0c0ed1c030d8e812eed19b096c626b7ce233358.tar.gz systemtap-steved-a0c0ed1c030d8e812eed19b096c626b7ce233358.tar.xz systemtap-steved-a0c0ed1c030d8e812eed19b096c626b7ce233358.zip |
PR6978: support $$parms for process.syscall
* tapset-utrace.cxx (visit_target_symbol_arg): Handle $$parms.
* testsuite/systemtap.base/utrace_p4.exp: Add test case.
* testsuite/systemtap.base/utrace_p5.exp: Ditto.
Diffstat (limited to 'tapset-utrace.cxx')
-rw-r--r-- | tapset-utrace.cxx | 125 |
1 files changed, 84 insertions, 41 deletions
diff --git a/tapset-utrace.cxx b/tapset-utrace.cxx index ec20282a..a3a4ca3d 100644 --- a/tapset-utrace.cxx +++ b/tapset-utrace.cxx @@ -407,54 +407,97 @@ utrace_var_expanding_visitor::visit_target_symbol_cached (target_symbol* e) void utrace_var_expanding_visitor::visit_target_symbol_arg (target_symbol* e) { - string argnum_s = e->base_name.substr(4,e->base_name.length()-4); - int argnum = lex_cast<int>(argnum_s); - if (flags != UDPF_SYSCALL) - throw semantic_error ("only \"process(PATH_OR_PID).syscall\" support $argN.", e->tok); + throw semantic_error ("only \"process(PATH_OR_PID).syscall\" support $argN or $$parms.", e->tok); - if (e->components.size() > 0) + if (e->base_name == "$$parms") { - switch (e->components[0].first) - { - case target_symbol::comp_literal_array_index: - throw semantic_error("utrace target variable '$argN' may not be used as array", - e->tok); - break; - case target_symbol::comp_struct_member: - throw semantic_error("utrace target variable '$argN' may not be used as a structure", - e->tok); - break; - default: - throw semantic_error ("invalid use of utrace target variable '$argN'", - e->tok); - break; - } - } + // copy from tracepoint + print_format* pf = new print_format; + token* pf_tok = new token(*e->tok); + pf_tok->content = "sprintf"; + pf->tok = pf_tok; + pf->print_to_stream = false; + pf->print_with_format = true; + pf->print_with_delim = false; + pf->print_with_newline = false; + pf->print_char = false; + + target_symbol_seen = true; + + for (unsigned i = 0; i < 6; ++i) + { + if (i > 0) + pf->raw_components += " "; + pf->raw_components += "$arg" + lex_cast<string>(i+1); + target_symbol *tsym = new target_symbol; + tsym->tok = e->tok; + tsym->base_name = "$arg" + lex_cast<string>(i+1); + tsym->saved_conversion_error = 0; + pf->raw_components += "=%#x"; //FIXME: missing type info + + functioncall* n = new functioncall; //same as the following + n->tok = e->tok; + n->function = "_utrace_syscall_arg"; + n->referent = 0; + literal_number *num = new literal_number(i); + num->tok = e->tok; + n->args.push_back(num); + + pf->args.push_back(n); + } + pf->components = print_format::string_to_components(pf->raw_components); + + provide (pf); + } + else // $argN + { + string argnum_s = e->base_name.substr(4,e->base_name.length()-4); + int argnum = lex_cast<int>(argnum_s); + + if (e->components.size() > 0) + { + switch (e->components[0].first) + { + case target_symbol::comp_literal_array_index: + throw semantic_error("utrace target variable '$argN' may not be used as array", + e->tok); + break; + case target_symbol::comp_struct_member: + throw semantic_error("utrace target variable '$argN' may not be used as a structure", + e->tok); + break; + default: + throw semantic_error ("invalid use of utrace target variable '$argN'", + e->tok); + break; + } + } - // FIXME: max argnument number should not be hardcoded. - if (argnum < 1 || argnum > 6) - throw semantic_error ("invalid syscall argument number (1-6)", e->tok); + // FIXME: max argnument number should not be hardcoded. + if (argnum < 1 || argnum > 6) + throw semantic_error ("invalid syscall argument number (1-6)", e->tok); - bool lvalue = is_active_lvalue(e); - if (lvalue) - throw semantic_error("utrace '$argN' variable is read-only", e->tok); + bool lvalue = is_active_lvalue(e); + if (lvalue) + throw semantic_error("utrace '$argN' variable is read-only", e->tok); - // Remember that we've seen a target variable. - target_symbol_seen = true; + // Remember that we've seen a target variable. + target_symbol_seen = true; - // We're going to substitute a synthesized '_utrace_syscall_arg' - // function call for the '$argN' reference. - functioncall* n = new functioncall; - n->tok = e->tok; - n->function = "_utrace_syscall_arg"; - n->referent = 0; // NB: must not resolve yet, to ensure inclusion in session + // We're going to substitute a synthesized '_utrace_syscall_arg' + // function call for the '$argN' reference. + functioncall* n = new functioncall; + n->tok = e->tok; + n->function = "_utrace_syscall_arg"; + n->referent = 0; // NB: must not resolve yet, to ensure inclusion in session - literal_number *num = new literal_number(argnum - 1); - num->tok = e->tok; - n->args.push_back(num); + literal_number *num = new literal_number(argnum - 1); + num->tok = e->tok; + n->args.push_back(num); - provide (n); + provide (n); + } } void @@ -542,12 +585,12 @@ utrace_var_expanding_visitor::visit_target_symbol (target_symbol* e) if (e->addressof) throw semantic_error("cannot take address of utrace variable", e->tok); - if (e->base_name.substr(0,4) == "$arg") + if (e->base_name.substr(0,4) == "$arg" || e->base_name == "$$parms") visit_target_symbol_arg(e); else if (e->base_name == "$syscall" || e->base_name == "$return") visit_target_symbol_context(e); else - throw semantic_error ("invalid target symbol for utrace probe, $syscall, $return or $argN expected", + throw semantic_error ("invalid target symbol for utrace probe, $syscall, $return, $argN or $$parms expected", e->tok); } |