Small anchor compilation fix.

jnthn · jnthn · commit d857b01b5436 · 2013-10-11T01:34:31.000+02:00
Gets us down to 2 failures in t/p5regex.
diff --git a/src/vm/moar/QAST/QASTRegexCompilerMAST.nqp b/src/vm/moar/QAST/QASTRegexCompilerMAST.nqp
@@ -337,11 +337,11 @@ class QAST::MASTRegexCompiler {
         elsif $subtype eq 'fail' {
             nqp::push(@ins, op('goto', $fail));
         }
-        elsif $subtype eq 'pass' {
+        elsif $subtype eq 'pass' || $subtype eq '' {
             # Nothing to do.
         }
         else {
-            nqp::die("anchor subtype $subtype NYI");
+            nqp::die("Unknown anchor subtype $subtype");
         }
         release($i11, $MVM_reg_int64);
         @ins

Original file line number	Diff line number	Diff line change
`@@ -337,11 +337,11 @@ class QAST::MASTRegexCompiler {`
`337`	`337`	`elsif $subtype eq 'fail' {`
`338`	`338`	`nqp::push(@ins, op('goto', $fail));`
`339`	`339`	`}`
`340`		`- elsif $subtype eq 'pass' {`
	`340`	`+ elsif $subtype eq 'pass' \|\| $subtype eq '' {`
`341`	`341`	`# Nothing to do.`
`342`	`342`	`}`
`343`	`343`	`else {`
`344`		`- nqp::die("anchor subtype $subtype NYI");`
	`344`	`+ nqp::die("Unknown anchor subtype $subtype");`
`345`	`345`	`}`
`346`	`346`	`release($i11, $MVM_reg_int64);`
`347`	`347`	`@ins`