From 6acf241e5ae67f7e929d0bfabf82db8299d2d2e4 Mon Sep 17 00:00:00 2001
From: Ben Gamari <ben@smart-cactus.org>
Date: Mon, 7 Oct 2019 21:22:19 +0000
Subject: [PATCH] Fix it
---
includes/rts/storage/ClosureMacros.h | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/includes/rts/storage/ClosureMacros.h b/includes/rts/storage/ClosureMacros.h
index 7bc05cbf8a69..97b58a033aa9 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);
}
/* -----------------------------------------------------------------------------
--
GitLab