projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
0a7fe9e
)
fix an error message (barf -> sysErrorBelch)
author
Simon Marlow
<simonmar@microsoft.com>
Wed, 17 Oct 2007 12:18:55 +0000
(12:18 +0000)
committer
Simon Marlow
<simonmar@microsoft.com>
Wed, 17 Oct 2007 12:18:55 +0000
(12:18 +0000)
rts/win32/OSMem.c
patch
|
blob
|
history
diff --git
a/rts/win32/OSMem.c
b/rts/win32/OSMem.c
index
356c6df
..
cdecf02
100644
(file)
--- 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)
{
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);
}
}
}
}