diff options
| author | sewardj <unknown> | 2001-01-12 12:04:53 +0000 |
|---|---|---|
| committer | sewardj <unknown> | 2001-01-12 12:04:53 +0000 |
| commit | 66a42dafd3dbcd85368132b10cce850ffadab1cb (patch) | |
| tree | e3c4952bcb7a30339d27ad3cff159bd4183afd18 /ghc/compiler/ghci/ByteCodeLink.lhs | |
| parent | 679560cdce96a854db3dbab5380da72ea56f5b85 (diff) | |
| download | haskell-66a42dafd3dbcd85368132b10cce850ffadab1cb.tar.gz | |
[project @ 2001-01-12 12:04:53 by sewardj]
Hopefully sort out heap-stack movement for constructors/cases.
Diffstat (limited to 'ghc/compiler/ghci/ByteCodeLink.lhs')
| -rw-r--r-- | ghc/compiler/ghci/ByteCodeLink.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/compiler/ghci/ByteCodeLink.lhs b/ghc/compiler/ghci/ByteCodeLink.lhs index 1f15efcb12..99d0bc203f 100644 --- a/ghc/compiler/ghci/ByteCodeLink.lhs +++ b/ghc/compiler/ghci/ByteCodeLink.lhs @@ -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) |