diff options
Diffstat (limited to 'includes/InfoTables.h')
| -rw-r--r-- | includes/InfoTables.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/includes/InfoTables.h b/includes/InfoTables.h index a8e76b05b3..bbffea6468 100644 --- a/includes/InfoTables.h +++ b/includes/InfoTables.h @@ -164,7 +164,7 @@ typedef struct { extern StgWord16 closure_flags[]; -#define closureFlags(c) (closure_flags[get_itbl(c)->type]) +#define closureFlags(c) (closure_flags[get_itbl(UNTAG_CLOSURE(c))->type]) #define closure_HNF(c) ( closureFlags(c) & _HNF) #define closure_BITMAP(c) ( closureFlags(c) & _BTM) |