2018-05-24 15:32:15 +04:00
|
|
|
let () =
|
|
|
|
|
let oc = open_out "c_flags.sexp" in
|
2018-07-26 15:24:28 +04:00
|
|
|
let w = "-W -Wall -Wno-unused-parameter -Wbad-function-cast -Wuninitialized" in
|
|
|
|
|
let thread = "-pthread" in
|
|
|
|
|
let opt = "-O2 -g" in
|
|
|
|
|
Printf.fprintf oc "(%s %s %s %s)" w thread opt
|
|
|
|
|
(if Sys.word_size = 32 then "-DMDB_VL32" else "") ;
|
2018-05-24 15:32:15 +04:00
|
|
|
close_out oc
|
