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

fix debugging flags

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@38 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2001-05-22 12:37:23 +00:00
parent ca950e94b9
commit 5c0d82b07d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
C/heapgc.c
View File

@ -25,7 +25,7 @@ static char SccsId[] = "%W% %G%";
#define EARLY_RESET 1 #define EARLY_RESET 1
#define EASY_SHUNTING 1 #define EASY_SHUNTING 1
//#define HYBRID_SCHEME 1 #define HYBRID_SCHEME 1
#ifdef MULTI_ASSIGNMENT_VARIABLES #ifdef MULTI_ASSIGNMENT_VARIABLES
@ -2865,7 +2865,7 @@ gc(Int predarity, CELL *current_env, yamop *nextop)
gc_margin <<= 1; gc_margin <<= 1;
} }
/* expand the stak if effectiveness is less than 20 % */ /* 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(); UInt gap = CalculateStackGap();
if (ASP-H > gc_margin) if (ASP-H > gc_margin)
gc_margin = (ASP-H)+gap; gc_margin = (ASP-H)+gap;