From: ken <unknown>
Date: Sat, 4 Aug 2001 06:10:04 +0000 (+0000)
Subject: [project @ 2001-08-04 06:10:04 by ken]
X-Git-Tag: Approximately_9120_patches~1360
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=cf3860cc1a9715218f1f1e3b62e767a988472576;p=ghc-hetmet.git

[project @ 2001-08-04 06:10:04 by ken]
Fixed assumption that int and HsInt are the same.
---

diff --git a/ghc/lib/std/PrelIO.hsc b/ghc/lib/std/PrelIO.hsc
index 867c8b6..6b2dc96 100644
--- a/ghc/lib/std/PrelIO.hsc
+++ b/ghc/lib/std/PrelIO.hsc
@@ -3,7 +3,7 @@
 #undef DEBUG_DUMP
 
 -- -----------------------------------------------------------------------------
--- $Id: PrelIO.hsc,v 1.7 2001/07/13 11:48:52 rrt Exp $
+-- $Id: PrelIO.hsc,v 1.8 2001/08/04 06:10:04 ken Exp $
 --
 -- (c) The University of Glasgow, 1992-2001
 --
@@ -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); }
 
 -- ---------------------------------------------------------------------------