more bug fixes

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1037 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2004-04-16 19:27:31 +00:00
parent 5b6e8182d1
commit f7a68f97cd
7 changed files with 221 additions and 37 deletions
--- a/C/grow.c
+++ b/C/grow.c
@@ -510,7 +510,7 @@ static_growheap(long size, int fix_code, struct intermediates *cip)
  size = AdjustPageSize(size);
  Yap_ErrorMessage = NULL;
  if (!Yap_ExtendWorkSpace(size)) {
-    Int min_size = (CELL)Yap_TrailTop-(CELL)Yap_GlobalBase;
+    Int min_size = AdjustPageSize(((CELL)Yap_TrailTop-(CELL)Yap_GlobalBase)+MinHeapGap);

    if (size < min_size) size = min_size;
    hole = size;