Merge pull request #4693 from rescript-lang/fix_flush_err_formatter

Fix flush err_formatter

Author: bobzhang

darwin/ninja.exe

@@ -70,3 +70,5 @@ let setup_env () =
   ; Switch.cut := 100 (* tweakable but not very useful *)
 #end  
 
+let () = 
+    at_exit (fun _ -> Format.pp_print_flush Format.err_formatter ())

jscomp/core/bs_conditional_initial.ml

@@ -86,7 +86,7 @@ let super_warning_printer loc ppf w =
   | `Inactive -> ()
   | `Active { Warnings. number = _; message = _;  sub_locs = _} ->
     setup_colors ();    
-    Format.fprintf ppf "@[<v 2>@,%a@,%s@,@]@."
+    Format.fprintf ppf "@[<v 2>@,%a@,%s@,@]"
       (print  ("Warning number " ^ (Warnings.number w |> string_of_int)))
       loc
       (Warnings.message w);

jscomp/super_errors/super_location.ml

@@ -81628,7 +81628,8 @@ let setup_env () =
   Lexer.replace_directive_string "BS_VERSION"  Bs_version.version
 
 
-
+let () = 
+    at_exit (fun _ -> Format.pp_print_flush Format.err_formatter ())
 end
 module Ext_pervasives : sig 
 #1 "ext_pervasives.mli"
@@ -409780,7 +409781,7 @@ let super_warning_printer loc ppf w =
   | `Inactive -> ()
   | `Active { Warnings. number = _; message = _;  sub_locs = _} ->
     setup_colors ();    
-    Format.fprintf ppf "@[<v 2>@,%a@,%s@,@]@."
+    Format.fprintf ppf "@[<v 2>@,%a@,%s@,@]"
       (print  ("Warning number " ^ (Warnings.number w |> string_of_int)))
       loc
       (Warnings.message w);

lib/4.06.1/unstable/js_compiler.ml

@@ -81628,7 +81628,8 @@ let setup_env () =
   Lexer.replace_directive_string "BS_VERSION"  Bs_version.version
 
 
-
+let () = 
+    at_exit (fun _ -> Format.pp_print_flush Format.err_formatter ())
 end
 module Ext_pervasives : sig 
 #1 "ext_pervasives.mli"
@@ -569876,7 +569877,7 @@ let super_warning_printer loc ppf w =
   | `Inactive -> ()
   | `Active { Warnings. number = _; message = _;  sub_locs = _} ->
     setup_colors ();    
-    Format.fprintf ppf "@[<v 2>@,%a@,%s@,@]@."
+    Format.fprintf ppf "@[<v 2>@,%a@,%s@,@]"
       (print  ("Warning number " ^ (Warnings.number w |> string_of_int)))
       loc
       (Warnings.message w);

lib/4.06.1/unstable/js_refmt_compiler.ml

@@ -365478,7 +365478,8 @@ let setup_env () =
   Lexer.replace_directive_string "BS_VERSION"  Bs_version.version
 
 
-
+let () = 
+    at_exit (fun _ -> Format.pp_print_flush Format.err_formatter ())
 end
 module Ext_spec : sig 
 #1 "ext_spec.mli"
@@ -435340,7 +435341,7 @@ let super_warning_printer loc ppf w =
   | `Inactive -> ()
   | `Active { Warnings. number = _; message = _;  sub_locs = _} ->
     setup_colors ();    
-    Format.fprintf ppf "@[<v 2>@,%a@,%s@,@]@."
+    Format.fprintf ppf "@[<v 2>@,%a@,%s@,@]"
       (print  ("Warning number " ^ (Warnings.number w |> string_of_int)))
       loc
       (Warnings.message w);