[svn:parrot] r48032 - in branches/gsoc_past_optimization: runtime/parrot/library/PAST t/library

[tcurtis at svn.parrot.org]

Author: tcurtis
Date: Wed Jul  7 16:31:38 2010
New Revision: 48032
URL: https://trac.parrot.org/parrot/changeset/48032

Log:
Traverse vivibase with PAST::Walker.

Modified:
   branches/gsoc_past_optimization/runtime/parrot/library/PAST/Walker.nqp
   branches/gsoc_past_optimization/t/library/pastwalker.t

Modified: branches/gsoc_past_optimization/runtime/parrot/library/PAST/Walker.nqp
==============================================================================
--- branches/gsoc_past_optimization/runtime/parrot/library/PAST/Walker.nqp	Wed Jul  7 16:23:44 2010	(r48031)
+++ branches/gsoc_past_optimization/runtime/parrot/library/PAST/Walker.nqp	Wed Jul  7 16:31:38 2010	(r48032)
@@ -27,6 +27,7 @@
             walk($walker, $var[$index++]);
         }
         walk($walker, $var.viviself) if $walker.walkable($var.viviself);
+        walk($walker, $var.vivibase) if $walker.walkable($var.vivibase);
     }
 }
 

Modified: branches/gsoc_past_optimization/t/library/pastwalker.t
==============================================================================
--- branches/gsoc_past_optimization/t/library/pastwalker.t	Wed Jul  7 16:23:44 2010	(r48031)
+++ branches/gsoc_past_optimization/t/library/pastwalker.t	Wed Jul  7 16:31:38 2010	(r48032)
@@ -52,7 +52,7 @@
     is($P3, 3, "PAST::Block")
 
     $P3 = $P2['ops']
-    is($P3, 3, "PAST::Op")
+    is($P3, 4, "PAST::Op")
 
     $P3 = $P2['vars']
     is($P3, 2, "PAST::Var")
@@ -72,6 +72,8 @@
     past = new ['PAST';'Block']
 
     $P0 = new ['PAST'; 'Var']
+    $P1 = new ['PAST'; 'Op']
+    $P0.'vivibase'($P1)
     push past, $P0
     $P0 = new ['PAST'; 'Op']
     $P0.'pirop'("call")