Merge pull request #431 from chambart/allow_sharing_branch_with_float_arrays

GPR#431: Const_float_array are constant for branch merging

Changes

@@ -141,6 +141,8 @@ Compilers:
 - GPR#407: don't display the name of compiled .c files when calling the
   Microsoft C Compiler (same as the assembler).
   (David Allsopp)
+- GPR#431: permit constant float arrays to be eligible for pattern match
+  branch merging (Pierre Chambart)
 
 Runtime system:
 - PR#3612: allow allocating custom block with finalizers in the minor heap

bytecomp/lambda.ml

@@ -274,7 +274,7 @@ let make_key e =
         try Ident.find_same id env
         with Not_found -> e
       end
-    | Lconst  (Const_base (Const_string _)|Const_float_array _) ->
+    | Lconst  (Const_base (Const_string _)) ->
         (* Mutable constants are not shared *)
         raise Not_simple
     | Lconst _ -> e