diff options
| author | Herbert Valerio Riedel <hvr@gnu.org> | 2014-01-19 14:37:05 +0100 |
|---|---|---|
| committer | Herbert Valerio Riedel <hvr@gnu.org> | 2014-01-19 14:43:38 +0100 |
| commit | fe3740bd931ca30c22d956816f71be9026eeef54 (patch) | |
| tree | a364a13241602a3a5e94d54c5c585711208d5ebe /includes/rts/storage/ClosureMacros.h | |
| parent | 1ad599ea241626f47006fa386e4aaf38dc91fdbb (diff) | |
| download | haskell-fe3740bd931ca30c22d956816f71be9026eeef54.tar.gz | |
Make `#include "Rts.h"` C++-compatible again (re #8676)
Signed-off-by: Herbert Valerio Riedel <hvr@gnu.org>
Diffstat (limited to 'includes/rts/storage/ClosureMacros.h')
| -rw-r--r-- | includes/rts/storage/ClosureMacros.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/includes/rts/storage/ClosureMacros.h b/includes/rts/storage/ClosureMacros.h index 8933e85eb7..88434d4e79 100644 --- a/includes/rts/storage/ClosureMacros.h +++ b/includes/rts/storage/ClosureMacros.h @@ -245,12 +245,12 @@ TAG_CLOSURE(StgWord tag,StgClosure * p) INLINE_HEADER rtsBool LOOKS_LIKE_INFO_PTR_NOT_NULL (StgWord p) { StgInfoTable *info = INFO_PTR_TO_STRUCT((StgInfoTable *)p); - return info->type != INVALID_OBJECT && info->type < N_CLOSURE_TYPES; + return (info->type != INVALID_OBJECT && info->type < N_CLOSURE_TYPES) ? rtsTrue : rtsFalse; } INLINE_HEADER rtsBool LOOKS_LIKE_INFO_PTR (StgWord p) { - return p && (IS_FORWARDING_PTR(p) || LOOKS_LIKE_INFO_PTR_NOT_NULL(p)); + return (p && (IS_FORWARDING_PTR(p) || LOOKS_LIKE_INFO_PTR_NOT_NULL(p))) ? rtsTrue : rtsFalse; } INLINE_HEADER rtsBool LOOKS_LIKE_CLOSURE_PTR (void *p) |