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:
e3c55ae
)
fix Win32 build
author
simonmar@microsoft.com
<unknown>
Tue, 30 May 2006 10:14:18 +0000
(10:14 +0000)
committer
simonmar@microsoft.com
<unknown>
Tue, 30 May 2006 10:14:18 +0000
(10:14 +0000)
rts/win32/OSMem.c
patch
|
blob
|
history
diff --git
a/rts/win32/OSMem.c
b/rts/win32/OSMem.c
index
fe69a34
..
356c6df
100644
(file)
--- a/
rts/win32/OSMem.c
+++ b/
rts/win32/OSMem.c
@@
-7,6
+7,8
@@
* ---------------------------------------------------------------------------*/
#include <windows.h>
* ---------------------------------------------------------------------------*/
#include <windows.h>
+#include "Rts.h"
+#include "OSMem.h"
lnat getPageSize (void)
{
lnat getPageSize (void)
{
@@
-24,11
+26,11
@@
lnat getPageSize (void)
void setExecutable (void *p, lnat len, rtsBool exec)
{
DWORD dwOldProtect = 0;
void setExecutable (void *p, lnat len, rtsBool exec)
{
DWORD dwOldProtect = 0;
- if (VirtualProtect (addr, len,
+ if (VirtualProtect (p, len,
exec ? PAGE_EXECUTE_READWRITE : PAGE_READWRITE,
&dwOldProtect) == 0)
{
barf("makeExecutable: failed to protect 0x%p; error=%lu; old protection: %lu\n",
exec ? PAGE_EXECUTE_READWRITE : PAGE_READWRITE,
&dwOldProtect) == 0)
{
barf("makeExecutable: failed to protect 0x%p; error=%lu; old protection: %lu\n",
- addr, (unsigned long)GetLastError(), (unsigned long)dwOldProtect);
+ p, (unsigned long)GetLastError(), (unsigned long)dwOldProtect);
}
}
}
}