diff options
author | graydon <graydon> | 2005-07-27 18:08:45 +0000 |
---|---|---|
committer | graydon <graydon> | 2005-07-27 18:08:45 +0000 |
commit | 8a43522c150e94623ee90857c62d3fb7f5b58521 (patch) | |
tree | 51353794991fe3df73166a4716fc7519644e0eb5 /tapsets.cxx | |
parent | 21ba501044c5436c80cd2f4f0abc8aa6bb135bcb (diff) | |
download | systemtap-steved-8a43522c150e94623ee90857c62d3fb7f5b58521.tar.gz systemtap-steved-8a43522c150e94623ee90857c62d3fb7f5b58521.tar.xz systemtap-steved-8a43522c150e94623ee90857c62d3fb7f5b58521.zip |
2005-07-26 Graydon Hoare <graydon@redhat.com>
* elaborate.cxx: Revert builtin-function code.
* translate.cxx: Likewise.
* tapsets.{h,cxx}: Likewise.
Diffstat (limited to 'tapsets.cxx')
-rw-r--r-- | tapsets.cxx | 49 |
1 files changed, 0 insertions, 49 deletions
diff --git a/tapsets.cxx b/tapsets.cxx index 6eff619f..43d50fb5 100644 --- a/tapsets.cxx +++ b/tapsets.cxx @@ -1210,50 +1210,6 @@ dwarf_builder::build(systemtap_session & sess, #endif /* HAVE_ELFUTILS_LIBDWFL_H */ -// ------------------------------------------------------------------------ -// Built-in function support class -// ------------------------------------------------------------------------ - -token * -builtin_function::id(string const & name) -{ - token *t = new token; - t->type = tok_identifier; - t->content = name; - t->location.file = "<builtin>"; - return t; -} - -builtin_function::builtin_function(exp_type ty, string const & name) -{ - f = new functiondecl; - f->tok = id(name); - f->name = name; - f->type = ty; - f->body = NULL; -} - -builtin_function & -builtin_function::arg(exp_type e, string const & name) -{ - vardecl *arg = new vardecl; - arg->name = name; - arg->tok = id(name); - arg->type = e; - f->formal_args.push_back(arg); - return *this; -} - -void -builtin_function::bind(systemtap_session & s) -{ - for (unsigned i = 0; i < s.functions.size(); ++i) - { - if (s.functions[i]->name == f->name) - throw semantic_error("builtin function " + f->name + " registered twice"); - } - s.functions.push_back(f); -} // ------------------------------------------------------------------------ // Standard tapset registry. @@ -1269,9 +1225,4 @@ register_standard_tapsets(systemtap_session & s) #ifdef HAVE_ELFUTILS_LIBDWFL_H dwarf_derived_probe::register_patterns(s.pattern_root); #endif /* HAVE_ELFUTILS_LIBDWFL_H */ - - // Some standard builtins - builtin_function(pe_long, "printk").arg(pe_string, "message").bind(s); - builtin_function(pe_long, "log").arg(pe_string, "message").bind(s); - builtin_function(pe_long, "warn").arg(pe_string, "message").bind(s); } |