From 313b2f74ad5b3e54dc1b24d15f29e7bbe9548305 Mon Sep 17 00:00:00 2001 From: graydon Date: Wed, 20 Jul 2005 23:51:17 +0000 Subject: 2005-07-20 Graydon Hoare * 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. --- staptree.cxx | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'staptree.cxx') diff --git a/staptree.cxx b/staptree.cxx index 706f4260..8183cffb 100644 --- a/staptree.cxx +++ b/staptree.cxx @@ -109,6 +109,14 @@ vardecl::set_arity (int a) } } +bool +vardecl::compatible_arity (int a) +{ + if (arity == -1) + return true; + return arity == a; +} + functiondecl::functiondecl (): body (0) -- cgit