From: sof <unknown>
Date: Wed, 21 Oct 1998 11:38:28 +0000 (+0000)
Subject: [project @ 1998-10-21 11:38:28 by sof]
X-Git-Tag: Approx_2487_patches~230
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=bb3f4825ccd0b18b046a8140f70e854a3068a269;p=ghc-hetmet.git

[project @ 1998-10-21 11:38:28 by sof]
Added foreignObjToAddr
---

diff --git a/ghc/lib/exts/Addr.lhs b/ghc/lib/exts/Addr.lhs
index 9172167..848ddaf 100644
--- a/ghc/lib/exts/Addr.lhs
+++ b/ghc/lib/exts/Addr.lhs
@@ -37,6 +37,10 @@ import Int	( indexInt8OffAddr,  indexInt16OffAddr
 		)
 import PrelIOBase ( IO(..), IOResult(..) )
 
+#ifndef __PARALLEL_HASKELL__
+import PrelForeign ( ForeignObj(..) )
+#endif
+
 \end{code}
 
 Coercing between machine ints and words
@@ -125,6 +129,12 @@ writeAddrOffAddr   :: Addr -> Int -> Addr   -> IO ()
 writeAddrOffAddr (A# a#) (I# i#) (A# e#) = IO $ \ s# ->
       case (writeAddrOffAddr#  a# i# e# s#) of s2# -> IOok s2# () 
 
+#ifndef __PARALLEL_HASKELL__
+writeForeignObjOffAddr   :: Addr -> Int -> ForeignObj -> IO ()
+writeForeignObjOffAddr (A# a#) (I# i#) (ForeignObj e#) = IO $ \ s# ->
+      case (writeForeignObjOffAddr#  a# i# e# s#) of s2# -> IOok s2# () 
+#endif
+
 writeFloatOffAddr  :: Addr -> Int -> Float  -> IO ()
 writeFloatOffAddr (A# a#) (I# i#) (F# e#) = IO $ \ s# ->
       case (writeFloatOffAddr#  a# i# e# s#) of s2# -> IOok s2# ()