From ddd99c7e5d2f0f8e7364e8521fa7e8308999344e Mon Sep 17 00:00:00 2001 From: Xavier Leroy Date: Tue, 28 Aug 2001 14:47:48 +0000 Subject: Chargement dynamique de primitives C git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3677 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02 --- otherlibs/win32unix/write.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'otherlibs/win32unix/write.c') diff --git a/otherlibs/win32unix/write.c b/otherlibs/win32unix/write.c index 4864ea7aa..6bd9c6637 100644 --- a/otherlibs/win32unix/write.c +++ b/otherlibs/win32unix/write.c @@ -19,7 +19,7 @@ #include #include "unixsupport.h" -value unix_write(value fd, value buf, value vofs, value vlen) /* ML */ +CAMLprim value unix_write(value fd, value buf, value vofs, value vlen) { long ofs, len, written; DWORD numbytes, numwritten; @@ -38,7 +38,7 @@ value unix_write(value fd, value buf, value vofs, value vlen) /* ML */ ret = WriteFile(h, iobuf, numbytes, &numwritten, NULL); leave_blocking_section(); if (! ret) { - _dosmaperr(GetLastError()); + win32_maperr(GetLastError()); uerror("write", Nothing); } written += numwritten; -- cgit v1.2.3-70-g09d2