Cheng Shao pushed to branch wip/D4759 at Glasgow Haskell Compiler / GHC

Commits:

1 changed file:

Changes:

  • rts/include/rts/storage/ClosureMacros.h
    ... ... @@ -323,7 +323,7 @@ EXTERN_INLINE bool LOOKS_LIKE_INFO_PTR_NOT_NULL (StgWord p);
    323 323
     EXTERN_INLINE bool LOOKS_LIKE_INFO_PTR_NOT_NULL (StgWord p)
    
    324 324
     {
    
    325 325
         StgInfoTable *info = INFO_PTR_TO_STRUCT((StgInfoTable *)p);
    
    326
    -    return info->type != INVALID_OBJECT && info->type < N_CLOSURE_TYPES;
    
    326
    +    return info->type != INVALID_OBJECT && info->type < N_CLOSURE_TYPES && !HEAP_ALLOCED(p);
    
    327 327
     }
    
    328 328
     
    
    329 329
     EXTERN_INLINE bool LOOKS_LIKE_INFO_PTR (StgWord p);