Changeset 637 for abuse/trunk/src/lisp/lisp.cppTweet

Timestamp:

May 11, 2011, 1:26:19 AM (11 years ago)

Author:

Sam Hocevar

Message:

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

File:

• abuse/trunk/src/lisp/lisp.cpp (modified) (3 diffs)

abuse/trunk/src/lisp/lisp.cpp

@@ -54 +54 @@
 int print_level = 0, trace_level = 0, trace_print_level = 1000;
 int total_user_functions;
+static int evaldepth = 0, maxevaldepth = 0;
 
 int break_level=0;
@@ -3055 +3056 @@
     PtrRef ref1(this);
 
+    maxevaldepth = Max(maxevaldepth, ++evaldepth);
+
     int tstart = trace_level;
 
@@ -3120 +3123 @@
   Lisp::CollectSpace(&LSpace::Perm);
   ret=l_user_stack.pop(1);  */
+    --evaldepth;
 
     return ret;