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

remove debugging case

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1460 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2005-11-16 02:13:26 +00:00
parent db16d32668
commit 4d34b03726
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
C/heapgc.c
View File

@ -3765,10 +3765,9 @@ call_gc(UInt gc_lim, Int predarity, CELL *current_env, yamop *nextop)
if (gc_margin < gc_lim) if (gc_margin < gc_lim)
gc_margin = gc_lim; gc_margin = gc_lim;
GcCalls++; GcCalls++;
if (gc_on && !(Yap_PrologMode & InErrorMode) //&& if (gc_on && !(Yap_PrologMode & InErrorMode) &&
/* make sure there is a point in collecting th eheap */ /* make sure there is a point in collecting the heap */
//H-H0 > (LCL0-ASP)/2) { H-H0 > (LCL0-ASP)/2) {
) {
effectiveness = do_gc(predarity, current_env, nextop); effectiveness = do_gc(predarity, current_env, nextop);
if (effectiveness > 90) { if (effectiveness > 90) {
while (gc_margin < H-H0) while (gc_margin < H-H0)