Source

mutated_ocaml / testsuite / tests / lib-dynlink-native / plugin_thread.ml

Full commit
camlspotter d2116cf 


camlspotter 4eace9a 
camlspotter d2116cf 
camlspotter 4eace9a 



camlspotter d2116cf 




let () =
  Api.reg_mod "Plugin_thread";
  let _t =
    Thread.create
      (fun () ->
         for i = 1 to 5 do
           print_endline "Thread"; flush stdout;
           Thread.delay 1.;
         done
      ) ()
  in
  for i = 1 to 10 do
    print_endline "Thread"; flush stdout;
    Thread.delay 0.50;
  done