Skip to main content

Browse the archive

Revision 99d9d23e80e3bdd196ea0eda76e60b51423416c7 authored by Jeremie Dimino on 26 October 2016, 10:14:13 UTC, committed by Jeremie Dimino on 26 October 2016, 10:14:13 UTC 
Only wait for the children started by parmap
 
Instead of calling Unix.wait n times, call Unix.waitpid on all the
pids of the children parmap started.
1 parent 10e2437
Raw File
myocamlbuild.ml 
open Ocamlbuild_plugin ;;

let _ = dispatch begin function
  | After_rules ->
      dep  ["compile"; "c"] ["config.h"];
      (* flag ["ocaml"; "compile"] & S[A"-ccopt"; A"-O9"]; *)
      flag ["compile"; "c"] & S[ A"-ccopt"; A"-D_GNU_SOURCE"; A"-ccopt"; A"-fPIC" ];

      flag ["link"; "library"; "ocaml"; "byte"; "use_libparmap"] &
        S[A"-dllib"; A"-lparmap_stubs"; ];
      flag ["link"; "library"; "ocaml"; "native"; "use_libparmap"] &
          S[A"-cclib"; A"-lparmap_stubs"; ];
      dep ["link"; "ocaml"; "use_libparmap"] ["libparmap_stubs.a"];
      flag ["link"; "ocaml"; "link_libparmap"] (A"libparmap_stubs.a");

  | _ -> ()
end
back to top