Source

mutated_ocaml / otherlibs / systhreads / st_win32.h

Diff from to

otherlibs/systhreads/st_win32.h

 
 typedef HANDLE st_thread_id;
 
-static DWORD st_thread_create(st_thread_id * res, 
+static DWORD st_thread_create(st_thread_id * res,
                               LPTHREAD_START_ROUTINE fn, void * arg)
 {
   HANDLE h = CreateThread(NULL, 0, fn, arg, 0, NULL);
 {
   return 1;                     /* info not maintained */
 }
- 
+
 /* Mutexes */
 
 typedef CRITICAL_SECTION * st_mutex;
   if (retcode == 0) return;
   if (retcode == ERROR_NOT_ENOUGH_MEMORY) raise_out_of_memory();
   if (! FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM|FORMAT_MESSAGE_IGNORE_INSERTS,
-		      NULL,
-		      retcode,
-		      0,
-		      err,
-		      sizeof(err),
-		      NULL)) {
+                      NULL,
+                      retcode,
+                      0,
+                      err,
+                      sizeof(err),
+                      NULL)) {
     sprintf(err, "error code %lx", retcode);
   }
   msglen = strlen(msg);
 value caml_thread_sigmask(value cmd, value sigs) /* ML */
 {
   invalid_argument("Thread.sigmask not implemented");
-  return Val_int(0);		/* not reached */
+  return Val_int(0);            /* not reached */
 }
 
 value caml_wait_signal(value sigs) /* ML */
 {
   invalid_argument("Thread.wait_signal not implemented");
-  return Val_int(0);		/* not reached */
+  return Val_int(0);            /* not reached */
 }