Fix windows x86_64 build.
authorAustin Seipp <austin@well-typed.com>
Mon, 9 Dec 2013 12:08:31 +0000 (06:08 -0600)
committerAustin Seipp <austin@well-typed.com>
Mon, 9 Dec 2013 12:08:31 +0000 (06:08 -0600)
On win64 sizeof(long) != sizeof(void*), so debugTrace was casting a
value of incorrect size causing a validate failure.

Signed-off-by: Austin Seipp <austin@well-typed.com>
rts/sm/GC.c

index 8cae2c9..1ecbaf5 100644 (file)
@@ -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;