[Yap-commits] CVS: C heapgc.c,1.15,1.16

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

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

Modified Files:
	heapgc.c 
Log Message:
fix divide by zero error on debugging message if trail was empty


Index: heapgc.c
===================================================================
RCS file: /cvsroot/yap/C/heapgc.c,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -r1.15 -r1.16
--- heapgc.c	2001/06/08 14:52:53	1.15
+++ heapgc.c	2001/06/08 19:33:16	1.16
@@ -1851,11 +1851,12 @@
   }
   new_TR = dest;
   if (is_gc_verbose()) {
-    YP_fprintf(YP_stderr,
-	       "[GC]       Trail: discarded %d (%ld%%) cells out of %ld\n",
-	       discard_trail_entries,
-	       (unsigned long int)(discard_trail_entries*100/(old_TR-(tr_fr_ptr)TrailBase)),
-	       (unsigned long int)(old_TR-(tr_fr_ptr)TrailBase));
+    if (old_TR != (tr_fr_ptr)TrailBase)
+      YP_fprintf(YP_stderr,
+		 "[GC]       Trail: discarded %d (%ld%%) cells out of %ld\n",
+		 discard_trail_entries,
+		 (unsigned long int)(discard_trail_entries*100/(old_TR-(tr_fr_ptr)TrailBase)),
+		 (unsigned long int)(old_TR-(tr_fr_ptr)TrailBase));
 #ifdef DEBUG
     if (hp_entrs > 0)
       YP_fprintf(YP_stderr,