New tracing interface

[ghc-hetmet.git] / rts / Weak.c

diff --git a/rts/Weak.c b/rts/Weak.c
index f010395..a83cef9 100644 (file)
--- a/rts/Weak.c
+++ b/rts/Weak.c
@@ -17,6 +17,7 @@
 #include "Schedule.h"
 #include "Prelude.h"
 #include "RtsAPI.h"
 #include "Schedule.h"
 #include "Prelude.h"
 #include "RtsAPI.h"

+#include "Trace.h"

 
 StgWeak *weak_ptr_list;
 
 
 StgWeak *weak_ptr_list;
 

@@ -70,7 +71,7 @@ scheduleFinalizers(Capability *cap, StgWeak *list)
     // No finalizers to run?
     if (n == 0) return;
 
     // 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);
 
     arr = (StgMutArrPtrs *)allocateLocal(cap, sizeofW(StgMutArrPtrs) + n);
     TICK_ALLOC_PRIM(sizeofW(StgMutArrPtrs), n, 0);