cleanup on exception handling

2013-12-12 14:24:40 +00:00
parent fba3c34e50
commit 44d28aa0c9
17 changed files with 657 additions and 656 deletions
--- a/C/inlines.c
+++ b/C/inlines.c
@@ -727,7 +727,7 @@ p_functor( USES_REGS1 )			/* functor(?,?,?) */
    pt1 = H;
    *pt1++ = d0;
    d0 = AbsAppl(H);
-    if (pt1+d1 > ENV - CreepFlag) {
+    if (pt1+d1 > ENV - StackGap( PASS_REGS1 )) {
      if (!Yap_gcl((1+d1)*sizeof(CELL), 3, ENV, gc_P(P,CP))) {
 	Yap_Error(OUT_OF_STACK_ERROR, TermNil, LOCAL_ErrorMessage);
 	return FALSE;