add some needed gc protection (oscar-system#399)

wbhart · Mar 23, 2021 · 4e3e35c · 4e3e35c
1 parent 4cc6de2
commit 4e3e35c
Showing 1 changed file with 8 additions and 4 deletions.
diff --git a/src/libsingular/coeffs.jl b/src/libsingular/coeffs.jl
@@ -1,14 +1,18 @@
 # initialise a number from an mpz
 function n_InitMPZ(b::BigInt, cf::coeffs_ptr)
-    bb = pointer_from_objref(b)
-    return n_InitMPZ_internal(bb, cf)
+   GC.@preserve b begin
+      bb = pointer_from_objref(b)
+      return n_InitMPZ_internal(bb, cf)
+   end
 end
 
 # get an mpz from a number
 function n_GetMPZ(s::number_ptr, r::coeffs_ptr)
    res = BigInt(1)
-   resp = pointer_from_objref(res)
-   n_GetMPZ_internal(resp, s, r)
+   GC.@preserve res begin
+      resp = pointer_from_objref(res)
+      n_GetMPZ_internal(resp, s, r)
+   end
    return res
 end