From 5409e5bf98ddc994931754d0cb1cae36ba9a08fd Mon Sep 17 00:00:00 2001
From: Mark Wielaard <mjw@redhat.com>
Date: Mon, 16 Nov 2009 21:41:13 +0100
Subject: Add testcase for retrieving $global vars from execs and shared libs.

Explicit testcase for PR10010 and PR10622.

* testsuite/systemtap.base/externalvar.c: New file.
* testsuite/systemtap.base/externalvar.exp: New file.
* testsuite/systemtap.base/externalvar.stp: New file.
* testsuite/systemtap.base/externalvar_lib.c: New file.
---
 testsuite/systemtap.base/externalvar.stp | 39 ++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)
 create mode 100644 testsuite/systemtap.base/externalvar.stp

(limited to 'testsuite/systemtap.base/externalvar.stp')

diff --git a/testsuite/systemtap.base/externalvar.stp b/testsuite/systemtap.base/externalvar.stp
new file mode 100644
index 00000000..7d4b69bb
--- /dev/null
+++ b/testsuite/systemtap.base/externalvar.stp
@@ -0,0 +1,39 @@
+probe process("externalvar").function("main_call")
+{
+  printf("exevar_c = %d\n", $exevar_c);
+  printf("exevar_i = %d\n", $exevar_i);
+  printf("exevar_l = %d\n", $exevar_l);
+
+  printf("exe_s->i = %d\n", $exe_s->i);
+  printf("exe_s->l = %d\n", $exe_s->l);
+  printf("exe_s->c = %d\n", $exe_s->c);
+
+  printf("exe_s->s1 = 0x%x\n", $exe_s->s1);
+  if ($exe_s == $exe_s->s2)
+    {
+      printf("exe_s == exe_s->s2\n");
+    }
+  else
+    {
+      printf("exe_s != exe_s->s2\n");
+    }
+}
+
+probe process("libexternalvar.so").function("lib_call")
+{
+  printf("libvar = %d\n", $libvar);
+
+  printf("lib_s->i = %d\n", $lib_s->i);
+  printf("lib_s->l = %d\n", $lib_s->l);
+  printf("lib_s->c = %d\n", $lib_s->c);
+
+  if ($lib_s == $lib_s->s1)
+    {
+      printf("lib_s == lib_s->s1\n");
+    }
+  else
+    {
+      printf("lib_s != lib_s->s2\n");
+    }
+  printf("lib_s->s2 = 0x%x\n", $lib_s->s2);
+}
-- 
cgit