stgFree(generations[g].steps);
stgFree(generations);
freeAllMBlocks();
+#if defined(THREADED_RTS)
+ closeMutex(&sm_mutex);
+ closeMutex(&atomic_modify_mutvar_mutex);
+#endif
}
/* -----------------------------------------------------------------------------
}
lnat
-allocated_bytes( void )
+allocatedBytes( void )
{
lnat allocated;
nat allocated;
bdescr *bd;
- allocated = allocated_bytes();
+ allocated = allocatedBytes();
allocated += countNurseryBlocks() * BLOCK_SIZE_W;
{