[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 (file)
--- 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"