Ignore:
Timestamp:
May 11, 2011, 1:26:19 AM (7 years ago)
Author:
Sam Hocevar
Message:

lisp: count how deep the garbage collector and the evaluator recurse. The
values are unused for now.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • abuse/trunk/src/lisp/lisp.cpp

    r636 r637  
    5454int print_level = 0, trace_level = 0, trace_print_level = 1000;
    5555int total_user_functions;
     56static int evaldepth = 0, maxevaldepth = 0;
    5657
    5758int break_level=0;
     
    30553056    PtrRef ref1(this);
    30563057
     3058    maxevaldepth = Max(maxevaldepth, ++evaldepth);
     3059
    30573060    int tstart = trace_level;
    30583061
     
    31203123  Lisp::CollectSpace(&LSpace::Perm);
    31213124  ret=l_user_stack.pop(1);  */
     3125    --evaldepth;
    31223126
    31233127    return ret;
Note: See TracChangeset for help on using the changeset viewer.