Browse Source

[server] goddammit Nicolas

Turns out we used the wrong multiplier for the GC stats report, which only made sense on 32 bit systems.
Simon Krajewski 6 years ago
parent
commit
72d4f1c55e
1 changed files with 1 additions and 1 deletions
  1. 1 1
      src/compiler/serverMessage.ml

+ 1 - 1
src/compiler/serverMessage.ml

@@ -134,7 +134,7 @@ let message s =
 let gc_stats time =
 	if config.print_stats then begin
 		let stat = Gc.quick_stat() in
-		let size = (float_of_int stat.Gc.heap_words) *. 4. in
+		let size = (float_of_int stat.Gc.heap_words) *. (float_of_int (Sys.word_size / 8)) in
 		print_endline (Printf.sprintf "Compacted memory %.3fs %.1fMB" time (size /. (1024. *. 1024.)));
 	end