Remove IL bloat from this PR as per dotnet#5212

manofstick · Jun 25, 2018 · 168a7ae · 168a7ae
1 parent a2df67d
commit 168a7ae
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/src/fsharp/FSharp.Core/prim-types.fs b/src/fsharp/FSharp.Core/prim-types.fs
@@ -1692,12 +1692,26 @@ namespace Microsoft.FSharp.Core
                     | null, _ -> false
                     | _, null -> false
                     | (:? (obj[])      as arr1), (:? (obj[])      as arr2) -> GenericEqualityObjArray    er iec arr1 arr2
+                    | _ ->
+                    match xobj,yobj with 
                     | (:? (byte[])     as arr1), (:? (byte[])     as arr2) -> GenericEqualityByteArray          arr1 arr2
+                    | _ ->
+                    match xobj,yobj with 
                     | (:? (int32[])    as arr1), (:? (int32[])    as arr2) -> GenericEqualityInt32Array         arr1 arr2
+                    | _ ->
+                    match xobj,yobj with 
                     | (:? (int64[])    as arr1), (:? (int64[])    as arr2) -> GenericEqualityInt64Array         arr1 arr2
+                    | _ ->
+                    match xobj,yobj with 
                     | (:? (char[])     as arr1), (:? (char[])     as arr2) -> GenericEqualityCharArray          arr1 arr2
+                    | _ ->
+                    match xobj,yobj with 
                     | (:? (float32[])  as arr1), (:? (float32[])  as arr2) -> GenericEqualitySingleArray er     arr1 arr2
+                    | _ ->
+                    match xobj,yobj with 
                     | (:? (float[])    as arr1), (:? (float[])    as arr2) -> GenericEqualityDoubleArray er     arr1 arr2
+                    | _ ->
+                    match xobj,yobj with 
                     | (:? System.Array as arr1), (:? System.Array as arr2) -> GenericEqualityArbArray    er iec arr1 arr2
                     | _ -> raise (Exception "invalid logic - expected array")