From bb3f4825ccd0b18b046a8140f70e854a3068a269 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Wed, 21 Oct 1998 11:38:28 +0000
Subject: [PATCH] [project @ 1998-10-21 11:38:28 by sof] Added
 foreignObjToAddr

---
 ghc/lib/exts/Addr.lhs |   10 ++++++++++
 1 file changed, 10 insertions(+)

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# () 
-- 
1.7.10.4