minor optimizations

Author: Thorium

src/SQLProvider.Common/SqlRuntime.Common.fs

@@ -363,7 +363,11 @@ type SqlEntity(dc: ISqlDataContext, tableName, columns: ColumnLookup, activeColu
                     for prop in fields do
                         match dataMap.TryGetValue(clean prop) with
                         | true, null when prop.PropertyType.Name.StartsWith "FSharpValueOption" ->
+#if NETSTANDARD21
+                            let typedNone = System.Runtime.CompilerServices.RuntimeHelpers.GetUninitializedObject prop.PropertyType
+#else
                             let typedNone = FormatterServices.GetUninitializedObject prop.PropertyType
+#endif
                             yield propertyTypeMapping (prop.Name, typedNone)
                         | true, dataVal -> yield propertyTypeMapping (prop.Name, (Utilities.convertTypes dataVal prop.PropertyType))
                         | false, _ -> ()
@@ -374,7 +378,11 @@ type SqlEntity(dc: ISqlDataContext, tableName, columns: ColumnLookup, activeColu
             for prop in typ.GetProperties() do
                 match dataMap.TryGetValue(clean prop) with
                 | true, null when prop.PropertyType.Name.StartsWith "FSharpValueOption" ->
+#if NETSTANDARD21
+                    let typedNone = System.Runtime.CompilerServices.RuntimeHelpers.GetUninitializedObject prop.PropertyType
+#else
                     let typedNone = FormatterServices.GetUninitializedObject prop.PropertyType
+#endif
                     prop.GetSetMethod().Invoke(instance, [|propertyTypeMapping (prop.Name, typedNone)|]) |> ignore
                 | true, dataVal -> prop.GetSetMethod().Invoke(instance, [|propertyTypeMapping (prop.Name, (Utilities.convertTypes dataVal prop.PropertyType))|]) |> ignore
                 | false, _ -> ()

src/SQLProvider.Common/SqlRuntime.Patterns.fs

@@ -105,17 +105,23 @@ let (|SeqValues|_|) (e:Expression) =
 
         // Working with untyped IEnumerable so need to do a lot manually instead of using Seq
         // Work out the size the sequence
-        let mutable count = 0
-        for obj in values do
-            count <- count + 1
+
+        let count =
+            match values with
+            | :? System.Collections.ICollection as ic -> ic.Count
+            | _ ->
+                let mutable count = 0
+                for obj in values do
+                    count <- count + 1
+                count
         // Create and populate the array
         let array = Array.CreateInstance(typeof<System.Object>, count)
         let mutable i = 0
         for obj in values do
             array.SetValue(obj, i)
             i <- i + 1
         // Return the array
-        Some(array)
+        Some array
 
 
 let (|PropertyGet|_|) (e:Expression) =