X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2FWeak.c;h=a83cef995f64ece71523fa61e3593c622532445d;hp=f0103952212399ca567866428f27390ef0015430;hb=5a2769f0273dd389977e8283375e7920d183bdd4;hpb=3f10646cfe2c3409056a49d1ef1c4507af522573

diff --git a/rts/Weak.c b/rts/Weak.c
index f010395..a83cef9 100644
--- a/rts/Weak.c
+++ b/rts/Weak.c
@@ -17,6 +17,7 @@
 #include "Schedule.h"
 #include "Prelude.h"
 #include "RtsAPI.h"
+#include "Trace.h"
 
 StgWeak *weak_ptr_list;
 
@@ -70,7 +71,7 @@ scheduleFinalizers(Capability *cap, StgWeak *list)
     // No finalizers to run?
     if (n == 0) return;
 
-    IF_DEBUG(weak,debugBelch("weak: batching %d finalizers\n", n));
+    debugTrace(DEBUG_weak, "weak: batching %d finalizers", n);
 
     arr = (StgMutArrPtrs *)allocateLocal(cap, sizeofW(StgMutArrPtrs) + n);
     TICK_ALLOC_PRIM(sizeofW(StgMutArrPtrs), n, 0);