Use Sys.word_size for the conversion to megabytes in merlin response

Co-authored-by: Sonja Heinze <[email protected]>
ocaml · Nov 29, 2023 · 5217558 · 5217558
1 parent ad78865
commit 5217558
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/frontend/ocamlmerlin/new/new_merlin.ml b/src/frontend/ocamlmerlin/new/new_merlin.ml
@@ -121,7 +121,7 @@ let run = function
           in
           let cpu_time = Misc.time_spent () -. start_cpu in
           let gc_stats = Gc.quick_stat () in
-          let heap_mbytes = gc_stats.heap_words * 8 / 1_000_000 in
+          let heap_mbytes = gc_stats.heap_words * (Sys.word_size / 8) / 1_000_000 in
           let clock_time = Unix.gettimeofday () *. 1000. -. start_clock in
           let timing = Mpipeline.timing_information pipeline in
           let pipeline_time =