Fix CONTROL handler compilation on Moar.

jnthn · jnthn · commit 4165a18f119f · 2013-12-18T11:14:43.000+01:00
diff --git a/src/vm/moar/QAST/QASTOperationsMAST.nqp b/src/vm/moar/QAST/QASTOperationsMAST.nqp
@@ -1485,7 +1485,7 @@ QAST::MASTOperations.add_core_op('handle', sub ($qastcomp, $op) {
         unless nqp::existskey(%handler_names, $type) {
             nqp::die("Invalid handler type '$type'");
         }
-        my $cat_mask := %handler_names{$type};
+        my $cat_mask := $type eq 'CONTROL' ?? 0xFFE !! %handler_names{$type};
 
         # Chain in this handler.
         my $check := QAST::Op.new(

Original file line number	Diff line number	Diff line change
`@@ -1485,7 +1485,7 @@ QAST::MASTOperations.add_core_op('handle', sub ($qastcomp, $op) {`
`1485`	`1485`	`unless nqp::existskey(%handler_names, $type) {`
`1486`	`1486`	`nqp::die("Invalid handler type '$type'");`
`1487`	`1487`	`}`
`1488`		`- my $cat_mask := %handler_names{$type};`
	`1488`	`+ my $cat_mask := $type eq 'CONTROL' ?? 0xFFE !! %handler_names{$type};`
`1489`	`1489`
`1490`	`1490`	`# Chain in this handler.`
`1491`	`1491`	`my $check := QAST::Op.new(`