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

small change in shims generation

Browse source 
as @fardalem points out, better be conservative on archictures and have
64bits popcount be the special case
This commit is contained in:
Simon Cruanes 2020-08-06 09:46:33 -04:00
parent e0f2c78edd
commit 09298b3324
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/core/mkshims.ml
View file

@ -201,8 +201,8 @@ let popcount (b:int) : int =
b land 0x7f b land 0x7f
" "
let shims_int_32bit = " let shims_int_non_64bit = "
(* we use the simple version for 32 bits. *) (* we use the simple version for non-64 bits. *)
let popcount (b:int) : int = let popcount (b:int) : int =
let rec loop count x = let rec loop count x =
if x=0 then count if x=0 then count
@ -232,5 +232,5 @@ let () =
write_file "CCShimsMkLet_.ml" (if (major, minor) >= (4,8) then shims_let_op_post_408 else shims_let_op_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 "CCShimsInt_.ml" write_file "CCShimsInt_.ml"
((if (major, minor) >= (4,8) then shims_int_post_408 else shims_int_pre_408) ((if (major, minor) >= (4,8) then shims_int_post_408 else shims_int_pre_408)
^ if Sys.word_size=32 then shims_int_32bit else shims_int_64bit); ^ if Sys.word_size=64 then shims_int_64bit else shims_int_non_64bit);
) )