fixup! Distinguish float arrays

ocsigen · Aug 28, 2024 · f96b7a0 · f96b7a0
1 parent f357bf7
commit f96b7a0
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/compiler/lib/eval.ml b/compiler/lib/eval.ml
@@ -381,7 +381,7 @@ let the_cond_of info x =
     info
     (fun x ->
       match Flow.Info.def info x with
-      | Some (Constant (Int 0l | Int32 0l | NativeInt 0n)) -> Zero
+      | Some (Constant (Int 0l)) -> Zero
       | Some
           (Constant
             ( Int _

diff --git a/compiler/lib/parse_bytecode.ml b/compiler/lib/parse_bytecode.ml
@@ -515,7 +515,8 @@ end = struct
     | Float_array _ -> false
     | Int64 _ -> false
     | Tuple _ -> false
-    | Int _ | Int32 _ | NativeInt _ -> true
+    | Int _ -> true
+    | Int32 _ | NativeInt _ -> false
 end
 
 let const i = Constant (Int i)