add: measure maxAllocSize

src/GraphBLAS-sharp.Backend/Common/ClArray.fs

@@ -613,9 +613,6 @@ module ClArray =
                 sourceArrays
                 |> Seq.sumBy (fun array -> array.Length)
 
-            if resultLength >= clContext.MaxMemAllocSize then
-                failwith "It is impossible to allocate more than MaxAllocSize"
-
             let result =
                 clContext.CreateClArrayWithSpecificAllocationMode(allocationMode, resultLength)
 

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

@@ -419,5 +419,14 @@ module Matrix =
             fun (processor: MailboxProcessor<_>) allocationMode (leftMatrix: ClMatrix<'a>) (rightMatrix: ClMatrix<'b>) ->
                 match leftMatrix, rightMatrix with
                 | ClMatrix.CSR leftMatrix, ClMatrix.CSR rightMatrix ->
-                    run processor allocationMode (clContext.MaxMemAllocSize / 10) leftMatrix rightMatrix
+                    let allocCapacity =
+                        List.max [ sizeof<'a>
+                                   sizeof<'c>
+                                   sizeof<'b> ]
+                        * 1<Byte>
+
+                    let resultCapacity =
+                        (clContext.MaxMemAllocSize / allocCapacity) / 3
+
+                    run processor allocationMode resultCapacity leftMatrix rightMatrix
                 | _ -> failwith "Matrix formats are not matching"

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

@@ -109,10 +109,7 @@ module Expand =
 
         let rightMatrixGather = Gather.run clContext workGroupSize
 
-        fun (processor: MailboxProcessor<_>) lengths (segmentsPointers: ClArray<int>) (leftMatrix: ClMatrix.COO<'a>) (rightMatrix: ClMatrix.CSR<'b>) ->
-
-            assert (lengths < clContext.MaxMemAllocSize)
-
+        fun (processor: MailboxProcessor<_>) (lengths: int) (segmentsPointers: ClArray<int>) (leftMatrix: ClMatrix.COO<'a>) (rightMatrix: ClMatrix.CSR<'b>) ->
             // Compute left matrix positions
             let leftMatrixPositions = zeroCreate processor DeviceOnly lengths
 

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

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

tests/GraphBLAS-sharp.Tests/GraphBLAS-sharp.Tests.fsproj

@@ -29,7 +29,7 @@
         <Compile Include="Backend/Common/ClArray/Pairwise.fs" />
         <Compile Include="Backend/Common/ClArray/RemoveDuplicates.fs" />
         <Compile Include="Backend/Common/ClArray/Replicate.fs" />
-        <Compile Include="Backend\Common\ClArray\UpperBound.fs" />
+        <Compile Include="Backend/Common/ClArray/UpperBound.fs" />
         <Compile Include="Backend/Common/Gather.fs" />
         <Compile Include="Backend/Common/Reduce/Reduce.fs" />
         <Compile Include="Backend/Common/Reduce/ReduceByKey.fs" />
@@ -49,8 +49,8 @@
         <Compile Include="Backend/Matrix/SpGeMM/Masked.fs" />
         <Compile Include="Backend/Matrix/Transpose.fs" />
         <Compile Include="Backend/Matrix/Merge.fs" />
-        <Compile Include="Backend\Matrix\ExpandRows.fs" />
-        <Compile Include="Backend\Matrix\SubRows.fs" />
+        <Compile Include="Backend/Matrix/ExpandRows.fs" />
+        <Compile Include="Backend/Matrix/SubRows.fs" />
         <Compile Include="Backend/Vector/AssignByMask.fs" />
         <Compile Include="Backend/Vector/Convert.fs" />
         <Compile Include="Backend/Vector/Copy.fs" />