Commit 1b9f74f6 authored by simonmar's avatar simonmar
Browse files

[project @ 2001-10-01 11:09:02 by simonmar]

Actually bomb out with an error message if the maximum heap size is
smaller than the minimum allocation area size.
parent 3a7e4d98
/* -----------------------------------------------------------------------------
* $Id: Storage.c,v 1.50 2001/08/30 10:21:40 simonmar Exp $
* $Id: Storage.c,v 1.51 2001/10/01 11:09:02 simonmar Exp $
*
* (c) The GHC Team, 1998-1999
*
......@@ -89,6 +89,13 @@ initStorage( void )
RtsFlags.GcFlags.maxHeapSize = RtsFlags.GcFlags.heapSizeSuggestion;
}
if (RtsFlags.GcFlags.maxHeapSize != 0 &&
RtsFlags.GcFlags.minAllocAreaSize >
RtsFlags.GcFlags.maxHeapSize) {
prog_belch("maximum heap size (-M) is smaller than minimum alloc area size (-A)");
exit(1);
}
initBlockAllocator();
/* allocate generation info array */
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment