diff options
| -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# |