Chargement dynamique de primitives C

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

1 files changed, 3 insertions, 3 deletions

diff --git a/otherlibs/win32unix/close_on.c b/otherlibs/win32unix/close_on.c
index 56ba4e878..a1eac30d4 100644
--- a/otherlibs/win32unix/close_on.c
+++ b/otherlibs/win32unix/close_on.c
@@ -24,7 +24,7 @@ int win_set_inherit(value fd, BOOL inherit)
   if (! DuplicateHandle(GetCurrentProcess(), oldh,
                         GetCurrentProcess(), &newh,
                         0L, inherit, DUPLICATE_SAME_ACCESS)) {
-    _dosmaperr(GetLastError());
+    win32_maperr(GetLastError());
     return -1;
   }
   Handle_val(fd) = newh;
@@ -32,13 +32,13 @@ int win_set_inherit(value fd, BOOL inherit)
   return 0;
 }
 
-value win_set_close_on_exec(value fd)             /* ML */
+CAMLprim value win_set_close_on_exec(value fd)
 {
   if (win_set_inherit(fd, FALSE) == -1) uerror("set_close_on_exec", Nothing);
   return Val_unit;
 }
 
-value win_clear_close_on_exec(value fd)             /* ML */
+CAMLprim value win_clear_close_on_exec(value fd)
 {
   if (win_set_inherit(fd, TRUE) == -1) uerror("clear_close_on_exec", Nothing);
   return Val_unit;