diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2007-10-17 12:18:55 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2007-10-17 12:18:55 +0000 |
| commit | c408face730fdabecc1d5c91e17b56a1c1e5eb7a (patch) | |
| tree | 4851deb1b11b94f350f76969d5fcf4c4af69f035 /rts/win32 | |
| parent | 0a7fe9ef2156ec770e85d8e64b743bb164695bef (diff) | |
| download | haskell-c408face730fdabecc1d5c91e17b56a1c1e5eb7a.tar.gz | |
fix an error message (barf -> sysErrorBelch)
Diffstat (limited to 'rts/win32')
| -rw-r--r-- | rts/win32/OSMem.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/rts/win32/OSMem.c b/rts/win32/OSMem.c index 356c6dffa4..cdecf02985 100644 --- a/rts/win32/OSMem.c +++ b/rts/win32/OSMem.c @@ -30,7 +30,8 @@ void setExecutable (void *p, lnat len, rtsBool exec) exec ? PAGE_EXECUTE_READWRITE : PAGE_READWRITE, &dwOldProtect) == 0) { - barf("makeExecutable: failed to protect 0x%p; error=%lu; old protection: %lu\n", - p, (unsigned long)GetLastError(), (unsigned long)dwOldProtect); + sysErrorBelch("makeExecutable: failed to protect 0x%p; old protection: %lu\n", + p, (unsigned long)dwOldProtect); + stg_exit(EXIT_FAILURE); } } |