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/dbase.c
+++ b/C/dbase.c
@@ -2511,7 +2511,8 @@ GetDBTerm(DBTerm *DBSP, int src USES_REGS)
      return t;
    }
    pt = CellPtr(DBSP->Contents);
-    if (H+NOf > ASP-CalculateStackGap()/sizeof(CELL)) {
+    CalculateStackGap( PASS_REGS1 );
+    if (H+NOf > ASP-EventFlag/sizeof(CELL)) {
      if (LOCAL_PrologMode & InErrorMode) {
 	if (H+NOf > ASP)
 	  fprintf(GLOBAL_stderr, "\n\n [ FATAL ERROR: No Stack for Error Handling ]\n");