From 39139c82e3be09a29f2fb238ce39f74f9d0e7108 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Fri, 14 Aug 1998 13:00:18 +0000
Subject: [PATCH] [project @ 1998-08-14 13:00:18 by sof] write*OffAddr now
 implemented in terms of primops

---
 ghc/lib/exts/Addr.lhs |   20 ++++++++++++++------
 1 file changed, 14 insertions(+), 6 deletions(-)

diff --git a/ghc/lib/exts/Addr.lhs b/ghc/lib/exts/Addr.lhs
index 19636d7..9172167 100644
--- a/ghc/lib/exts/Addr.lhs
+++ b/ghc/lib/exts/Addr.lhs
@@ -35,6 +35,7 @@ import Int	( indexInt8OffAddr,  indexInt16OffAddr
 		, writeInt8OffAddr,  writeInt16OffAddr
 		, writeInt32OffAddr, writeInt64OffAddr
 		)
+import PrelIOBase ( IO(..), IOResult(..) )
 
 \end{code}
 
@@ -109,20 +110,27 @@ readDoubleOffAddr a i = _casm_ `` %r=(StgDouble)(((StgDouble*)%0)[(StgInt)%1]);
 
 \begin{code}
 writeCharOffAddr   :: Addr -> Int -> Char   -> IO ()
-writeCharOffAddr a i e = _casm_ `` (((StgChar*)%0)[(StgInt)%1])=(StgChar)%2; '' a i e
+writeCharOffAddr (A# a#) (I# i#) (C# c#) = IO $ \ s# ->
+      case (writeCharOffAddr#  a# i# c# s#) of s2# -> IOok s2# () 
 
 writeIntOffAddr    :: Addr -> Int -> Int    -> IO ()
-writeIntOffAddr a i e = _casm_ `` (((StgInt*)%0)[(StgInt)%1])=(StgInt)%2; '' a i e
+writeIntOffAddr (A# a#) (I# i#) (I# e#) = IO $ \ s# ->
+      case (writeIntOffAddr#  a# i# e# s#) of s2# -> IOok s2# () 
 
 writeWordOffAddr    :: Addr -> Int -> Word  -> IO ()
-writeWordOffAddr a i e = _casm_ `` (((StgWord*)%0)[(StgInt)%1])=(StgWord)%2; '' a i e
+writeWordOffAddr (A# a#) (I# i#) (W# e#) = IO $ \ s# ->
+      case (writeWordOffAddr#  a# i# e# s#) of s2# -> IOok s2# () 
 
 writeAddrOffAddr   :: Addr -> Int -> Addr   -> IO ()
-writeAddrOffAddr a i e = _casm_ `` (((StgAddr*)%0)[(StgInt)%1])=(StgAddr)%2; '' a i e
+writeAddrOffAddr (A# a#) (I# i#) (A# e#) = IO $ \ s# ->
+      case (writeAddrOffAddr#  a# i# e# s#) of s2# -> IOok s2# () 
 
 writeFloatOffAddr  :: Addr -> Int -> Float  -> IO ()
-writeFloatOffAddr a i e = _casm_ `` (((StgFloat*)%0)[(StgInt)%1])=(StgFloat)%2; '' a i e
+writeFloatOffAddr (A# a#) (I# i#) (F# e#) = IO $ \ s# ->
+      case (writeFloatOffAddr#  a# i# e# s#) of s2# -> IOok s2# () 
 
 writeDoubleOffAddr :: Addr -> Int -> Double -> IO ()
-writeDoubleOffAddr a i e = _casm_ `` (((StgDouble*)%0)[(StgInt)%1])=(StgDouble)%2; '' a i e
+writeDoubleOffAddr (A# a#) (I# i#) (D# e#) = IO $ \ s# ->
+      case (writeDoubleOffAddr#  a# i# e# s#) of s2# -> IOok s2# () 
+
 \end{code}
-- 
1.7.10.4