From: Austin Seipp <mad.one@gmail.com>
Date: Fri, 20 Mar 2009 12:00:43 +0000 (+0000)
Subject: wibble in setExecutable
X-Git-Tag: 2009-06-25~450
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=c681514ad6151534062ff61c96a71e1c299977cc

wibble in setExecutable
---

diff --git a/rts/posix/OSMem.c b/rts/posix/OSMem.c
index bdae273..51737ad 100644
--- a/rts/posix/OSMem.c
+++ b/rts/posix/OSMem.c
@@ -237,6 +237,6 @@ void setExecutable (void *p, lnat len, rtsBool exec)
     StgWord size             = startOfLastPage - startOfFirstPage + pageSize;
     if (mprotect((void*)startOfFirstPage, (size_t)size, 
 		 (exec ? PROT_EXEC : 0) | PROT_READ | PROT_WRITE) != 0) {
-	barf("makeExecutable: failed to protect 0x%p\n", p);
+	barf("setExecutable: failed to protect 0x%p\n", p);
     }
 }
diff --git a/rts/win32/OSMem.c b/rts/win32/OSMem.c
index f4c1264..4edb5bf 100644
--- a/rts/win32/OSMem.c
+++ b/rts/win32/OSMem.c
@@ -255,7 +255,7 @@ void setExecutable (void *p, lnat len, rtsBool exec)
 			exec ? PAGE_EXECUTE_READWRITE : PAGE_READWRITE, 
 			&dwOldProtect) == 0)
     {
-	sysErrorBelch("makeExecutable: failed to protect 0x%p; old protection: %lu\n",
+	sysErrorBelch("setExecutable: failed to protect 0x%p; old protection: %lu\n",
                       p, (unsigned long)dwOldProtect);
         stg_exit(EXIT_FAILURE);
     }