diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

don't keep on growing gc threshold.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1224 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2005-01-05 05:22:40 +00:00
parent b7a44d3808
commit 4a3f7a2b2f
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
C/heapgc.c
View File

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