teach parrot and jvm about zerowidth literals

Raku · Nov 20, 2013 · 51192c4 · 51192c4
1 parent c293015
commit 51192c4
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 5 deletions.
diff --git a/src/vm/jvm/QAST/Compiler.nqp b/src/vm/jvm/QAST/Compiler.nqp
@@ -4951,10 +4951,12 @@ class QAST::CompilerJAST {
             $TYPE_STR, 'regionMatches', 'Z', 'Z', 'Integer', $TYPE_STR, 'Integer', 'Integer' ));
         $il.append(JAST::Instruction.new( :op($node.negate ?? 'ifne' !! 'ifeq'), %*REG<fail> ));
 
-        $il.append(JAST::Instruction.new( :op('lload'), %*REG<pos> ));
-        $il.append(JAST::PushIVal.new( :value($litlen) ));
-        $il.append($LADD);
-        $il.append(JAST::Instruction.new( :op('lstore'), %*REG<pos> ));
+        unless $node.subtype eq 'zerowidth' {
+            $il.append(JAST::Instruction.new( :op('lload'), %*REG<pos> ));
+            $il.append(JAST::PushIVal.new( :value($litlen) ));
+            $il.append($LADD);
+            $il.append(JAST::Instruction.new( :op('lstore'), %*REG<pos> ));
+        }
 
         $il;
     }

diff --git a/src/vm/parrot/QAST/Compiler.nqp b/src/vm/parrot/QAST/Compiler.nqp
@@ -1473,7 +1473,7 @@ class QAST::Compiler is HLL::Compiler {
             $ops.push_pirop('nqp_string_equal_at', '$I12', %*REG<tgt>, $litpost, %*REG<pos>);
             $ops.push_pirop($cmpop,   '$I12', 1, %*REG<fail>);
         }
-        $ops.push_pirop('set',    %*REG<pos>, '$I11');
+        $ops.push_pirop('set',    %*REG<pos>, '$I11') unless $node.subtype eq 'zerowidth';
         $ops;
     }