Commit 2015743e authored by sewardj's avatar sewardj

[project @ 2001-01-15 09:57:33 by sewardj]

Use mkApUpd0# to ensure top-level things are updateable.
parent 1eafb3ce
......@@ -41,7 +41,7 @@ import Addr ( Word )
import PrelBase ( Int(..) )
import PrelAddr ( Addr(..) )
import PrelGHC ( BCO#, newBCO#, unsafeCoerce#,
ByteArray#, Array#, addrToHValue# )
ByteArray#, Array#, addrToHValue#, mkApUpd0# )
import IOExts ( IORef, fixIO, readIORef, writeIORef )
import ArrayBase
import PrelArr ( Array(..) )
......@@ -453,6 +453,8 @@ linkBCO ie ce (UnlinkedBCO nm insnsSS literalsSS ptrsSS itblsSS)
BCO bco# <- newBCO insns_barr literals_barr ptrs_parr itbls_barr
return (unsafeCoerce# bco#)
--case mkApUpd0# (unsafeCoerce# bco#) of
-- (# final_bco #) -> return final_bco
data BCO = BCO BCO#
......
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