From fa7c1e4aa507489f1c5ae9d9c107beaca5a705d3 Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Wed, 21 Feb 2024 14:53:09 +0100
Subject: Julia: Set finalizers for RefList and Crystal when taken from image

---
 julia/CrystFEL/src/image.jl | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

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)
-- 
cgit v1.2.3