fix trace

9de1ad50 · simonmarhaskell@gmail.com · aa8efe32 · 9de1ad50
Commit 9de1ad50 authored Apr 16, 2008 by simonmarhaskell@gmail.com
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

rts/sm/Scav.c-inc rts/sm/Scav.c-inc +1 -1

No files found.
--- a/rts/sm/Scav.c-inc
+++ b/rts/sm/Scav.c-inc
@@ -48,7 +48,7 @@ scavenge_block (bdescr *bd)
  step_workspace *ws;

  debugTrace(DEBUG_gc, "scavenging block %p (gen %d, step %d) @ %p",
-	     bd->start, bd->gen_no, bd->step->no, p);
+	     bd->start, bd->gen_no, bd->step->no, bd->u.scan);

  gct->scan_bd = bd;
  gct->evac_step = bd->step;