refactor: SpGeMM memory release

Author: IgorErin

src/GraphBLAS-sharp.Backend/Common/Sort/Radix.fs

@@ -318,6 +318,7 @@ module Radix =
                     keysPair <- swap keysPair
                     valuesPair <- swap valuesPair
 
+                    globalOffset.Free processor
                     localOffset.Free processor
                     shift.Free processor
 

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

@@ -568,6 +568,10 @@ module Reduce =
                             .ToHostAndFree processor
 
                     if resultLength = 0 then
+                        reducedValues.Free processor
+                        reducedKeys.Free processor
+                        resultPositions.Free processor
+
                         None
                     else
                         // write values
@@ -848,6 +852,11 @@ module Reduce =
                             .ToHostAndFree processor
 
                     if resultLength = 0 then
+                        reducedValues.Free processor
+                        firstReducedKeys.Free processor
+                        secondReducedKeys.Free processor
+                        resultPositions.Free processor
+
                         None
                     else
                         // write value

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

@@ -399,6 +399,10 @@ module Expand =
 
                     // compute sub result
                     let length, result = runCOO subMatrix
+
+                    // release subMatrix (TODO(non blocking Free)
+                    subMatrix.Dispose processor
+
                     // increase workOffset according to previous expand
                     let workOffset = workOffset + length
 
@@ -445,7 +449,12 @@ module Expand =
             if generalLength < maxAllocSize then
                 segmentLengths.Free processor
 
-                runOneStep processor allocationMode leftMatrix rightMatrixRowsNNZ rightMatrix
+                let result =
+                    runOneStep processor allocationMode leftMatrix rightMatrixRowsNNZ rightMatrix
+
+                rightMatrixRowsNNZ.Free processor
+
+                result
             else
                 let result =
                     runManySteps