From e92dc7a19ba34268bec2d1467a8100aaf5b475ea Mon Sep 17 00:00:00 2001 From: sof Date: Fri, 22 Oct 1999 08:47:39 +0000 Subject: [PATCH] [project @ 1999-10-22 08:47:39 by sof] made writeErrString__ f.i. unsafe --- ghc/lib/std/PrelHandle.lhs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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" -- 1.7.10.4