RtsFlags.GcFlags.minAllocAreaSize >
RtsFlags.GcFlags.maxHeapSize) {
errorBelch("maximum heap size (-M) is smaller than minimum alloc area size (-A)");
- exit(1);
+ RtsFlags.GcFlags.minAllocAreaSize = RtsFlags.GcFlags.maxHeapSize;
}
initBlockAllocator();
void
freeStorage (void)
{
+ nat g;
+
+ for(g = 0; g < RtsFlags.GcFlags.generations; g++)
+ stgFree(generations[g].steps);
+ stgFree(generations);
freeAllMBlocks();
}