use parrot op to switch to the profiling runcore

Author: mlschroe

src/HLL/Compiler.pm

@@ -200,9 +200,9 @@ class HLL::Compiler {
     method eval($code, *@args, *%adverbs) {
         my $output;
 
-        my $old_runcore := pir::nqp_get_runcore__s();
+        my $old_runcore := pir::interpinfo__si(pir::const::INTERPINFO_CURRENT_RUNCORE);
         if (%adverbs<profile-compile>) {
-            pir::nqp_set_runcore__vs("subprof_hll");
+            pir::set_runcore__vs("subprof_hll");
         }
         $output := self.compile($code, |%adverbs);
 
@@ -214,13 +214,13 @@ class HLL::Compiler {
             }
 
             if (%adverbs<profile>) {
-                pir::nqp_set_runcore__vs("subprof_hll");
+                pir::set_runcore__vs("subprof_hll");
             }
             pir::trace(%adverbs<trace>);
             $output := $output(|@args);
             pir::trace(0);
         }
-        pir::nqp_set_runcore__vs($old_runcore);
+        pir::set_runcore__vs($old_runcore);
 
         $output;
     }

src/ops/nqp.ops

@@ -1798,30 +1798,6 @@ inline op nqp_radix(out PMC, in INT, in STR, in INT, in INT) :base_core {
 
 /*
 
-=item nqp_get_runcore()
-
-Returns the name of the current runcore.
-
-=item nqp_set_runcore(name)
-
-Switches parrot's runcore to the specified one.
-
-=cut
-
-*/
-
-inline op nqp_get_runcore(out STR) :base_core {
-    $1 = interp->run_core->name;
-}
-
-
-inline op nqp_set_runcore(in STR) :flow {
-    Parrot_runcore_switch(interp, $1);
-    restart NEXT();
-}
-    
-/*
-
 =item inline op is_uprop(out INT, in STR, in STR, in INT)
 
 Sets a true value in $1 if character $4 in string $3 has the unicode property

tools/build/PARROT_REVISION

@@ -1 +1 @@
-RELEASE_3_10_0-30-ga8cb7da
+RELEASE_3_10_0-77-g6081fbd