refactor: maxAllocSize: unit64

Author: artemiipatov

src/GraphBLAS-sharp.Backend/Objects/ClContextExtensions.fs

@@ -48,4 +48,5 @@ module ClContextExtensions =
             Cl
                 .GetDeviceInfo(this.ClDevice.Device, OpenCL.Net.DeviceInfo.MaxMemAllocSize, error)
                 .CastTo<int>()
-            * 1<Byte>
+            |> uint64
+            |> ((*) 1UL<Byte>)

src/GraphBLAS-sharp.Backend/Operations/Operations.fs

@@ -299,10 +299,17 @@ module Operations =
                         List.max [ sizeof<'a>
                                    sizeof<'c>
                                    sizeof<'b> ]
-                        * 1<Byte>
+                        |> uint64
+                        |> (*) 1UL<Byte>
 
                     let resultCapacity =
-                        (clContext.MaxMemAllocSize / allocCapacity) / 3
+                        (clContext.MaxMemAllocSize / allocCapacity) / 3UL
+
+                    let resultCapacity =
+                        (max
+                         <| uint64 System.Int32.MaxValue
+                         <| resultCapacity)
+                        |> int
 
                     run processor allocationMode resultCapacity leftMatrix rightMatrix
                 | _ -> failwith "Matrix formats are not matching"

tests/GraphBLAS-sharp.Tests/Backend/Common/Scan/ByKey.fs

@@ -109,3 +109,6 @@ let sequentialSegmentsTests =
         |> testList "include"
 
     testList "Sequential segments" [ excludeTests; includeTests ]
+
+let tests =
+    testList "ByKey" [ sequentialSegmentsTests ]

tests/GraphBLAS-sharp.Tests/Backend/Matrix/SpGeMM/Expand.fs

@@ -230,4 +230,7 @@ let generalTests =
           ArithmeticOperations.float32Mul
           Operations.SpGeMM.expand
       createGeneralTest false (=) ArithmeticOperations.boolAdd ArithmeticOperations.boolMul Operations.SpGeMM.expand ]
-    |> testList "general"
+    |> testList "General"
+
+let tests =
+    testList "SpGeMM.Expand" [ generalTests ]

tests/GraphBLAS-sharp.Tests/Program.fs

@@ -17,15 +17,15 @@ let matrixTests =
           Matrix.SubRows.tests
           Matrix.Kronecker.tests
 
-          Matrix.SpGeMM.Expand.generalTests
+          Matrix.SpGeMM.Expand.tests
           Matrix.SpGeMM.Masked.tests ]
     |> testSequenced
 
 let commonTests =
     let scanTests =
         testList
             "Scan"
-            [ Common.Scan.ByKey.sequentialSegmentsTests
+            [ Common.Scan.ByKey.tests
               Common.Scan.PrefixSum.tests ]
 
     let reduceTests =