diff options
| author | Moritz Angermann <moritz.angermann@gmail.com> | 2021-03-18 14:53:22 +0800 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-03-20 07:55:11 -0400 |
| commit | 71e609fb1e60cf13035c69c179e3ec722b2e26c4 (patch) | |
| tree | 5f35ef906acd85653aae5128e6b4b297d7f609ca | |
| parent | fa49935603bee32a65425d356a75c68a25a805c3 (diff) | |
| download | haskell-71e609fb1e60cf13035c69c179e3ec722b2e26c4.tar.gz | |
Add error information to osCommitMemory on failure.
| -rw-r--r-- | rts/win32/OSMem.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/win32/OSMem.c b/rts/win32/OSMem.c index 138660a879..dde1a74bbb 100644 --- a/rts/win32/OSMem.c +++ b/rts/win32/OSMem.c @@ -474,7 +474,7 @@ void osCommitMemory (void *at, W_ size) void *temp; temp = VirtualAlloc(at, size, MEM_COMMIT, PAGE_READWRITE); if (temp == NULL) { - sysErrorBelch("osCommitMemory: VirtualAlloc MEM_COMMIT failed"); + sysErrorBelch("osCommitMemory: VirtualAlloc MEM_COMMIT failed to commit %" FMT_Word " bytes of memory (error code: %lu)", size, GetLastError()); stg_exit(EXIT_HEAPOVERFLOW); } } |