diff options
| -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 7a1a66185f..6a6a542041 100644 --- a/rts/RetainerProfile.c +++ b/rts/RetainerProfile.c @@ -2063,7 +2063,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 ) |