Get the code right place for per statement line numbers.

Raku · May 14, 2013 · 40b1b76 · 40b1b76
1 parent de8c590
commit 40b1b76
Showing 1 changed file with 6 additions and 5 deletions.
diff --git a/src/vm/jvm/QAST/Compiler.nqp b/src/vm/jvm/QAST/Compiler.nqp
@@ -3493,12 +3493,13 @@ class QAST::CompilerJAST {
             $resultchild := $n - 1;
         }
 
-        if $node {
-            my $line := HLL::Compiler.lineof($node.orig(), $node.from(), :cache(1));            
-            $il.append(JAST::Annotation.new( :line($line) ));
-        }
-
         for @stmts {
+            if $_.node {
+                my $node := $_.node;
+                my $line := HLL::Compiler.lineof($node.orig(), $node.from(), :cache(1));            
+                $il.append(JAST::Annotation.new( :line($line) ));
+            }
+
             my $void := $all_void || $i != $resultchild;
             if $void {
                 if nqp::istype($_, QAST::Want) {