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/startup.c b/otherlibs/win32unix/startup.c
index 4c8fbc204..1099d7c26 100644
--- a/otherlibs/win32unix/startup.c
+++ b/otherlibs/win32unix/startup.c
@@ -18,7 +18,7 @@
 
 value val_process_id;
 
-value win_startup(unit)         /* ML */
+CAMLprim value win_startup(unit)
      value unit;
 {
   WSADATA wsaData;
@@ -34,7 +34,7 @@ value win_startup(unit)         /* ML */
   return Val_unit;
 }
 
-value win_cleanup(unit)         /* ML */
+CAMLprim value win_cleanup(unit)
      value unit;
 {
   (void) WSACleanup();
@@ -45,7 +45,7 @@ static int std_handles[3] = {
   STD_INPUT_HANDLE, STD_OUTPUT_HANDLE, STD_ERROR_HANDLE
 };
 
-value win_stdhandle(value nhandle) /* ML */
+CAMLprim value win_stdhandle(value nhandle)
 {
   return win_alloc_handle(GetStdHandle(std_handles[Int_val(nhandle)]));
 }