Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/3a0a91b41c5b6ad347711f054feb10c20a6b2f77 >--------------------------------------------------------------- commit 3a0a91b41c5b6ad347711f054feb10c20a6b2f77 Author: Ian Lynagh <[email protected]> Date: Wed May 25 19:08:38 2011 +0100 Remove unused ghci/ByteCodeFFI.lhs >--------------------------------------------------------------- compiler/ghc.cabal.in | 1 - compiler/ghci/ByteCodeFFI.lhs | 28 ---------------------------- 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 f70a1b3..b3d9f0c 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 1589fe1..0000000 --- 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 d44a00b..49c5488 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 _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
