Fix control exception mask for new additions.

jnthn · jnthn · commit ac856c144a38 · 2015-09-17T23:01:35.000+02:00
Now CONTROL also handles AWAIT/EMIT/DONE.
diff --git a/src/vm/moar/QAST/QASTOperationsMAST.nqp b/src/vm/moar/QAST/QASTOperationsMAST.nqp
@@ -1672,7 +1672,7 @@ QAST::MASTOperations.add_core_op('handle', :!inlinable, sub ($qastcomp, $op) {
             unless nqp::existskey(%handler_names, $type) {
                 nqp::die("Invalid handler type '$type'");
             }
-            my $cat_mask := $type eq 'CONTROL' ?? 0xFFE !! %handler_names{$type};
+            my $cat_mask := $type eq 'CONTROL' ?? 0xEFFE !! %handler_names{$type};
 
             # Chain in this handler.
             my $check := QAST::Op.new(

Original file line number	Diff line number	Diff line change
`@@ -1672,7 +1672,7 @@ QAST::MASTOperations.add_core_op('handle', :!inlinable, sub ($qastcomp, $op) {`
`1672`	`1672`	`unless nqp::existskey(%handler_names, $type) {`
`1673`	`1673`	`nqp::die("Invalid handler type '$type'");`
`1674`	`1674`	`}`
`1675`		`- my $cat_mask := $type eq 'CONTROL' ?? 0xFFE !! %handler_names{$type};`
	`1675`	`+ my $cat_mask := $type eq 'CONTROL' ?? 0xEFFE !! %handler_names{$type};`
`1676`	`1676`
`1677`	`1677`	`# Chain in this handler.`
`1678`	`1678`	`my $check := QAST::Op.new(`