diff options
author | Duncan Coutts <duncan@well-typed.com> | 2020-02-10 08:43:35 +0000 |
---|---|---|
committer | David Eichmann <EichmannD@gmail.com> | 2020-08-18 15:04:15 +0100 |
commit | fae23d1f2dea08663fbcb2a39e4382c52f578488 (patch) | |
tree | 92836231c9fd917a9bd79104299a1d6711587add | |
parent | 4c09e650a2b6a6fc7072d6f4419c0b670b7cb44d (diff) | |
download | haskell-fae23d1f2dea08663fbcb2a39e4382c52f578488.tar.gz |
Fix the HEAP_ALLOCED fallback impl for 32bit arches
-rw-r--r-- | rts/sm/HeapAlloc.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/sm/HeapAlloc.h b/rts/sm/HeapAlloc.h index 942debcd44..3838fb6c06 100644 --- a/rts/sm/HeapAlloc.h +++ b/rts/sm/HeapAlloc.h @@ -89,7 +89,7 @@ extern StgWord8 mblock_map[]; import mblock_map; # define MBLOCK_MAP_ENTRY(p) ((p) >> MBLOCK_SHIFT) -# define HEAP_ALLOCED(p) I8[mblock_map + MBLOCK_MAP_ENTRY(p)] +# define HEAP_ALLOCED(p) (TO_W_(I8[mblock_map + MBLOCK_MAP_ENTRY(p)]) != 0) #endif |