Free

Author: kirillgarbar

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

@@ -61,7 +61,7 @@ module ClArray =
 
             processor.Post(Msg.MsgSetArguments(fun () -> kernel.KernelFunc ndRange outputArray length value))
             processor.Post(Msg.CreateRunMsg<_, _> kernel)
-            processor.Post(Msg.CreateFreeMsg(value))
+            value.Free processor
 
             outputArray
 
@@ -335,7 +335,7 @@ module ClArray =
 
             scatter processor bitmap inputArray outputArray
 
-            processor.Post <| Msg.CreateFreeMsg<_>(bitmap)
+            bitmap.Free processor
 
             outputArray
 

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

@@ -571,11 +571,16 @@ module Reduce =
 
                     processor.Post(Msg.CreateRunMsg<_, _>(kernel))
 
+                    offsets.Free processor
+
                     let resultLength =
                         (prefixSum processor resultPositions)
                             .ToHostAndFree processor
 
                     if resultLength = 0 then
+                        reducedValues.Free processor
+                        reducedKeys.Free processor
+                        resultPositions.Free processor
                         None
                     else
                         // write values
@@ -696,6 +701,9 @@ module Reduce =
                             .ToHostAndFree processor
 
                     if resultLength = 0 then
+                        reducedValues.Free processor
+                        reducedKeys.Free processor
+                        resultPositions.Free processor
                         None
                     else
                         // write values
@@ -976,6 +984,10 @@ module Reduce =
                             .ToHostAndFree processor
 
                     if resultLength = 0 then
+                        reducedValues.Free processor
+                        firstReducedKeys.Free processor
+                        secondReducedKeys.Free processor
+                        resultPositions.Free processor
                         None
                     else
                         // write value