From: sof <unknown>
Date: Fri, 22 Oct 1999 08:47:39 +0000 (+0000)
Subject: [project @ 1999-10-22 08:47:39 by sof]
X-Git-Tag: Approximately_9120_patches~5675
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e92dc7a19ba34268bec2d1467a8100aaf5b475ea;p=ghc-hetmet.git

[project @ 1999-10-22 08:47:39 by sof]
made writeErrString__ f.i. unsafe
---

diff --git a/ghc/lib/std/PrelHandle.lhs b/ghc/lib/std/PrelHandle.lhs
index 78fd97a..89bbef2 100644
--- a/ghc/lib/std/PrelHandle.lhs
+++ b/ghc/lib/std/PrelHandle.lhs
@@ -1,4 +1,4 @@
-
+%
 % (c) The AQUA Project, Glasgow University, 1994-1996
 %
 
@@ -1032,7 +1032,7 @@ reportError bombOut str = do
 foreign label "ErrorHdrHook" 
         addrOf_ErrorHdrHook :: Addr
 
-foreign import ccall "writeErrString__" 
+foreign import ccall "writeErrString__" unsafe
 	writeErrString :: Addr -> ByteArray Int -> Int -> IO ()
 
 foreign import ccall "stackOverflow"