Commit 51a1bbab authored by Simon Marlow's avatar Simon Marlow

Windows: give a better error message when running out of memory

I think this fixes #1209

Previously:

outofmem.exe: getMBlocks: VirtualAlloc MEM_RESERVE 1025 blocks failed: Not enoug
h storage is available to process this command.

Now:

outofmem.exe: out of memory
parent f64384c4
......@@ -348,8 +348,13 @@ allocNew(nat n) {
if(rec->base==0) {
stgFree((void*)rec);
rec=0;
sysErrorBelch(
"getMBlocks: VirtualAlloc MEM_RESERVE %d blocks failed", n);
if (GetLastError() == ERROR_NOT_ENOUGH_MEMORY) {
errorBelch("out of memory");
} else {
sysErrorBelch(
"getMBlocks: VirtualAlloc MEM_RESERVE %d blocks failed", n);
}
} else {
alloc_rec temp;
temp.base=0; temp.size=0; temp.next=allocs;
......
Markdown is supported
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