compiler/ghci/ByteCodeFFI.lhs

   1 %
   2 % (c) The University of Glasgow 2001-2008
   3 %
   4
   5 ByteCodeGen: Generate machine-code sequences for foreign import
   6
   7 \begin{code}
   8 module ByteCodeFFI ( moan64 ) where
   9
  10 import Outputable
  11 import System.IO
  12 import System.IO.Unsafe
  13
  14 moan64 :: String -> SDoc -> a
  15 moan64 msg pp_rep
  16    = unsafePerformIO (
  17         hPutStrLn stderr (
  18         "\nGHCi's bytecode generation machinery can't handle 64-bit\n" ++
  19         "code properly yet.  You can work around this for the time being\n" ++
  20         "by compiling this module and all those it imports to object code,\n" ++
  21         "and re-starting your GHCi session.  The panic below contains information,\n" ++
  22         "intended for the GHC implementors, about the exact place where GHC gave up.\n"
  23         )
  24      )
  25      `seq`
  26      pprPanic msg pp_rep
  27 \end{code}
  28