[svn:parrot] r40733 - branches/context_pmc3/src/interp

[bacek at svn.parrot.org]

Author: bacek
Date: Sun Aug 23 12:50:28 2009
New Revision: 40733
URL: https://trac.parrot.org/parrot/changeset/40733

Log:
[core] Restore set on initial recursion_depth to -1.

Modified:
   branches/context_pmc3/src/interp/inter_create.c

Modified: branches/context_pmc3/src/interp/inter_create.c
==============================================================================
--- branches/context_pmc3/src/interp/inter_create.c	Sun Aug 23 12:50:08 2009	(r40732)
+++ branches/context_pmc3/src/interp/inter_create.c	Sun Aug 23 12:50:28 2009	(r40733)
@@ -156,8 +156,6 @@
     interp->ctx         = PMCNULL;
     interp->resume_flag = RESUME_INITIAL;
 
-    /* main is called as a Sub too - this will get depth 0 then */
-    //CURRENT_CONTEXT_FIELD(interp, recursion_depth) = (UINTVAL)-1;
     interp->recursion_limit = RECURSION_LIMIT;
 
     /* PANIC will fail until this is done */
@@ -212,6 +210,9 @@
     PARROT_ERRORS_on(interp, PARROT_ERRORS_RESULT_COUNT_FLAG);
 #endif
 
+    /* main is called as a Sub too - this will get depth 0 then */
+    CURRENT_CONTEXT_FIELD(interp, recursion_depth) = (UINTVAL)-1;
+
     /* clear context introspection vars */
     CURRENT_CONTEXT_FIELD(interp, current_sub)    = NULL;
     CURRENT_CONTEXT_FIELD(interp, current_cont)   = NULL;