From 2015743e65c7ca0ea9126c35178b1c6387e6ecae Mon Sep 17 00:00:00 2001 From: sewardj Date: Mon, 15 Jan 2001 09:57:33 +0000 Subject: [PATCH] [project @ 2001-01-15 09:57:33 by sewardj] Use mkApUpd0# to ensure top-level things are updateable. --- ghc/compiler/ghci/ByteCodeLink.lhs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/ghc/compiler/ghci/ByteCodeLink.lhs b/ghc/compiler/ghci/ByteCodeLink.lhs index 99d0bc2..f1cee7c 100644 --- a/ghc/compiler/ghci/ByteCodeLink.lhs +++ b/ghc/compiler/ghci/ByteCodeLink.lhs @@ -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# -- 1.7.10.4