Remove IN_EVAL() function, $*IN_EVAL dynvar.

rakudo · Jul 7, 2010 · c89a843 · c89a843
1 parent 855ca68
commit c89a843
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 32 deletions.
diff --git a/src/cheats/eval.pm b/src/cheats/eval.pm
@@ -1,5 +1,4 @@
 our sub eval(Str $code, :$lang = 'perl6') {
-    my $*IN_EVAL = 1;
     Q:PIR {
         .local pmc interp, caller, code, pbc, result, exception, parrotex
         .local string lang

diff --git a/src/glue/run.pir b/src/glue/run.pir
@@ -21,37 +21,6 @@ of the compilation unit.
  .include 'sysinfo.pasm'
 .include 'iglobals.pasm'
 
-.sub 'IN_EVAL'
-    .local pmc interp
-    .local int level
-    .local int result
-    .local pmc eval
-
-    result = 0
-    level  = 0
-    interp = getinterp
-    eval = get_hll_global '&eval'
-    if null eval goto done
-    eval = getattribute eval, '$!do'
-
-    # interp[sub;$to_high_level] throws an exception
-    # so when we catch one, we're done walking the call chain
-    push_eh done
-  loop:
-    inc level
-    $P0 = interp['sub'; level]
-    if null $P0 goto done
-    eq_addr $P0, eval, has_eval
-    goto loop
-
-  has_eval:
-    inc result
-
-  done:
-    $P0 = box result
-    .return($P0)
-.end
-
 .sub '!GLOBAL_VARS'
     .param pmc args