Compilation of literal nodes ignored negate flag; fix this.

Raku · Nov 20, 2011 · 98ef1a1 · 98ef1a1
1 parent a6a4c80
commit 98ef1a1
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/QAST/Compiler.nqp b/src/QAST/Compiler.nqp
@@ -250,10 +250,11 @@ class QAST::Compiler is HLL::Compiler {
         my $litconst := $node[0];
         my $litlen := nqp::chars($litconst);
         my $litpost := self.escape($litconst);
+        my $cmpop := $node.negate ?? 'eq' !! 'ne';
         $ops.push_pirop('add',    '$I11', %*REG<pos>, $litlen);
         $ops.push_pirop('gt',     '$I11', %*REG<eos>, %*REG<fail>);
         $ops.push_pirop('substr', '$S10', %*REG<tgt>, %*REG<pos>, $litlen);
-        $ops.push_pirop('ne',     '$S10', $litpost, %*REG<fail>);
+        $ops.push_pirop($cmpop,   '$S10', $litpost, %*REG<fail>);
         $ops.push_pirop('add',    %*REG<pos>, $litlen);
         $ops;
     }