mirror of
https://github.com/c-cube/ocaml-containers.git
synced 2025-12-07 11:45:31 -05:00
13 lines
418 B
OCaml
13 lines
418 B
OCaml
let () =
|
|
let major, minor =
|
|
Scanf.sscanf Sys.ocaml_version "%u.%u"
|
|
(fun major minor -> major, minor)
|
|
in
|
|
let after_4_3 = (major, minor) >= (4, 3) in
|
|
let flags_file = open_out "flambda.flags" in
|
|
if after_4_3 then (
|
|
output_string flags_file "(-O3 -unbox-closures -unbox-closures-factor 20 -color always)\n";
|
|
) else (
|
|
output_string flags_file "()\n";
|
|
);
|
|
close_out flags_file
|