mark locationless messags as DISLOCATED

rakudo · Dec 14, 2015 · 219ec51 · 219ec51
1 parent fc24ca9
commit 219ec51
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Perl6/Optimizer.nqp b/src/Perl6/Optimizer.nqp
@@ -357,7 +357,7 @@ my class Problems {
 
     method add_memo($past_node, $message, @extras?, :$type!) {
         my $mnode := $past_node.node;
-        if !nqp::can($mnode,'orig') { note($message); return; }
+        if !nqp::can($mnode,'orig') { note("[DISLOCATED MESSAGE] " ~ $message); return; }
         my $line := HLL::Compiler.lineof($mnode.orig, $mnode.from, :cache(1));
         my $key := $message ~ (+@extras ?? "\n" ~ join("\n", @extras) !! "");
         my %cont := %!worrying;