diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-03-25 16:03:14 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-03-25 16:03:14 +0000 |
| commit | 68ed90d8b2f31f9bcae7b869413819eb8fa0aa40 (patch) | |
| tree | 446f184368310d0fc07acd5161b3634275290d41 /includes/Cmm.h | |
| parent | a7d2d334c07af5c018e5a36be1c3fb44530b56e1 (diff) | |
| download | haskell-68ed90d8b2f31f9bcae7b869413819eb8fa0aa40.tar.gz | |
Fix warnings in the RTS
For some reason this causes build failures for me in my 32-bit chroot,
Diffstat (limited to 'includes/Cmm.h')
| -rw-r--r-- | includes/Cmm.h | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/includes/Cmm.h b/includes/Cmm.h index 715d2b2b0f..d47e6fdaa6 100644 --- a/includes/Cmm.h +++ b/includes/Cmm.h @@ -407,9 +407,12 @@ #define BITMAP_BITS(bitmap) ((bitmap) >> BITMAP_BITS_SHIFT) /* Debugging macros */ -#define LOOKS_LIKE_INFO_PTR(p) \ - ((p) != NULL && \ - (TO_W_(%INFO_TYPE(%STD_INFO(p))) != INVALID_OBJECT) && \ +#define LOOKS_LIKE_INFO_PTR(p) \ + ((p) != NULL && \ + LOOKS_LIKE_INFO_PTR_NOT_NULL(p)) + +#define LOOKS_LIKE_INFO_PTR_NOT_NULL(p) \ + ( (TO_W_(%INFO_TYPE(%STD_INFO(p))) != INVALID_OBJECT) && \ (TO_W_(%INFO_TYPE(%STD_INFO(p))) < N_CLOSURE_TYPES)) #define LOOKS_LIKE_CLOSURE_PTR(p) (LOOKS_LIKE_INFO_PTR(GET_INFO(UNTAG(p)))) |