/* -----------------------------------------------------------------------*-c-*-
*
- * (c) The GHC Team 1998-2006
+ * (c) The GHC Team 1998-2008
*
* Generational garbage collector: scavenging functions
*
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;