basement-cd-0.0.12.1: cbits/basement_rts.c

#include "Rts.h"

#if __GLASGOW_HASKELL__ < 802
int basement_is_bytearray_pinned(void *p)
{
    return Bdescr((StgPtr) p)->flags & BF_PINNED;
}
#endif