[Yap-commits] CVS: C heapgc.c,1.19,1.20

[Vitor S. C. <vs...@us...>]

Update of /cvsroot/yap/C
In directory usw-pr-cvs1:/tmp/cvs-serv11082/C

Modified Files:
	heapgc.c 
Log Message:
fix debugging messages and bad comparison


Index: heapgc.c
===================================================================
RCS file: /cvsroot/yap/C/heapgc.c,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -r1.19 -r1.20
--- heapgc.c	2001/06/12 16:31:09	1.19
+++ heapgc.c	2001/06/18 18:23:14	1.20
@@ -1414,7 +1414,7 @@
     case _retry_profiled:
       {
 	Atom at;
-	UInt arity;
+	Int arity;
 	SMALLUNSGN mod;
 	if (PredForCode((CODEADDR)gc_B->cp_ap, &at, &arity, &mod))
 	  YP_fprintf(YP_stderr,"B  %p (%s) at %s/%d  with %d,%d\nf", gc_B, op_names[opnum], RepAtom(at)->StrOfAE, arity, gc_B->cp_h-H0, total_marked);
@@ -2644,8 +2644,8 @@
     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 && 10*total_marked < H-H0) {
-    int effectiveness = (((H-H0)-total_marked)*100)/(H-H0);
 #ifdef DEBUG
+    int effectiveness = (((H-H0)-total_marked)*100)/(H-H0);
     YP_fprintf(YP_stderr,"[GC] using pointers (%d)\n", effectiveness);
 #endif
     quicksort((CELL_PTR *)H, 0, (iptop-(CELL_PTR *)H)-1);