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