%
% (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}