[svn:parrot] r44884 - branches/ops_pct/compilers/opsc/src/Ops/Compiler

[bacek at svn.parrot.org]

Author: bacek
Date: Thu Mar 11 20:43:49 2010
New Revision: 44884
URL: https://trac.parrot.org/parrot/changeset/44884

Log:
Fix generating PAST

Modified:
   branches/ops_pct/compilers/opsc/src/Ops/Compiler/Actions.pm

Modified: branches/ops_pct/compilers/opsc/src/Ops/Compiler/Actions.pm
==============================================================================
--- branches/ops_pct/compilers/opsc/src/Ops/Compiler/Actions.pm	Thu Mar 11 20:43:21 2010	(r44883)
+++ branches/ops_pct/compilers/opsc/src/Ops/Compiler/Actions.pm	Thu Mar 11 20:43:49 2010	(r44884)
@@ -322,8 +322,13 @@
         $past<jump>.push('PARROT_JUMP_RELATIVE');
     }
 
-    for $<body_word> {
-        $past.push($_.ast);
+    #_dumper($<body_word>);
+    if $<body_word> {
+        for $<body_word> {
+            #say(' word ' ~ $_);
+            my $bit := $_.ast;
+            $past.push($_.ast) if defined($bit);
+        }
     }
     $past<is_next> := $is_next;
     make $past;