000b9af6f9
Tentative fix for "Illegal instruction (core dumped)" on certain architectures du to gcc over optimization. This can possibly introduce a performance regression. @chambart for his gbd-foo skills
12 lines
732 B
OCaml
12 lines
732 B
OCaml
let () =
|
|
(* inspired by https://github.com/vbmithr/ocaml-secp256k1-internal/blob/master/config/discover.ml *)
|
|
let ccopts = "-Ofast -mtune=generic -fwrapv -fomit-frame-pointer -funroll-loops -Wall -Werror -Wfatal-errors" in
|
|
(* the important bit is -DKRML_NOUINT128 which enables the verified (but slow) implementation of UInt128 in FStar.c rather than the builtin __int128 which is only available on 64-bit platforms. *)
|
|
let ccopts32 = "-Ofast -fwrapv -fomit-frame-pointer -funroll-loops -DKRML_NOUINT128 -Wall -Werror -Wfatal-errors" in
|
|
|
|
let oc = open_out "c_flags.sexp" in
|
|
let sixtyfour = Sys.word_size = 64 in
|
|
let flags = if sixtyfour then ccopts else ccopts32 in
|
|
Printf.fprintf oc "(%s)%!" flags ;
|
|
close_out oc
|