From 4a3f7a2b2fc48670b188c790991e332205e92bb2 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Wed, 5 Jan 2005 05:22:40 +0000
Subject: [PATCH] don't keep on growing gc threshold.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1224 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 C/heapgc.c | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/C/heapgc.c b/C/heapgc.c
index e4fe2eb8b..cdfeb4833 100644
--- a/C/heapgc.c
+++ b/C/heapgc.c
@@ -3556,8 +3556,10 @@ call_gc(UInt gc_lim, Int predarity, CELL *current_env, yamop *nextop)
       gc_margin <<= GcCalls;
     else {
       /* next grow linearly */
-      gc_margin <<= 8;
-      gc_margin *= GcCalls;
+      /* don't do this: it forces the system to ask for ever more stack!!
+	 gc_margin <<= 8;
+	 gc_margin *= GcCalls;
+      */
     }
   }
   if (gc_margin < gc_lim)