Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Seems that we already end up with file annotations being emitted, so …
…don't add them again in an extra way in the Actions. The extra way in question also didn't escape output, meaning a foobar'd.p6 would cause invalid code-gen; sisar++ for reporting.
  • Loading branch information
jnthn committed Mar 11, 2012
1 parent bd6fdeb commit b13c517
Showing 1 changed file with 0 additions and 6 deletions.
6 changes: 0 additions & 6 deletions src/Perl6/Actions.pm
Expand Up @@ -302,12 +302,6 @@ class Perl6::Actions is HLL::Actions {
)
);

# Add file annotation.
my $file := pir::find_caller_lex__ps('$?FILES');
unless pir::isnull($file) {
$outer.unshift(PAST::Op.new(:inline(".annotate 'file', '" ~ $file ~ "'")));
}

# Pass some extra bits along to the optimizer.
$outer<UNIT> := $unit;
$outer<GLOBALish> := $*GLOBALish;
Expand Down

0 comments on commit b13c517

Please sign in to comment.