From 6a505121fc997e6f21d26f8c8656f99e58faaaab Mon Sep 17 00:00:00 2001
From: fche <fche>
Date: Sat, 3 Sep 2005 16:52:41 +0000
Subject: 2005-09-03  Frank Ch. Eigler  <fche@elastic.org>

	PR 1292, by popular request.
	* parse.cxx (parse_functiondecl): Allow optional value/param type
	declarations.
	* stap.1.in: Document this.
	* tapset/*.stp: Convert most functions accordingly.
	* testsuite/parseok/twelve.stp, semok/seven.stp,
	semko/twenty.stp: Test this.
---
 tapset/logging.stp | 28 ++++++----------------------
 1 file changed, 6 insertions(+), 22 deletions(-)

(limited to 'tapset/logging.stp')

diff --git a/tapset/logging.stp b/tapset/logging.stp
index a2abf922..eff7b555 100644
--- a/tapset/logging.stp
+++ b/tapset/logging.stp
@@ -1,44 +1,28 @@
 # This file contains simple bridging functions to the runtime
 
-function _print (msg) %{
+function print (msg:string) %{
     _stp_print (THIS->msg);
 %}
 
-function print (msg) {
-    _print (msg . "\n")
-}
-
-// same as print
+// almost the same as print
 function log (msg) {
-    _print (msg . "\n")
+    print (msg . "\n")
 }
 
-function _printk (msg) %{
+function printk (msg:string) %{
     printk (KERN_INFO "%s\n", THIS->msg);
 %}
 
-function printk (msg) {
-    _printk (msg . "")
-}
-
-function _warn (msg) %{
+function warn (msg:string) %{
     _stp_warn ("%s", THIS->msg);
 %}
 
-function warn (msg) {
-    _warn (msg . "")
-}
-
 // NB: exit() does *not* cause immediate return from current function/probe
 function exit () %{
     _stp_exit ();
 %}
 
-function _error (msg) %{
+function error (msg:string) %{
     CONTEXT->last_error = "called error()"; /* kill current probe */
     _stp_error ("%s", THIS->msg); /* implies _stp_exit */
 %}
-
-function error (msg) {
-    _error (msg . "")
-}
-- 
cgit