diff options
| author | Austin Seipp <austin@well-typed.com> | 2013-12-09 06:08:31 -0600 |
|---|---|---|
| committer | Austin Seipp <austin@well-typed.com> | 2013-12-09 06:08:31 -0600 |
| commit | 8528165d08391f328ac39b7c65f8e1f22fbfd8e8 (patch) | |
| tree | bb898dff99c59289095130e324c08f27354a5e3f | |
| parent | 980badd133d0e8694bfe2fad7c123da0e51c3250 (diff) | |
| download | haskell-8528165d08391f328ac39b7c65f8e1f22fbfd8e8.tar.gz | |
Fix windows x86_64 build.
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>
| -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; |