RTS tidyup sweep, first phase

[ghc-hetmet.git] / rts / sm / Sweep.c

diff --git a/rts/sm/Sweep.c b/rts/sm/Sweep.c
index 9251290..b657402 100644 (file)
--- a/rts/sm/Sweep.c
+++ b/rts/sm/Sweep.c
@@ -11,9 +11,11 @@
  *
  * ---------------------------------------------------------------------------*/
 
+#include "PosixSource.h"
 #include "Rts.h"
+
+#include "Storage.h"
 #include "Sweep.h"
-#include "Block.h"
 #include "Trace.h"
 
 void
@@ -70,7 +72,7 @@ sweep(step *step)
 
     step->live_estimate = live;
 
-    trace(DEBUG_gc|TRACE_gc, "sweeping: %d blocks, %d were copied, %d freed (%d%%), %d are fragmented, live estimate: %ld%%",
+    debugTrace(DEBUG_gc, "sweeping: %d blocks, %d were copied, %d freed (%d%%), %d are fragmented, live estimate: %ld%%",
           step->n_old_blocks + freed,
           step->n_old_blocks - blocks + freed,
           freed,