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 917216748c59..848ddafaae4d 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# ()
--
GitLab