diff options
author | Reid Barton <rwbarton@gmail.com> | 2016-02-01 14:32:38 +0100 |
---|---|---|
committer | Ben Gamari <ben@smart-cactus.org> | 2016-02-01 15:54:04 +0100 |
commit | 63de06a1a0f237aebf457fae97e8eb7e82933bec (patch) | |
tree | b79efc3ccda0c5b67e7b2ed0a416b4596dca5157 | |
parent | 49637f888d21a9020928387757cecb22aa5b9288 (diff) | |
download | haskell-63de06a1a0f237aebf457fae97e8eb7e82933bec.tar.gz |
Fix LOOKS_LIKE_PTR for 64-bit platforms
I'm not sure what this is used for. But it won't correctly
detect RTS-filled slop on 64-bit platforms.
Test Plan:
Untested. But I did verify that
unsigned long x = (unsigned long)0xaaaaaaaaaaaaaaaaULL;
compiles warning-free and produces the expected output using both
gcc and clang, with -Wall -Wextra -O, and with and without -m32.
Reviewers: simonmar, austin, bgamari
Reviewed By: bgamari
Subscribers: thomie
Differential Revision: https://phabricator.haskell.org/D1860
(cherry picked from commit ba88aab0d1223cd5066a66500360df4bddb159d1)
-rw-r--r-- | rts/RetainerProfile.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/RetainerProfile.c b/rts/RetainerProfile.c index ba58c199f0..387c6d758b 100644 --- a/rts/RetainerProfile.c +++ b/rts/RetainerProfile.c @@ -2066,7 +2066,7 @@ retainerProfile(void) #define LOOKS_LIKE_PTR(r) ((LOOKS_LIKE_STATIC_CLOSURE(r) || \ ((HEAP_ALLOCED(r) && ((Bdescr((P_)r)->flags & BF_FREE) == 0)))) && \ - ((StgWord)(*(StgPtr)r)!=0xaaaaaaaa)) + ((StgWord)(*(StgPtr)r)!=(StgWord)0xaaaaaaaaaaaaaaaaULL)) static nat sanityCheckHeapClosure( StgClosure *c ) |