#if defined(THREADED_RTS)
initMutex(&sm_mutex);
+ initMutex(&atomic_modify_mutvar_mutex);
#endif
ACQUIRE_SM_LOCK;
stat_exit(calcAllocated());
}
+void
+freeStorage (void)
+{
+ freeAllMBlocks();
+}
+
/* -----------------------------------------------------------------------------
CAF management.