Generated files after rebasing on master.

Author: cristianoc

jscomp/core/bs_conditional_initial.ml

@@ -34,7 +34,6 @@ let setup_env () =
   Ctype.variant_is_subtype := Matching_polyfill.variant_is_subtype;
   Clflags.dump_location := false;  
   Config.syntax_kind := `rescript;
-  Parmatch.print_res_pat := Pattern_printer.print_pattern;
 
 # 38 "core/bs_conditional_initial.pp.ml"
   Clflags.color := Some Always;
@@ -74,4 +73,4 @@ let setup_env () =
 
 
 let () = 
-  at_exit (fun _ -> Format.pp_print_flush Format.err_formatter ())
+  at_exit (fun _ -> Format.pp_print_flush Format.err_formatter ())

lib/4.06.1/unstable/js_compiler.ml

@@ -26327,6 +26327,8 @@ val pretty_pat : pattern -> unit
 val pretty_line : pattern list -> unit
 val pretty_matrix : pattern list list -> unit
 
+val print_res_pat: (Typedtree.pattern -> string) ref
+
 val omega : pattern
 val omegas : int -> pattern list
 val omega_list : 'a list -> pattern list
@@ -26773,6 +26775,9 @@ let get_type_path ty tenv =
 (* Values as patterns pretty printer *)
 (*************************************)
 
+let print_res_pat: (Typedtree.pattern -> string) ref =
+  ref (fun _ -> assert false)
+
 open Format
 ;;
 
@@ -28496,8 +28501,7 @@ let do_check_partial ?pred exhaust loc casel pss = match pss with
               let errmsg =
                 try
                   let buf = Buffer.create 16 in
-                  let fmt = formatter_of_buffer buf in
-                  top_pretty fmt v;
+                  Buffer.add_string buf (!print_res_pat v);
                   begin match check_partial_all v casel with
                   | None -> ()
                   | Some _ ->

lib/4.06.1/unstable/js_playground_compiler.ml

@@ -26327,6 +26327,8 @@ val pretty_pat : pattern -> unit
 val pretty_line : pattern list -> unit
 val pretty_matrix : pattern list list -> unit
 
+val print_res_pat: (Typedtree.pattern -> string) ref
+
 val omega : pattern
 val omegas : int -> pattern list
 val omega_list : 'a list -> pattern list
@@ -26773,6 +26775,9 @@ let get_type_path ty tenv =
 (* Values as patterns pretty printer *)
 (*************************************)
 
+let print_res_pat: (Typedtree.pattern -> string) ref =
+  ref (fun _ -> assert false)
+
 open Format
 ;;
 
@@ -28496,8 +28501,7 @@ let do_check_partial ?pred exhaust loc casel pss = match pss with
               let errmsg =
                 try
                   let buf = Buffer.create 16 in
-                  let fmt = formatter_of_buffer buf in
-                  top_pretty fmt v;
+                  Buffer.add_string buf (!print_res_pat v);
                   begin match check_partial_all v casel with
                   | None -> ()
                   | Some _ ->

lib/4.06.1/whole_compiler.ml

@@ -186268,6 +186268,8 @@ val pretty_pat : pattern -> unit
 val pretty_line : pattern list -> unit
 val pretty_matrix : pattern list list -> unit
 
+val print_res_pat: (Typedtree.pattern -> string) ref
+
 val omega : pattern
 val omegas : int -> pattern list
 val omega_list : 'a list -> pattern list
@@ -186714,6 +186716,9 @@ let get_type_path ty tenv =
 (* Values as patterns pretty printer *)
 (*************************************)
 
+let print_res_pat: (Typedtree.pattern -> string) ref =
+  ref (fun _ -> assert false)
+
 open Format
 ;;
 
@@ -188437,8 +188442,7 @@ let do_check_partial ?pred exhaust loc casel pss = match pss with
               let errmsg =
                 try
                   let buf = Buffer.create 16 in
-                  let fmt = formatter_of_buffer buf in
-                  top_pretty fmt v;
+                  Buffer.add_string buf (!print_res_pat v);
                   begin match check_partial_all v casel with
                   | None -> ()
                   | Some _ ->