[project @ 1999-10-22 08:47:39 by sof]

made writeErrString__ f.i. unsafe

ghc/lib/std/PrelHandle.lhs

-
+%
 % (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"