Something went wrong. Try again.
lol
Something went wrong. Try again.
2.2 kB · 68 lines
at master
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869diff --git a/src/heap/sharedMem.ml b/src/heap/sharedMem.mlindex 600e272..511b724 100644--- a/src/heap/sharedMem.ml+++ b/src/heap/sharedMem.ml@@ -521,7 +521,7 @@ end = struct let stack: t option ref = ref None - let has_local_changes () = Core_kernel.Option.is_some (!stack)+ let has_local_changes () = Core.Option.is_some (!stack) let rec mem stack_opt key = match stack_opt withdiff --git a/src/interface/memory.ml b/src/interface/memory.mlindex 3554b17..09aa1f5 100644--- a/src/interface/memory.ml+++ b/src/interface/memory.ml@@ -66,10 +66,10 @@ let get_heap_handle () = let heap_use_ratio () =- Core_kernel.Float.of_int (SharedMemory.heap_size ()) /.- Core_kernel.Float.of_int initial_heap_size+ Core.Float.of_int (SharedMemory.heap_size ()) /.+ Core.Float.of_int initial_heap_size let slot_use_ratio () = let { SharedMemory.used_slots; slots; _ } = SharedMemory.hash_stats () in- Core_kernel.Float.of_int used_slots /. Core_kernel.Float.of_int slots+ Core.Float.of_int used_slots /. Core.Float.of_int slotsdiff --git a/src/interface/scheduler.ml b/src/interface/scheduler.mlindex 9b8282a..b5d41b5 100644--- a/src/interface/scheduler.ml+++ b/src/interface/scheduler.ml@@ -48,7 +48,7 @@ let map_reduce | Some exact_size when exact_size > 0 -> (List.length work / exact_size) + 1 | _ ->- let bucket_multiplier = Core_kernel.Int.min bucket_multiplier (1 + (List.length work / 400)) in+ let bucket_multiplier = Core.Int.min bucket_multiplier (1 + (List.length work / 400)) in number_of_workers * bucket_multiplier in MultiWorker.calldiff --git a/src/utils/dune b/src/utils/duneindex 50a4c42..45e4a5a 100644--- a/src/utils/dune+++ b/src/utils/dune@@ -15,6 +15,7 @@ sysinfo) (libraries core+ core_unix str hack_parallel.collections hack_parallel.diskdiff --git a/src/utils/hh_logger.ml b/src/utils/hh_logger.mlindex 4c99f05..8075ed5 100644--- a/src/utils/hh_logger.ml+++ b/src/utils/hh_logger.ml@@ -9,6 +9,7 @@ *) open Core+module Unix = Core_unix let timestamp_string () = let open Unix in