diff options
| -rw-r--r-- | rts/sm/GC.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/sm/GC.c b/rts/sm/GC.c index 8cae2c9629..1ecbaf5ab1 100644 --- a/rts/sm/GC.c +++ b/rts/sm/GC.c @@ -1755,7 +1755,7 @@ static void gcCAFs(void) ASSERT(info->type == IND_STATIC); if (p->static_link == NULL) { - debugTrace(DEBUG_gccafs, "CAF gc'd at 0x%04lx", (long)p); + debugTrace(DEBUG_gccafs, "CAF gc'd at 0x%p", p); SET_INFO((StgClosure*)p,&stg_GCD_CAF_info); // stub it if (prev == NULL) { debug_caf_list = (StgIndStatic*)p->saved_info; |