LCPQ/QCaml
10
1
Fork 0
mirror of https://gitlab.com/scemama/QCaml.git synced 2024-08-30 00:03:42 +02:00
Code Releases Activity

Small optimizations

Browse Source
This commit is contained in:
Anthony Scemama 2019-11-13 11:07:39 +01:00
parent 61ba79ee59
commit f93b2fe0a6
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Utils/Util.ml
View File

@ -20,15 +20,15 @@ external popcnt : int64 -> int32 = "popcnt_bytecode" "popcnt"
[@@unboxed] [@@noalloc] [@@unboxed] [@@noalloc]
(** popcnt instruction *) (** popcnt instruction *)
let popcnt i = popcnt i |> Int32.to_int let popcnt i = (popcnt [@inlined] ) i |> Int32.to_int
external trailz : int64 -> int32 = "trailz_bytecode" "trailz" external trailz : int64 -> int32 = "trailz_bytecode" "trailz" "int"
[@@unboxed] [@@noalloc] [@@unboxed] [@@noalloc]
(** ctz instruction *) (** ctz instruction *)
let trailz i = trailz i |> Int32.to_int let trailz i = trailz i |> Int32.to_int
external leadz : int64 -> int32 = "leadz_bytecode" "leadz" external leadz : int64 -> int32 = "leadz_bytecode" "leadz" "int"
[@@unboxed] [@@noalloc] [@@unboxed] [@@noalloc]
(** bsf instruction *) (** bsf instruction *)