snapshot

Author: bobzhang

lib/4.06.1/unstable/js_compiler.ml

@@ -10848,11 +10848,11 @@ let rec find_constr tag num_const num_nonconst = function
     [] ->
       raise Constr_not_found
   | {cd_args = Cstr_tuple []; _} as c  :: rem ->
-      if tag = Cstr_constant num_const
+      if Types.equal_tag tag  (Cstr_constant num_const)
       then c
       else find_constr tag (num_const + 1) num_nonconst rem
   | c :: rem ->
-      if tag = Cstr_block num_nonconst || tag = Cstr_unboxed
+      if Types.equal_tag tag (Cstr_block num_nonconst) || tag = Cstr_unboxed
       then c
       else find_constr tag num_const (num_nonconst + 1) rem
 

lib/4.06.1/unstable/js_refmt_compiler.ml

@@ -10848,11 +10848,11 @@ let rec find_constr tag num_const num_nonconst = function
     [] ->
       raise Constr_not_found
   | {cd_args = Cstr_tuple []; _} as c  :: rem ->
-      if tag = Cstr_constant num_const
+      if Types.equal_tag tag  (Cstr_constant num_const)
       then c
       else find_constr tag (num_const + 1) num_nonconst rem
   | c :: rem ->
-      if tag = Cstr_block num_nonconst || tag = Cstr_unboxed
+      if Types.equal_tag tag (Cstr_block num_nonconst) || tag = Cstr_unboxed
       then c
       else find_constr tag num_const (num_nonconst + 1) rem
 

lib/4.06.1/whole_compiler.ml

@@ -298808,11 +298808,11 @@ let rec find_constr tag num_const num_nonconst = function
     [] ->
       raise Constr_not_found
   | {cd_args = Cstr_tuple []; _} as c  :: rem ->
-      if tag = Cstr_constant num_const
+      if Types.equal_tag tag  (Cstr_constant num_const)
       then c
       else find_constr tag (num_const + 1) num_nonconst rem
   | c :: rem ->
-      if tag = Cstr_block num_nonconst || tag = Cstr_unboxed
+      if Types.equal_tag tag (Cstr_block num_nonconst) || tag = Cstr_unboxed
       then c
       else find_constr tag num_const (num_nonconst + 1) rem