X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fghci%2FByteCodeGen.lhs;h=72586abc55df133ddae35fd3e514cadbcd39884c;hp=0c668b923f23b5b97801ec76fddbb1cd5255ba21;hb=85174045bbcc05adb28447d423794d1f087da59e;hpb=dd605e295e2a7ee92dc0511d81ebef4984eacf1e

diff --git a/compiler/ghci/ByteCodeGen.lhs b/compiler/ghci/ByteCodeGen.lhs
index 0c668b9..72586ab 100644
--- a/compiler/ghci/ByteCodeGen.lhs
+++ b/compiler/ghci/ByteCodeGen.lhs
@@ -50,7 +50,7 @@ import Constants
 import Data.List	( intersperse, sortBy, zip4, zip6, partition )
 import Foreign		( Ptr, castPtr, mallocBytes, pokeByteOff, Word8,
 			  withForeignPtr, castFunPtrToPtr )
-import Foreign.C	( CInt )
+import Foreign.C
 import Control.Exception	( throwDyn )
 
 import GHC.Exts		( Int(..), ByteArray# )
@@ -1119,7 +1119,7 @@ pushAtom d p other
               (pprCoreExpr (deAnnotate (undefined, other)))
 
 foreign import ccall unsafe "memcpy"
- memcpy :: Ptr a -> Ptr b -> CInt -> IO ()
+ memcpy :: Ptr a -> Ptr b -> CSize -> IO ()
 
 
 -- -----------------------------------------------------------------------------