diff options
| author | Ian Lynagh <igloo@earth.li> | 2011-05-25 19:08:38 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2011-05-25 19:10:03 +0100 |
| commit | 3a0a91b41c5b6ad347711f054feb10c20a6b2f77 (patch) | |
| tree | 5a3435af1a7a17162f4484757b05f22684d776f4 | |
| parent | 5fffd9b28c2b67d4f58596ad8837a024e11882f5 (diff) | |
| download | haskell-3a0a91b41c5b6ad347711f054feb10c20a6b2f77.tar.gz | |
Remove unused ghci/ByteCodeFFI.lhs
| -rw-r--r-- | compiler/ghc.cabal.in | 1 | ||||
| -rw-r--r-- | compiler/ghci/ByteCodeFFI.lhs | 28 | ||||
| -rw-r--r-- | compiler/ghci/ByteCodeInstr.lhs | 2 |
3 files changed, 1 insertions, 30 deletions
diff --git a/compiler/ghc.cabal.in b/compiler/ghc.cabal.in index f70a1b32b0..b3d9f0cd2a 100644 --- a/compiler/ghc.cabal.in +++ b/compiler/ghc.cabal.in @@ -552,7 +552,6 @@ Library TcSplice Convert ByteCodeAsm - ByteCodeFFI ByteCodeGen ByteCodeInstr ByteCodeItbls diff --git a/compiler/ghci/ByteCodeFFI.lhs b/compiler/ghci/ByteCodeFFI.lhs deleted file mode 100644 index 1589fe1bed..0000000000 --- a/compiler/ghci/ByteCodeFFI.lhs +++ /dev/null @@ -1,28 +0,0 @@ -% -% (c) The University of Glasgow 2001-2008 -% - -ByteCodeGen: Generate machine-code sequences for foreign import - -\begin{code} -module ByteCodeFFI ( moan64 ) where - -import Outputable -import System.IO -import System.IO.Unsafe - -moan64 :: String -> SDoc -> a -moan64 msg pp_rep - = unsafePerformIO ( - hPutStrLn stderr ( - "\nGHCi's bytecode generation machinery can't handle 64-bit\n" ++ - "code properly yet. You can work around this for the time being\n" ++ - "by compiling this module and all those it imports to object code,\n" ++ - "and re-starting your GHCi session. The panic below contains information,\n" ++ - "intended for the GHC implementors, about the exact place where GHC gave up.\n" - ) - ) - `seq` - pprPanic msg pp_rep -\end{code} - diff --git a/compiler/ghci/ByteCodeInstr.lhs b/compiler/ghci/ByteCodeInstr.lhs index d44a00bc14..49c5488efa 100644 --- a/compiler/ghci/ByteCodeInstr.lhs +++ b/compiler/ghci/ByteCodeInstr.lhs @@ -124,7 +124,7 @@ data BCInstr | CASEFAIL | JMP LocalLabel - -- For doing calls to C (via glue code generated by ByteCodeFFI, or libffi) + -- For doing calls to C (via glue code generated by libffi) | CCALL Word16 -- stack frame size (Ptr ()) -- addr of the glue code Word16 -- whether or not the call is interruptible |