diff options
| author | sewardj <unknown> | 2001-01-15 09:57:33 +0000 |
|---|---|---|
| committer | sewardj <unknown> | 2001-01-15 09:57:33 +0000 |
| commit | 2015743e65c7ca0ea9126c35178b1c6387e6ecae (patch) | |
| tree | 34b4845d14d40fd3c9acdad566f40dc0c8d14070 | |
| parent | 1eafb3ce1cea939b6a164f2ff7517f035baed013 (diff) | |
| download | haskell-2015743e65c7ca0ea9126c35178b1c6387e6ecae.tar.gz | |
[project @ 2001-01-15 09:57:33 by sewardj]
Use mkApUpd0# to ensure top-level things are updateable.
| -rw-r--r-- | ghc/compiler/ghci/ByteCodeLink.lhs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/ghc/compiler/ghci/ByteCodeLink.lhs b/ghc/compiler/ghci/ByteCodeLink.lhs index 99d0bc203f..f1cee7c2e9 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# |