Chargement dynamique de primitives C

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3677 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

1 files changed, 2 insertions, 2 deletions

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 <signals.h>
 #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;