buglet

Author: FROGGS

src/QRegex/Cursor.nqp

@@ -653,7 +653,7 @@ class NQPMatch is NQPCapture {
     method Num() is parrot_vtable('get_number')  { +self.Str() }
 #?endif
 #?if !parrot
-    method Str() { nqp::substr($!orig, $!from, $!to-$!from) }
+    method Str() { $!to > $!from ?? nqp::substr($!orig, $!from, $!to-$!from) !! '' }
     method Int() { +self.Str() }
     method Num() { +self.Str() }
 #?endif

src/vm/moar/QAST/QASTOperationsMAST.nqp

@@ -962,6 +962,7 @@ QAST::MASTOperations.add_core_op('call', sub ($qastcomp, $op) {
         return $qastcomp.as_mast(QAST::Op.new( :op($realname), |$op.list ));
     }
 
+    say(42);
     # Work out what callee is.
     my $callee;
     my @args := $op.list;

src/vm/moar/QAST/QASTRegexCompilerMAST.nqp

@@ -432,17 +432,8 @@ class QAST::MASTRegexCompiler {
 
     method enumcharlist($node) {
         my @ins;
-        if $node.negate {
-            my $ok := label(self.unique($*RXPREFIX ~ '_enumcharlist'));
-            nqp::push(@ins,
-                op('indexat_scb', %*REG<tgt>, %*REG<pos>, sval($node[0]), $ok));
-            nqp::push(@ins, op('goto', %*REG<fail>));
-            nqp::push(@ins, $ok);
-        }
-        else {
-            nqp::push(@ins,
-                op('indexat_scb', %*REG<tgt>, %*REG<pos>, sval($node[0]), %*REG<fail>));
-        }
+        my $op := $node.negate ?? 'indexnat' !! 'indexat';
+        nqp::push(@ins, op($op, %*REG<tgt>, %*REG<pos>, sval($node[0]), %*REG<fail>));
         nqp::push(@ins, op('inc_i', %*REG<pos>))
             unless $node.subtype eq 'zerowidth';
         @ins