From f96b7a06422cb9e394b538a594ae0b2ab53f9aae Mon Sep 17 00:00:00 2001
From: Olivier Nicole <olivier@chnik.fr>
Date: Mon, 26 Aug 2024 17:35:11 +0200
Subject: [PATCH] fixup! Distinguish float arrays

---
 compiler/lib/eval.ml           | 2 +-
 compiler/lib/parse_bytecode.ml | 3 ++-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/compiler/lib/eval.ml b/compiler/lib/eval.ml
index cb3739421a..85ccec99f7 100644
--- 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
index 8a6d46c0e8..57d5773a78 100644
--- 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)