Commit 1222b052 authored by sof's avatar sof

[project @ 2001-11-21 02:29:00 by sof]

Have prototypes and implementation of prel_PrelHandle_{write,read}() match
up with the stated Haskell FFI type in PrelHandle.hs, i.e., the size
parameter is a CInt, not an Int.
parent 1d5ba9bb
......@@ -65,12 +65,12 @@ HsInt prel_setmode(HsInt fd, HsBool toBin)
#endif
}
HsInt prel_PrelHandle_write(HsInt fd, HsAddr ptr, HsInt off, HsInt sz)
HsInt prel_PrelHandle_write(HsInt fd, HsAddr ptr, HsInt off, int sz)
{
return write(fd,ptr + off, sz);
}
HsInt prel_PrelHandle_read(HsInt fd, HsAddr ptr, HsInt off, HsInt sz)
HsInt prel_PrelHandle_read(HsInt fd, HsAddr ptr, HsInt off, int sz)
{
return read(fd,ptr + off, sz);
}
......
......@@ -17,8 +17,8 @@ extern HsInt prel_o_binary();
extern HsInt prel_setmode(HsInt fd, HsBool isBin);
extern HsInt prel_PrelHandle_write(HsInt fd, HsAddr ptr, HsInt off, HsInt sz);
extern HsInt prel_PrelHandle_read(HsInt fd, HsAddr ptr, HsInt off, HsInt sz);
extern HsInt prel_PrelHandle_write(HsInt fd, HsAddr ptr, HsInt off, int sz);
extern HsInt prel_PrelHandle_read(HsInt fd, HsAddr ptr, HsInt off, int sz);
extern void* prel_PrelIO_memcpy(char *dst, HsInt dst_off, const char *src, size_t sz);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment