fix bug in growstack

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1718 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2006-11-14 11:42:26 +00:00
parent feca28c235
commit e112ce1a8a
5 changed files with 53 additions and 10 deletions
--- a/C/grow.c
+++ b/C/grow.c
@@ -599,7 +599,8 @@ static_growglobal(long size, CELL **ptr, CELL *hsplit)
      return FALSE;
    else if (hsplit == (CELL *)omax)
      hsplit = NULL;
-    if (size+H < ASP+4096) {
+    if (size+H < ASP+4096 &&
+	hsplit > H0) {
      /* don't need to expand stacks */
      do_grow = FALSE;
    }