Julia: Set finalizers for RefList and Crystal when taken from image

1 files changed, 6 insertions, 1 deletions

diff --git a/julia/CrystFEL/src/image.jl b/julia/CrystFEL/src/image.jl
index 33af3252..4090dc61 100644
--- a/julia/CrystFEL/src/image.jl
+++ b/julia/CrystFEL/src/image.jl
@@ -86,11 +86,16 @@ function makecrystallist(image, listptr, n)
         else
             reflist = RefList{UnmergedReflection}(pairptr.reflist, SymOpList("1"))
             pairptr.owns_reflist = 0
+            finalizer(reflist) do x
+                @ccall libcrystfel.reflist_free(x.internalptr::Ptr{InternalRefList})::Cvoid
+            end
         end
         push!(crystals, (crystal=cr, reflections=reflist))
         pairptr.owns_crystal = 0
         unsafe_store!(listptr, pairptr, i)
-        # We are now responsible for freeing the Crystal and RefList
+        finalizer(cr) do x
+            @ccall libcrystfel.crystal_free(x.internalptr::Ptr{InternalCrystal})::Cvoid
+        end
     end
 
     image.crystals = map(x->x.crystal, crystals)