Run ocamlformat

Author: tmcgilchrist

lib/olly_common/launch.ml

@@ -126,7 +126,8 @@ let empty_config =
     cleanup = (fun () -> ());
     poll_sleep = 0.1 (* Poll at 10Hz *);
     runtime_events_dir = None (* Use default tmp directory *);
-    runtime_events_log_wsize = None; (* Use default size 16. *)
+    runtime_events_log_wsize = None;
+    (* Use default size 16. *)
   }
 
 let olly config exec_args =

lib/olly_gc_stats/olly_gc_stats.ml

@@ -14,6 +14,7 @@ let domain_elapsed_times = Array.make number_domains 0.
 let domain_gc_times = Array.make number_domains 0
 let domain_minor_words = Array.make number_domains 0
 let domain_promoted_words = Array.make number_domains 0
+
 (* let domain_major_words = Array.make number_domains 0 *)
 let minor_collections = ref 0
 let major_collections = ref 0
@@ -157,15 +158,15 @@ let print_percentiles json output hist =
         promoted_words :=
           !promoted_words +. float_of_int domain_promoted_words.(i))
       domain_minor_words;
-    Printf.fprintf oc "Total heap:\t %.0f\n"
-      (!minor_words -. !promoted_words);
+    Printf.fprintf oc "Total heap:\t %.0f\n" (!minor_words -. !promoted_words);
     (* Printf.fprintf oc "Total heap:\t %.0f\n" *)
     (*   (!minor_words -. !promoted_words +. !major_words); *)
     Printf.fprintf oc "Minor heap:\t %.0f\n" !minor_words;
     (* Printf.fprintf oc "Major heap:\t %.0f\n" !major_words; *)
     Printf.fprintf oc "Promoted words:\t %.0f (%.2f%%)\n" !promoted_words
       (!promoted_words /. !minor_words *. 100.0);
     Printf.fprintf oc "\n";
+
     (* Printf.fprintf oc "Per domain stats: \n"; *)
     (* let data = *)
     (*   ref [ [ "Domain"; "Total"; "Minor"; "Promoted"; "Major"; "Promoted(%)" ] ] *)