fix: count in CSR.byRows

Author: IgorErin

benchmarks/GraphBLAS-sharp.Benchmarks/Configs/Context.txt

@@ -1,7 +1,3 @@
-
-Gpu
-32
-
 NVIDIA*
 Gpu
 32

benchmarks/GraphBLAS-sharp.Benchmarks/Program.fs

@@ -4,8 +4,7 @@ open BenchmarkDotNet.Running
 [<EntryPoint>]
 let main argv =
     let benchmarks =
-        BenchmarkSwitcher [| typeof<Algorithms.BFS.BFSWithoutTransferBenchmarkInt32>
-                             typeof<Matrix.SpGeMM.Expand.WithoutTransfer.Float32> |]
+        BenchmarkSwitcher [| typeof<Algorithms.BFS.BFSWithoutTransferBenchmarkInt32> |]
 
     benchmarks.Run argv |> ignore
     0

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

@@ -132,12 +132,14 @@ module Matrix =
             |> Seq.map
                 (fun (first, second) ->
                     lazy
-                        (if second - first > 0 then
-                             let values = getChunkValues first second
-                             let columns = getChunkIndices first second
+                        (let count = second - first
+
+                         if count > 0 then
+                             let values = getChunkValues first count
+                             let columns = getChunkIndices first count
 
                              Some <| creatSparseVector values columns
-                         else
+                        else
                              None))
 
     let byRows (clContext: ClContext) workGroupSize =

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

@@ -301,15 +301,21 @@ module Expand =
                 runRow processor allocationMode rightMatrix rightMatrixRowsLengths
 
             split processor allocationMode leftMatrix
-            |> Seq.map (fun lazyRow -> Option.bind runRow lazyRow.Value)
+            |> Seq.map (fun lazyRow ->
+                Option.bind (fun row ->
+                    let result = runRow row
+                    row.Dispose processor
+
+                    result
+                ) lazyRow.Value)
             |> Seq.toArray
             |> fun rows ->
                 rightMatrixRowsLengths.Free processor
 
                 // compute nnz
                 let nnz =
                     rows
-                    |> Array.fold
+                    |> Seq.fold
                         (fun count ->
                             function
                             | Some row -> count + row.Size

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

@@ -92,8 +92,8 @@ module ClMatrix =
         interface IDeviceMemObject with
             member this.Dispose q =
                 this.Rows
-                |> Array.choose id
-                |> Array.iter (fun vector -> vector.Dispose q)
+                |> Seq.choose id
+                |> Seq.iter (fun vector -> vector.Dispose q)
 
     type Tuple<'elem when 'elem: struct> =
         { Context: ClContext