remove debugging case

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

View File

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