2005-07-20 Graydon Hoare <graydon@redhat.com>

	* elaborate.{cxx,h} (find_array): Remove.
	(find_scalar): Rename to find_var, add array support.
	* staptree.{cxx,h} (vardecl::compatible_arity): New method.
	* translate.cxx: Refactor, add array read/write support.
	* testsuite/transok/three.stp: Uncomment array uses.
	* testsuite/transok/seven.stp: New test of array r/w.

2 files changed, 22 insertions, 1 deletions

diff --git a/testsuite/transok/seven.stp b/testsuite/transok/seven.stp
new file mode 100755
index 00000000..0c0e00d7
--- /dev/null
+++ b/testsuite/transok/seven.stp
@@ -0,0 +1,19 @@
+#! stap -p3
+#
+# run at -p4 if you want to test the array temporary
+# subexpression variable assignment order is good
+
+global foo, bar
+
+probe begin
+{
+	x = 10
+	foo["hello"] = 25
+	foo["hello"]++
+	++foo["hello"]
+	x = foo["hello"]
+	foo["yo"] *= bar[x, foo["hello"], "goodbye"]++;
+	printk("hello from systemtap")
+}
+
+
diff --git a/testsuite/transok/three.stp b/testsuite/transok/three.stp
index 475b832f..6e99b640 100755
--- a/testsuite/transok/three.stp
+++ b/testsuite/transok/three.stp
@@ -1,11 +1,13 @@
 #! stap -p3
 
+global poo
+
 function f1 (a, b) {
   c = 1;
   d = "hello";
   # poo[c] = bab[d] = "hi"
   bab = "hi";
-  # bab = poo[c];
+  bab = poo[c];
   return 0
 }