From e98f8d7106cd93e65a1c9f7af780b865dd04e92b Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Mon, 7 May 2001 14:01:09 +0000
Subject: [PATCH] make gc work outside debugging

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@28 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 C/heapgc.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/C/heapgc.c b/C/heapgc.c
index 6b245e504..63099476d 100644
--- a/C/heapgc.c
+++ b/C/heapgc.c
@@ -2550,8 +2550,8 @@ compaction_phase(tr_fr_ptr old_TR, CELL *current_env, yamop *curp, CELL *max)
     YP_fprintf(YP_stderr,"[GC] Oops on iptop-H (%d) vs %d\n", iptop-(CELL_PTR *)H, total_marked);
 #endif
   if (iptop < (CELL_PTR *)ASP-1024 && 10*total_marked < H-H0) {
-#ifdef DEBUG_IN
     int effectiveness = (((H-H0)-total_marked)*100)/(H-H0);
+#ifdef DEBUG
     fprintf(stderr,"using pointers (%d)\n", effectiveness);
 #endif
     quicksort((CELL_PTR *)H, 0, (iptop-(CELL_PTR *)H)-1);