[project @ 2001-08-04 06:19:54 by ken]

[ghc-hetmet.git] / ghc / lib / std / PrelIO.hsc

diff --git a/ghc/lib/std/PrelIO.hsc b/ghc/lib/std/PrelIO.hsc
index 637d64f..6b2dc96 100644 (file)
--- a/ghc/lib/std/PrelIO.hsc
+++ b/ghc/lib/std/PrelIO.hsc
@@ -3,7 +3,7 @@
 #undef DEBUG_DUMP
 
 -- -----------------------------------------------------------------------------
--- $Id: PrelIO.hsc,v 1.6 2001/06/29 12:45:39 simonmar Exp $
+-- $Id: PrelIO.hsc,v 1.8 2001/08/04 06:10:04 ken Exp $
 --
 -- (c) The University of Glasgow, 1992-2001
 --
@@ -16,7 +16,7 @@
 
 module PrelIO where
 
-#include "cbits/HsStd.h"
+#include "HsStd.h"
 #include "PrelHandle_hsc.h"
 
 import PrelBase
@@ -617,7 +617,7 @@ commitBuffer hdl raw sz count flush release = do
 foreign import "memcpy_wrap" unsafe 
    memcpy_off :: RawBuffer -> Int -> RawBuffer -> CSize -> IO (Ptr ())
 #def inline \
-void *memcpy_wrap(char *dst, int dst_off, char *src, size_t sz) \
+void *memcpy_wrap(char *dst, HsInt dst_off, const char *src, size_t sz) \
 { return memcpy(dst+dst_off, src, sz); }
 
 -- ---------------------------------------------------------------------------