Commit bb3f4825 authored by sof's avatar sof
Browse files

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

Added foreignObjToAddr
parent 9592e911
......@@ -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# ()
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment