add: MaxMemAllocSize

Author: IgorErin

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

@@ -7,6 +7,7 @@ open GraphBLAS.FSharp.Backend.Matrix
 open GraphBLAS.FSharp.Backend.Objects
 open GraphBLAS.FSharp.Backend.Objects.ClMatrix
 open GraphBLAS.FSharp.Backend.Vector
+open GraphBLAS.FSharp.Backend.Objects.ClContext
 
 module Matrix =
     let copy (clContext: ClContext) workGroupSize =
@@ -418,6 +419,5 @@ module Matrix =
             fun (processor: MailboxProcessor<_>) allocationMode (leftMatrix: ClMatrix<'a>) (rightMatrix: ClMatrix<'b>) ->
                 match leftMatrix, rightMatrix with
                 | ClMatrix.CSR leftMatrix, ClMatrix.CSR rightMatrix ->
-                    // TODO(max alloc size)
-                    run processor allocationMode 1000 leftMatrix rightMatrix
+                    run processor allocationMode (clContext.MaxMemAllocSize / 10) leftMatrix rightMatrix
                 | _ -> failwith "Matrix formats are not matching"

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

@@ -41,3 +41,10 @@ module ClContext =
                     hostAccessMode = HostAccessMode.ReadWrite,
                     allocationMode = AllocationMode.CopyHostPtr
                 )
+
+        member this.MaxMemAllocSize =
+            let error = ref Unchecked.defaultof<ClErrorCode>
+
+            Cl
+                .GetDeviceInfo(this.ClDevice.Device, OpenCL.Net.DeviceInfo.MaxMemAllocSize, error)
+                .CastTo<int>()

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

@@ -215,9 +215,7 @@ let createGeneralTest (zero: 'a) isEqual (opAddQ, opAdd) (opMulQ, opMul) testFun
     testFun opAddQ opMulQ context Utils.defaultWorkGroupSize
     |> makeGeneralTest zero isEqual opAdd opMul
     |> testPropertyWithConfig
-        { config with
-              endSize = 10000
-              maxTest = 100 }
+        { config with endSize = 100; maxTest = 10 }
         $"test on %A{typeof<'a>}"
 
 let generalTests =