A little optimization. Shaves some more seconds of CORE.setting compile time here, and off the spectest also.

Author: jnthn

src/QAST/Compiler.nqp

@@ -1361,7 +1361,9 @@ class QAST::Compiler is HLL::Compiler {
         my $ops := self.post_new('Ops', :result(%*REG<cur>));
         my $name := $*PASTCOMPILER.as_post($node.name, :rtype<*>);
         my $subtype := $node.subtype;
-        my $cpn := $node[0] ~~ QAST::Node ?? self.children($node[0]) !! self.post_children($node[0]);
+        my $cpn := nqp::istype($node[0], QAST::Node)
+            ?? self.children($node[0])
+            !! self.post_children($node[0]);
         my @pargs := $cpn[1] // [];
         my @nargs := $cpn[2] // [];
         my $subpost := nqp::shift(@pargs);

src/QAST/PIRT.nqp

@@ -9,7 +9,7 @@ class PIRT::CallResult {
     method new(:$result!) {
         my $obj := nqp::create(self);
         nqp::bindattr_s($obj, PIRT::CallResult, '$!result',
-            $result ~~ PIRT::Node ?? $result.result !! $result);
+            nqp::istype($result, PIRT::Node) ?? $result.result !! $result);
         $obj
     }
 
@@ -70,10 +70,10 @@ class PIRT::Node {
                 my $result;
                 while $i < $c {
                     $arg := $_[$i];
-                    if $arg ~~ PIRT::Node {
+                    if nqp::istype($arg, PIRT::Node) {
                         nqp::push(@op_args, $arg.result);
                     }
-                    elsif $arg ~~ PIRT::CallResult {
+                    elsif nqp::istype($arg, PIRT::CallResult) {
                         $result := $arg.result;
                         $*HAS_RESULT := 1;
                     }
@@ -92,10 +92,10 @@ class PIRT::Node {
                     nqp::push(@parts, '    ' ~ $op_name ~ ' ' ~ nqp::join(", ", @op_args));
                 }
             }
-            elsif $_ ~~ PIRT::Sub {
+            elsif nqp::istype($_, PIRT::Sub) {
                 nqp::push(@*PIRT_BLOCKS, $_);
             }
-            elsif $_ ~~ PIRT::Node {
+            elsif nqp::istype($_, PIRT::Node) {
                 my $pir := $_.pir;
                 nqp::push(@parts, $pir) unless $pir eq '';
             }
@@ -252,7 +252,7 @@ class PIRT::Ops is PIRT::Node {
         my $obj := nqp::create(self);
         nqp::bindattr($obj, PIRT::Ops, '@!children', nqp::list());
         nqp::bindattr_s($obj, PIRT::Ops, '$!result',
-            $result ~~ PIRT::Node ?? $result.result !! $result);
+            nqp::istype($result, PIRT::Node) ?? $result.result !! $result);
         $obj
     }
     
@@ -269,7 +269,7 @@ class PIRT::Ops is PIRT::Node {
     
     method result(*@value) is parrot_vtable('get_string') {
         if @value {
-            $!result := @value[0] ~~ PIRT::Node ?? @value[0].result !! @value[0];
+            $!result := nqp::istype(@value[0], PIRT::Node) ?? @value[0].result !! @value[0];
         }
         else {
             $!result