diff options
Diffstat (limited to 'includes/Storage.h')
| -rw-r--r-- | includes/Storage.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/includes/Storage.h b/includes/Storage.h index 604e49e043..92a856c963 100644 --- a/includes/Storage.h +++ b/includes/Storage.h @@ -303,7 +303,7 @@ void dirty_MUT_VAR(StgRegTable *reg, StgClosure *p); ((StgInfoTable *)(INFO_PTR_TO_STRUCT(p)))->type < N_CLOSURE_TYPES) #define LOOKS_LIKE_CLOSURE_PTR(p) \ - (LOOKS_LIKE_INFO_PTR(((StgClosure *)(p))->header.info)) + (LOOKS_LIKE_INFO_PTR((UNTAG_CLOSURE((StgClosure *)(p)))->header.info)) /* ----------------------------------------------------------------------------- Macros for calculating how big a closure will be (used during allocation) |