Fix frugal ** quantifier compilation bug.

jnthn · jnthn · commit 584c4aa5a7a2 · 2014-01-17T16:15:45.000+01:00
diff --git a/src/vm/moar/QAST/QASTRegexCompilerMAST.nqp b/src/vm/moar/QAST/QASTRegexCompilerMAST.nqp
@@ -554,7 +554,7 @@ class QAST::MASTRegexCompiler {
         my $needmark  := $needrep || $backtrack eq 'r';
         my $rep       := %*REG<rep>;
         my $pos       := %*REG<pos>;
-        my $ireg      := fresh_i();
+        my $ireg      := $*REGALLOC.fresh_i(:new); # Must be regex-unique
 
         if $backtrack eq 'f' {
             my $seplabel := label($prefix ~ '_sep');
@@ -621,7 +621,6 @@ class QAST::MASTRegexCompiler {
                 release($minreg, $MVM_reg_int64);
             }
         }
-        release($ireg, $MVM_reg_int64);
         @ins
     }
 

Original file line number	Diff line number	Diff line change
`@@ -554,7 +554,7 @@ class QAST::MASTRegexCompiler {`
`554`	`554`	`my $needmark := $needrep \|\| $backtrack eq 'r';`
`555`	`555`	`my $rep := %*REG<rep>;`
`556`	`556`	`my $pos := %*REG<pos>;`
`557`		`- my $ireg := fresh_i();`
	`557`	`+ my $ireg := $*REGALLOC.fresh_i(:new); # Must be regex-unique`
`558`	`558`
`559`	`559`	`if $backtrack eq 'f' {`
`560`	`560`	`my $seplabel := label($prefix ~ '_sep');`
`@@ -621,7 +621,6 @@ class QAST::MASTRegexCompiler {`
`621`	`621`	`release($minreg, $MVM_reg_int64);`
`622`	`622`	`}`
`623`	`623`	`}`
`624`		`- release($ireg, $MVM_reg_int64);`
`625`	`624`	`@ins`
`626`	`625`	`}`
`627`	`626`