diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2006-08-09 09:24:39 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2006-08-09 09:24:39 +0000 |
| commit | 7b1b3279afe25b4e65ee9ebbafc5e9e38a3b888b (patch) | |
| tree | 51579f1d739bf62f155f7d7ef227ebb796dd82a3 /rts/Storage.c | |
| parent | 444006bcc30b9fd0db3d2f9430eb21b4f98ba74f (diff) | |
| download | haskell-7b1b3279afe25b4e65ee9ebbafc5e9e38a3b888b.tar.gz | |
make exit() overridable, for use in DLLs
See #753
Diffstat (limited to 'rts/Storage.c')
| -rw-r--r-- | rts/Storage.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/Storage.c b/rts/Storage.c index d3b059768b..3594f7197f 100644 --- a/rts/Storage.c +++ b/rts/Storage.c @@ -127,7 +127,7 @@ initStorage( void ) 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(); |