X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FWeak.c;h=e97ff57e9a7806b7d71ef912800eec9578685392;hb=5123ae93cfc5cdfcecc84340a9517580ad900d64;hp=f0103952212399ca567866428f27390ef0015430;hpb=0065d5ab628975892cea1ec7303f968c3338cbe1;p=ghc-hetmet.git

diff --git a/rts/Weak.c b/rts/Weak.c
index f010395..e97ff57 100644
--- a/rts/Weak.c
+++ b/rts/Weak.c
@@ -7,16 +7,15 @@
  * ---------------------------------------------------------------------------*/
 
 #include "PosixSource.h"
-#define COMPILING_RTS_MAIN
 #include "Rts.h"
 #include "RtsUtils.h"
 #include "SchedAPI.h"
 #include "RtsFlags.h"
 #include "Weak.h"
-#include "Storage.h"
 #include "Schedule.h"
 #include "Prelude.h"
 #include "RtsAPI.h"
+#include "Trace.h"
 
 StgWeak *weak_ptr_list;
 
@@ -70,7 +69,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);