From: simonmar@microsoft.com <unknown>
Date: Tue, 30 May 2006 10:14:18 +0000 (+0000)
Subject: fix Win32 build
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=7a876582088a557b4ac978f272c91e7f4aa2eacf

fix Win32 build
---

diff --git a/rts/win32/OSMem.c b/rts/win32/OSMem.c
index fe69a34..356c6df 100644
--- a/rts/win32/OSMem.c
+++ b/rts/win32/OSMem.c
@@ -7,6 +7,8 @@
  * ---------------------------------------------------------------------------*/
 
 #include <windows.h>
+#include "Rts.h"
+#include "OSMem.h"
 
 lnat getPageSize (void)
 {
@@ -24,11 +26,11 @@ lnat getPageSize (void)
 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",
-	     addr, (unsigned long)GetLastError(), (unsigned long)dwOldProtect);
+	     p, (unsigned long)GetLastError(), (unsigned long)dwOldProtect);
     }
 }