[svn:parrot] r40904 - in branches/context_pmc3/src: call interp

[bacek at svn.parrot.org]

Author: bacek
Date: Tue Sep  1 10:44:15 2009
New Revision: 40904
URL: https://trac.parrot.org/parrot/changeset/40904

Log:
Switch Context.inc_recursion_depth to postincrement to avoid assign -1 to UINTVAL.

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

Modified: branches/context_pmc3/src/call/context.c
==============================================================================
--- branches/context_pmc3/src/call/context.c	Tue Sep  1 10:17:43 2009	(r40903)
+++ branches/context_pmc3/src/call/context.c	Tue Sep  1 10:44:15 2009	(r40904)
@@ -199,7 +199,7 @@
 
 =item C<UINTVAL Parrot_pcc_inc_recursion_depth(PARROT_INTERP, PMC *ctx)>
 
-Increase recurtion depth. Returns new recursion_depth value.
+Increase recurtion depth. Returns previous recursion_depth value.
 
 =cut
 
@@ -211,7 +211,7 @@
 {
     ASSERT_ARGS(Parrot_pcc_inc_recursion_depth)
     Parrot_Context *c = Parrot_pcc_get_context_struct(interp, ctx);
-    return ++c->recursion_depth;
+    return c->recursion_depth++;
 }
 
 /*

Modified: branches/context_pmc3/src/interp/inter_create.c
==============================================================================
--- branches/context_pmc3/src/interp/inter_create.c	Tue Sep  1 10:17:43 2009	(r40903)
+++ branches/context_pmc3/src/interp/inter_create.c	Tue Sep  1 10:44:15 2009	(r40904)
@@ -211,9 +211,6 @@
 
     create_initial_context(interp);
 
-    /* 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 */
     Parrot_pcc_set_sub(interp, CURRENT_CONTEXT(interp), NULL);
     Parrot_pcc_set_continuation(interp, CURRENT_CONTEXT(interp), NULL); /* TODO Use PMCNULL */