1 #include "Rts.h" 2 3 #if __GLASGOW_HASKELL__ < 802 basement_is_bytearray_pinned(void * p)4 int basement_is_bytearray_pinned(void *p) 5 { 6 return Bdescr((StgPtr) p)->flags & BF_PINNED; 7 } 8 #endif 9