diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2017-04-02 19:15:45 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2017-04-02 21:13:09 -0400 |
| commit | 23011765244fe5a3c4583033e019a537278a45a9 (patch) | |
| tree | abe95f164b3ac5151ba22aeafc35a6f957214fb3 /rts | |
| parent | 60307cb85abc8d53845598a430c0ee9264fb2d82 (diff) | |
| download | haskell-23011765244fe5a3c4583033e019a537278a45a9.tar.gz | |
rts: Make out-of-memory errors more consistent
This will make it a bit easier to maintain consistent output in the testsuite.
Diffstat (limited to 'rts')
| -rw-r--r-- | rts/hooks/OutOfHeap.c | 2 | ||||
| -rw-r--r-- | rts/win32/OSMem.c | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/rts/hooks/OutOfHeap.c b/rts/hooks/OutOfHeap.c index 3058cdd856..20d9809024 100644 --- a/rts/hooks/OutOfHeap.c +++ b/rts/hooks/OutOfHeap.c @@ -31,6 +31,6 @@ OutOfHeapHook (W_ request_size, W_ heap_size) /* both sizes in bytes */ } } else { - errorBelch("Out of memory.\n"); + errorBelch("Out of memory\n"); } } diff --git a/rts/win32/OSMem.c b/rts/win32/OSMem.c index 2a542351ab..ad72ffba29 100644 --- a/rts/win32/OSMem.c +++ b/rts/win32/OSMem.c @@ -74,7 +74,7 @@ allocNew(uint32_t n) { rec=0; if (GetLastError() == ERROR_NOT_ENOUGH_MEMORY) { - errorBelch("Out of memory"); + errorBelch("Out of memory\n"); stg_exit(EXIT_HEAPOVERFLOW); } else { sysErrorBelch( |