From a6790efee6985e0dfb2b7366ea7955629e6d37bb Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Thu, 21 May 1998 09:29:13 +0000
Subject: [PATCH] [project @ 1998-05-21 09:29:13 by simonm] Don't use caddr_t
 in a file that claims to be POSIX compatible.

---
 ghc/runtime/storage/mprotect.lc |    7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/ghc/runtime/storage/mprotect.lc b/ghc/runtime/storage/mprotect.lc
index b9b14f5..96c0e2f 100644
--- a/ghc/runtime/storage/mprotect.lc
+++ b/ghc/runtime/storage/mprotect.lc
@@ -65,13 +65,12 @@ int mprotect PROTO((caddr_t, size_t, int));
 #endif
 
 void 
-unmapMiddleStackPage(addr_, size)
-char * /*caddr_t*/ addr_;
+unmapMiddleStackPage(addr, size)
+char * /*caddr_t*/ addr;
 int size;
 {
     int pagesize = GETPAGESIZE();
-    caddr_t addr = addr_;
-    caddr_t middle = (caddr_t) (((W_) (addr + size / 2)) / pagesize * pagesize);
+    char * middle = (caddr_t) (((W_) (addr + size / 2)) / pagesize * pagesize);
 #if defined(cygwin32_TARGET_OS)
     unsigned int old_prot;
 #endif
-- 
1.7.10.4