simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 11:15:31 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix: in shims, use configurator properly to determine int size

Browse source 
close #346
This commit is contained in:
Simon Cruanes 2020-12-27 22:23:45 -05:00
parent bb8a9d02d7
commit 858dee7279
1 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/core/mkshims.ml
View file

@ -265,7 +265,16 @@ let () =
write_file "CCShimsFun_.mli" (if (major, minor) >= (4,8) then shims_fun_mli_post_408 else shims_fun_mli_pre_408);
write_file "CCShimsMkLet_.ml" (if (major, minor) >= (4,8) then shims_let_op_post_408 else shims_let_op_pre_408);
write_file "CCShimsMkLetList_.ml" (if (major, minor) >= (4,8) then shims_let_op_list_post_408 else shims_let_op_list_pre_408);
(* see if we target native 64 bits (rather than 32 bits or jsoo or sth else) *)
let int_size =
try C.ocaml_config_var_exn c "int_size" |> int_of_string
with e ->
let n = Sys.int_size in (* default to current version *)
Printf.eprintf "cannot obtain target word_size:\n%s\ndefaulting to %d\n%!"
(Printexc.to_string e) n;
n
in
write_file "CCShimsInt_.ml"
((if (major, minor) >= (4,8) then shims_int_post_408 else shims_int_pre_408)
^ if Sys.word_size=64 then shims_int_64bit else shims_int_non_64bit);
^ if int_size=63 then shims_int_64bit else shims_int_non_64bit);
)