From 5c0d82b07d00d1cbc5de53b44c01362eacc2bb87 Mon Sep 17 00:00:00 2001 From: vsc Date: Tue, 22 May 2001 12:37:23 +0000 Subject: [PATCH] fix debugging flags git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@38 b08c6af1-5177-4d33-ba66-4b1c6b8b522a --- C/heapgc.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/C/heapgc.c b/C/heapgc.c index 08ebe848d..07b80ef15 100644 --- a/C/heapgc.c +++ b/C/heapgc.c @@ -25,7 +25,7 @@ static char SccsId[] = "%W% %G%"; #define EARLY_RESET 1 #define EASY_SHUNTING 1 -//#define HYBRID_SCHEME 1 +#define HYBRID_SCHEME 1 #ifdef MULTI_ASSIGNMENT_VARIABLES @@ -2865,7 +2865,7 @@ gc(Int predarity, CELL *current_env, yamop *nextop) gc_margin <<= 1; } /* expand the stak if effectiveness is less than 20 % */ - if (FALSE&& ASP - H < gc_margin || !gc_on || effectiveness < 20) { + if (ASP - H < gc_margin || !gc_on || effectiveness < 20) { UInt gap = CalculateStackGap(); if (ASP-H > gc_margin) gc_margin = (ASP-H)+gap;