diff --git a/includes/rts/storage/ClosureMacros.h b/includes/rts/storage/ClosureMacros.h index 7bc05cbf8a69b6bfbbb7625486b6e4d4dcb47df4..97b58a033aa9a486f02db50169a4a4a0d346cbe2 100644 --- a/includes/rts/storage/ClosureMacros.h +++ b/includes/rts/storage/ClosureMacros.h @@ -256,8 +256,8 @@ INLINE_HEADER bool LOOKS_LIKE_INFO_PTR (StgWord p) INLINE_HEADER bool LOOKS_LIKE_CLOSURE_PTR (const void *p) { - StgWord info = RELAXED_LOAD((StgWord*) &UNTAG_CONST_CLOSURE((const StgClosure *) (p))->header.info); - return LOOKS_LIKE_INFO_PTR(info); + const StgInfoTable *info = RELAXED_LOAD(&UNTAG_CONST_CLOSURE((const StgClosure *) (p))->header.info); + return LOOKS_LIKE_INFO_PTR((StgWord) info); } /* -----------------------------------------------------------------------------