X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fwin32%2FOSMem.c;h=cdecf029852d76a43d4bc1208fc2023b9ca1572d;hb=c408face730fdabecc1d5c91e17b56a1c1e5eb7a;hp=356c6dffa407557bd590c1a05f723ea968efa953;hpb=7a876582088a557b4ac978f272c91e7f4aa2eacf;p=ghc-hetmet.git

diff --git a/rts/win32/OSMem.c b/rts/win32/OSMem.c
index 356c6df..cdecf02 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);
     }
 }