-STATIC_INLINE
-void * mapEntryToMBlock(MBlockMap *map, nat i)
-{
- return (void *)(((StgWord)map->addrHigh32) << 32) +
- ((StgWord)i << MBLOCK_SHIFT);
-}
-
-void * getFirstMBlock(void)
-{
- MBlockMap *map;
- nat i, j;
-
- for (j = 0; j < mblock_map_count; j++) {
- map = mblock_maps[j];
- for (i = 0; i < MBLOCK_MAP_SIZE; i++) {
- if (map->mblocks[i]) return mapEntryToMBlock(map,i);
- }
- }
- return NULL;
-}
-
-void * getNextMBlock(void *mblock)