Hopefully final round of pir:: fixes.

Author: jnthn

src/HLL/Compiler.pm

@@ -45,7 +45,7 @@ class HLL::Compiler {
     my sub value_type($value) {
         pir::isa__IPs($value, 'NameSpace')
             ?? 'namespace'
-            !! (pir::isa($value, 'Sub') ?? 'sub' !! 'var')
+            !! (pir::isa__IPs($value, 'Sub') ?? 'sub' !! 'var')
     }
 
     method get_exports($module, :$tagset, *@symbols) {
@@ -203,9 +203,9 @@ class HLL::Compiler {
             if (%adverbs<profile>) {
                 pir::set_runcore__vs("subprof_hll");
             }
-            pir::trace(%adverbs<trace>);
+            pir::trace__vI(%adverbs<trace>);
             $output := $output(|@args);
-            pir::trace(0);
+            pir::trace__0i(0);
         }
         pir::set_runcore__vs($old_runcore);
 
@@ -417,8 +417,8 @@ class HLL::Compiler {
 
         my $target := nqp::lc(%adverbs<target>);
         my $result := $source;
-        my $stderr := pir::getinterp().stderr_handle;
-        my $stdin  := pir::getinterp().stdin_handle;
+        my $stderr := pir::getinterp__P().stderr_handle;
+        my $stdin  := pir::getinterp__P().stdin_handle;
         my $stagestats := %adverbs<stagestats>;
         for self.stages() {
             my $timestamp := nqp::time_n();
@@ -496,7 +496,7 @@ class HLL::Compiler {
     }
 
     method pir($source, *%adverbs) {
-        if pir::can($source, 'pir') {
+        if nqp::can($source, 'pir') {
             my $*PIRT := 1;
             self.pirbegin() ~ $source.pir()
         }

src/QRegex/Cursor.nqp

@@ -486,7 +486,7 @@ class NQPCursor does NQPCursorRole {
     my $EMPTY_MATCH_HASH := nqp::hash();
     method MATCH() {
         my $match := nqp::getattr(self, NQPCursor, '$!match');
-        unless nqp::istype($match, NQPMatch) || pir::isa($match, 'Hash') {
+        unless nqp::istype($match, NQPMatch) || pir::isa__IPs($match, 'Hash') {
             my $list := $EMPTY_MATCH_LIST;
             my $hash := $EMPTY_MATCH_HASH;
             $match := nqp::create(NQPMatch);