don't do garbage collection while in ErrorMode

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@262 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2002-01-03 16:27:00 +00:00
parent 54729fc4eb
commit 8155e3fbf1
2 changed files with 11 additions and 2 deletions
--- a/C/dbase.c
+++ b/C/dbase.c
@@ -2036,7 +2036,12 @@ GetDBTerm(DBRef DBSP)
    pt = CellPtr(DBSP->Contents);
    NOf = DBSP->NOfCells;
    if (H+NOf > ASP-CalculateStackGap()) {
-      return((Term)0);
+      if (PrologMode & InErrorMode) {
+	if (H+NOf > ASP)
+	  exit_yap( 1, "No Stack for Error Handling\n");
+      } else {
+	return((Term)0);
+      }
    }
    HeapPtr = cpcells(HOld, pt, NOf);
    pt += HeapPtr - HOld;