From 92dad52bd5d51d32fc171620736bdc0ba9b890c4 Mon Sep 17 00:00:00 2001
From: Wenji Huang <wenji.huang@oracle.com>
Date: Thu, 23 Jul 2009 19:04:13 -0400
Subject: PR6898: support $$vars and $$parms for marker

* tapset-mark.cxx (visit_target_symbol_context): Add $$vars/$$parms.
* testsuite/systemtap.base/marker.exp : Test case.
---
 testsuite/systemtap.base/marker.exp | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

(limited to 'testsuite/systemtap.base')

diff --git a/testsuite/systemtap.base/marker.exp b/testsuite/systemtap.base/marker.exp
index 04d0402f..1139ea3b 100644
--- a/testsuite/systemtap.base/marker.exp
+++ b/testsuite/systemtap.base/marker.exp
@@ -275,3 +275,20 @@ if {$kernel_markers_found == 0} {
     stap_compile $TEST_NAME 0 $script
 }
 
+set TEST_NAME "K_MARKER22"
+if {$kernel_markers_found == 0} {
+    untested "$TEST_NAME : no kernel markers present"
+} else {
+    # Try compiling a script that print $$parms.
+    set script_vars {"probe kernel.mark(\"*\") { printf(\"%s\",\$\$parms) }"}
+    stap_compile $TEST_NAME 1 $script_vars
+}
+
+set TEST_NAME "K_MARKER23"
+if {$kernel_markers_found == 0} {
+    untested "$TEST_NAME : no kernel markers present"
+} else {
+    # Try compiling a script that print $$vars.
+    set script_parms {"probe kernel.mark(\"*\") { printf(\"%s\",\$\$vars) }"}
+    stap_compile $TEST_NAME 1 $script_parms
+}
-- 
cgit