Add 'file' annotation to generate code.

rakudo · May 15, 2009 · e4f7b12 · e4f7b12
1 parent a1055ac
commit e4f7b12
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/build/PARROT_REVISION b/build/PARROT_REVISION
@@ -1 +1 @@
-38768
+38795
diff --git a/src/parser/actions.pm b/src/parser/actions.pm
@@ -83,6 +83,8 @@ method TOP($/) {
     }
 
     $main.hll($?RAKUDO_HLL);
+    my $?FILE := Q:PIR { %r = find_caller_lex '$?FILES' };
+    $main.unshift(PAST::Op.new(:inline(".annotate 'file', '" ~ $?FILE ~ "'")));
     make $main;
 }