Sync deprecation warnings fixes / removal of Pervasives module from syntax repo

Author: cknitt

analysis/vendor/compiler-libs-406/char.mli

@@ -57,7 +57,7 @@ type t = char
 
 val compare: t -> t -> int
 (** The comparison function for characters, with the same specification as
-    {!Pervasives.compare}.  Along with the type [t], this function [compare]
+    {!Stdlib.compare}.  Along with the type [t], this function [compare]
     allows the module [Char] to be passed as argument to the functors
     {!Set.Make} and {!Map.Make}. *)
 

analysis/vendor/compiler-libs-406/digest.mli

@@ -29,7 +29,7 @@ type t = string
 
 val compare : t -> t -> int
 (** The comparison function for 16-character digest, with the same
-    specification as {!Pervasives.compare} and the implementation
+    specification as {!Stdlib.compare} and the implementation
     shared with {!String.compare}. Along with the type [t], this
     function [compare] allows the module [Digest] to be passed as
     argument to the functors {!Set.Make} and {!Map.Make}.

analysis/vendor/compiler-libs-406/dune

@@ -1,5 +1,5 @@
 (library
  (name compilerlibs406)
  (libraries)
- (flags -w "+26+27+32+33+39" -w "-d")
+ (flags -w "+26+27+32+33+39")
  (modules_without_implementation annot asttypes outcometree parsetree))

analysis/vendor/compiler-libs-406/ident.ml

@@ -55,7 +55,7 @@ let same i1 i2 = i1 = i2
        then i1.stamp = i2.stamp
        else i2.stamp = 0 && i1.name = i2.name *)
 
-let compare i1 i2 = Pervasives.compare i1 i2
+let compare i1 i2 = Stdlib.compare i1 i2
 
 let binding_time i = i.stamp
 

analysis/vendor/compiler-libs-406/int32.ml

@@ -64,5 +64,5 @@ let of_string_opt s =
 
 type t = int32
 
-let compare (x: t) (y: t) = Pervasives.compare x y
+let compare (x: t) (y: t) = Stdlib.compare x y
 let equal (x: t) (y: t) = compare x y = 0

analysis/vendor/compiler-libs-406/int32.mli

@@ -172,7 +172,7 @@ type t = int32
 
 val compare: t -> t -> int
 (** The comparison function for 32-bit integers, with the same specification as
-    {!Pervasives.compare}.  Along with the type [t], this function [compare]
+    {!Stdlib.compare}.  Along with the type [t], this function [compare]
     allows the module [Int32] to be passed as argument to the functors
     {!Set.Make} and {!Map.Make}. *)
 

analysis/vendor/compiler-libs-406/int64.ml

@@ -71,5 +71,5 @@ external float_of_bits : int64 -> float
 
 type t = int64
 
-let compare (x: t) (y: t) = Pervasives.compare x y
+let compare (x: t) (y: t) = Stdlib.compare x y
 let equal (x: t) (y: t) = compare x y = 0

analysis/vendor/compiler-libs-406/int64.mli

@@ -193,7 +193,7 @@ type t = int64
 
 val compare: t -> t -> int
 (** The comparison function for 64-bit integers, with the same specification as
-    {!Pervasives.compare}.  Along with the type [t], this function [compare]
+    {!Stdlib.compare}.  Along with the type [t], this function [compare]
     allows the module [Int64] to be passed as argument to the functors
     {!Set.Make} and {!Map.Make}. *)
 

analysis/vendor/compiler-libs-406/lambda.ml

@@ -299,7 +299,7 @@ let default_stub_attribute =
 
 (* Build sharing keys *)
 (*
-   Those keys are later compared with Pervasives.compare.
+   Those keys are later compared with Stdlib.compare.
    For that reason, they should not include cycles.
 *)
 

analysis/vendor/compiler-libs-406/map.mli

@@ -28,8 +28,8 @@
        struct
          type t = int * int
          let compare (x0,y0) (x1,y1) =
-           match Pervasives.compare x0 x1 with
-               0 -> Pervasives.compare y0 y1
+           match Stdlib.compare x0 x1 with
+               0 -> Stdlib.compare y0 y1
              | c -> c
        end
 
@@ -55,7 +55,7 @@ module type OrderedType =
           [f e1 e2] is strictly negative if [e1] is smaller than [e2],
           and [f e1 e2] is strictly positive if [e1] is greater than [e2].
           Example: a suitable ordering function is the generic structural
-          comparison function {!Pervasives.compare}. *)
+          comparison function {!Stdlib.compare}. *)
   end
 (** Input signature of the functor {!Map.Make}. *)
 

analysis/vendor/compiler-libs-406/misc.ml

@@ -581,9 +581,9 @@ module Color = struct
   (* map a tag to a style, if the tag is known.
      @raise Not_found otherwise *)
   let style_of_tag s = match s with
-    | "error" -> (!cur_styles).error
-    | "warning" -> (!cur_styles).warning
-    | "loc" -> (!cur_styles).loc
+    | Format.String_tag "error" -> (!cur_styles).error
+    | Format.String_tag "warning" -> (!cur_styles).warning
+    | Format.String_tag "loc" -> (!cur_styles).loc
     | _ -> raise Not_found
 
   let color_enabled = ref true
@@ -604,13 +604,13 @@ module Color = struct
   (* add color handling to formatter [ppf] *)
   let set_color_tag_handling ppf =
     let open Format in
-    let functions = pp_get_formatter_tag_functions ppf () in
+    let functions = pp_get_formatter_stag_functions ppf () in
     let functions' = {functions with
-      mark_open_tag=(mark_open_tag ~or_else:functions.mark_open_tag);
-      mark_close_tag=(mark_close_tag ~or_else:functions.mark_close_tag);
+      mark_open_stag=(mark_open_tag ~or_else:functions.mark_open_stag);
+      mark_close_stag=(mark_close_tag ~or_else:functions.mark_close_stag);
     } in
     pp_set_mark_tags ppf true; (* enable tags *)
-    pp_set_formatter_tag_functions ppf functions';
+    pp_set_formatter_stag_functions ppf functions';
     (* also setup margins *)
     pp_set_margin ppf (pp_get_margin std_formatter());
     ()

analysis/vendor/compiler-libs-406/nativeint.ml

@@ -61,5 +61,5 @@ let of_string_opt s =
 
 type t = nativeint
 
-let compare (x: t) (y: t) = Pervasives.compare x y
+let compare (x: t) (y: t) = Stdlib.compare x y
 let equal (x: t) (y: t) = compare x y = 0

analysis/vendor/compiler-libs-406/nativeint.mli

@@ -183,7 +183,7 @@ type t = nativeint
 
 val compare: t -> t -> int
 (** The comparison function for native integers, with the same specification as
-    {!Pervasives.compare}.  Along with the type [t], this function [compare]
+    {!Stdlib.compare}.  Along with the type [t], this function [compare]
     allows the module [Nativeint] to be passed as argument to the functors
     {!Set.Make} and {!Map.Make}. *)
 

analysis/vendor/compiler-libs-406/numbers.ml

@@ -77,7 +77,7 @@ module Float = struct
   include Identifiable.Make (struct
     type t = float
 
-    let compare x y = Pervasives.compare x y
+    let compare x y = Stdlib.compare x y
     let output oc x = Printf.fprintf oc "%f" x
     let hash f = Hashtbl.hash f
     let equal (i : float) j = i = j

analysis/vendor/compiler-libs-406/parmatch.ml

@@ -263,10 +263,10 @@ let is_absent_pat p = match p.pat_desc with
 let const_compare x y =
   match x,y with
   | Const_float f1, Const_float f2 ->
-      Pervasives.compare (float_of_string f1) (float_of_string f2)
+      compare (float_of_string f1) (float_of_string f2)
   | Const_string (s1, _), Const_string (s2, _) ->
       String.compare s1 s2
-  | _, _ -> Pervasives.compare x y
+  | _, _ -> compare x y
 
 let records_args l1 l2 =
   (* Invariant: fields are already sorted by Typecore.type_label_a_list *)