strict warnings/ fix ci

Author: bobzhang

jscomp/ext/bsc_warnings.ml

@@ -72,5 +72,5 @@
 
   - 102 Bs_polymorphic_comparison
 *)
-let defaults_w = "+a-4-9-40-41-42-50-102"
+let defaults_w = "+a-4-40-41-42-50-102"
 let defaults_warn_error = "-a+5+101";;

jscomp/others/belt.ml

@@ -22,7 +22,7 @@
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)
 
-
+[@@@warning "-49"]
 (** A stdlib shipped with BuckleScript
 
     This stdlib is still in {i beta} but we encourage you to try it out and

jscomp/runtime/caml_int64.ml

@@ -168,8 +168,8 @@ let rec mul this
   | Int64 {lo = 0n ; hi = 0n}, _
   | _, Int64 {lo = 0n; hi = 0n}
     -> zero
-  | Int64 {lo = 0n; hi = - 0x80000000n}, Int64 {lo }
-  | Int64 {lo}, Int64 {lo = 0n; hi = - 0x80000000n}
+  | Int64 {lo = 0n; hi = - 0x80000000n}, Int64 {lo;_ }
+  | Int64 {lo;_}, Int64 {lo = 0n; hi = - 0x80000000n}
     ->
     if  (lo & 0x1n) = 0n then
       zero
@@ -329,7 +329,7 @@ let rec div self other =
       if eq other one || eq other neg_one then self
       else if eq other min_int then one
       else
-        let (Int64 {hi = other_hi}) = other in
+        let (Int64 {hi = other_hi;_}) = other in
       (* now |other| >= 2, so |this/other| < |MIN_VALUE|*)
         let half_this = asr_ self 1  in
         let approx = lsl_ (div half_this other) 1 in
@@ -365,7 +365,7 @@ let rec div self other =
           else 2. ** (log2 -. 48.) in
         let approxRes = ref (of_float approx.contents) in
         let approxRem = ref (mul approxRes.contents other) in
-        while (match approxRem.contents with Int64 {hi}-> hi) < 0n || gt approxRem.contents rem.contents do
+        while (match approxRem.contents with Int64 {hi;_}-> hi) < 0n || gt approxRem.contents rem.contents do
           approx.contents <- approx.contents -. delta;
           approxRes.contents <- of_float approx.contents;
           approxRem.contents <- mul approxRes.contents other

lib/4.06.1/bsb.ml

@@ -6969,7 +6969,7 @@ module Bsc_warnings
 
   - 102 Bs_polymorphic_comparison
 *)
-let defaults_w = "+a-4-9-40-41-42-50-102"
+let defaults_w = "+a-4-40-41-42-50-102"
 let defaults_warn_error = "-a+5+101";;
 
 end

lib/4.06.1/bsdep.ml

@@ -138,7 +138,7 @@ module Bsc_warnings
 
   - 102 Bs_polymorphic_comparison
 *)
-let defaults_w = "+a-4-9-40-41-42-50-102"
+let defaults_w = "+a-4-40-41-42-50-102"
 let defaults_warn_error = "-a+5+101";;
 
 end

lib/4.06.1/unstable/bsb_native.ml

@@ -6969,7 +6969,7 @@ module Bsc_warnings
 
   - 102 Bs_polymorphic_comparison
 *)
-let defaults_w = "+a-4-9-40-41-42-50-102"
+let defaults_w = "+a-4-40-41-42-50-102"
 let defaults_warn_error = "-a+5+101";;
 
 end

lib/4.06.1/unstable/js_compiler.ml

@@ -25485,7 +25485,7 @@ module Bsc_warnings
 
   - 102 Bs_polymorphic_comparison
 *)
-let defaults_w = "+a-4-9-40-41-42-50-102"
+let defaults_w = "+a-4-40-41-42-50-102"
 let defaults_warn_error = "-a+5+101";;
 
 end

lib/4.06.1/unstable/js_refmt_compiler.ml

@@ -25485,7 +25485,7 @@ module Bsc_warnings
 
   - 102 Bs_polymorphic_comparison
 *)
-let defaults_w = "+a-4-9-40-41-42-50-102"
+let defaults_w = "+a-4-40-41-42-50-102"
 let defaults_warn_error = "-a+5+101";;
 
 end

lib/4.06.1/whole_compiler.ml

@@ -7473,7 +7473,7 @@ module Bsc_warnings
 
   - 102 Bs_polymorphic_comparison
 *)
-let defaults_w = "+a-4-9-40-41-42-50-102"
+let defaults_w = "+a-4-40-41-42-50-102"
 let defaults_warn_error = "-a+5+101";;
 
 end