Use getinterp instead of new ParrotInterpreter to improve performance…

… (part 2...missed some!)
rakudo · May 6, 2009 · 45ddf59 · 45ddf59
1 parent a40974a
commit 45ddf59
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/src/builtins/eval.pir b/src/builtins/eval.pir
@@ -170,7 +170,7 @@ itself can be found in src/builtins/control.pir.
     import_ns = get_hll_namespace
     goto got_import_ns
   use_caller_ns:
-    $P0 = new 'ParrotInterpreter'
+    $P0 = getinterp
     $P0 = $P0['sub'; 1]
     import_ns = $P0.'get_namespace'()
   got_import_ns:

diff --git a/src/builtins/guts.pir b/src/builtins/guts.pir
@@ -1261,7 +1261,7 @@ Internal helper method to create a role with a single parameterless variant.
     .return(role)
 .end
 .sub '!create_simple_role_helper'
-    $P0 = new 'ParrotInterpreter'
+    $P0 = getinterp
     $P0 = $P0['sub']
     $P0 = getprop '$!metarole', $P0
     .return ($P0)
@@ -1516,7 +1516,7 @@ Loads any existing values of state variables for a block.
 
 .sub '!state_var_init'
     .local pmc lexpad, state_store, names_it
-    $P0 = new 'ParrotInterpreter'
+    $P0 = getinterp
     lexpad = $P0['lexpad'; 1]
     $P0 = $P0['sub'; 1]
     state_store = getprop '$!state_store', $P0
@@ -1546,7 +1546,7 @@ initialized already.
 
 .sub '!state_var_inited'
     .param string name
-    $P0 = new 'ParrotInterpreter'
+    $P0 = getinterp
     $P0 = $P0['sub'; 1]
     $P0 = getprop '$!state_store', $P0
     $P0 = $P0[name]