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

[ghc-hetmet.git] / ghc / compiler / ghci / ByteCodeLink.lhs

diff --git a/ghc/compiler/ghci/ByteCodeLink.lhs b/ghc/compiler/ghci/ByteCodeLink.lhs
index 1f15efc..f1cee7c 100644 (file)
--- 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(..) )
@@ -409,7 +409,7 @@ GLOBAL_VAR(v_cafTable, [], [HValue])
 
 addCAF :: HValue -> IO ()
 addCAF x = do xs <- readIORef v_cafTable
-              putStrLn ("addCAF " ++ show (1 + length xs))
+              --putStrLn ("addCAF " ++ show (1 + length xs))
               writeIORef v_cafTable (x:xs)
 
 
@@ -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#