X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fghci%2FByteCodeInstr.lhs;h=1d629c0643b7bbf6a70722f69c4d19ba98443e5c;hb=9d03becc597e5b1ab6c8466209a1263bf8ba6f29;hp=50dbec165102d0bbb822d9890864310c629830af;hpb=2777940384ce4740954062bedd0f6813698fc72a;p=ghc-hetmet.git

diff --git a/compiler/ghci/ByteCodeInstr.lhs b/compiler/ghci/ByteCodeInstr.lhs
index 50dbec1..1d629c0 100644
--- a/compiler/ghci/ByteCodeInstr.lhs
+++ b/compiler/ghci/ByteCodeInstr.lhs
@@ -37,7 +37,7 @@ import SMRep
 import GHC.Ptr
 
 import Module (Module)
-import GHC.Prim
+import GHC.Exts
 
 
 -- ----------------------------------------------------------------------------
@@ -131,7 +131,7 @@ data BCInstr
    | CASEFAIL
    | JMP              LocalLabel
 
-   -- For doing calls to C (via glue code generated by ByteCodeFFI)
+   -- For doing calls to C (via glue code generated by ByteCodeFFI, or libffi)
    | CCALL            Int 	-- stack frame size
 		      (Ptr ())  -- addr of the glue code