guile: Use Guile's malloc routines.

* guile/src/core.c (scm_init_gnutls): Use Guile's malloc routines.

diff --git a/guile/src/core.c b/guile/src/core.c
index f791ef80ff63f86396fd0e747507bf750b1ffcd3..693d11f17698b410f5b616318e9e1bf67adf9f4d 100644 (file)
--- a/guile/src/core.c
+++ b/guile/src/core.c
@@ -2790,6 +2790,12 @@ scm_init_gnutls (void)
 {
 #include "core.x"
 
+  /* Use Guile's allocation routines, which will run the GC if need be.  */
+  gnutls_malloc = scm_malloc;
+  gnutls_realloc = scm_realloc;
+  gnutls_secure_malloc = scm_malloc;
+  gnutls_free = free;
+
   (void) gnutls_global_init ();
 
   scm_gnutls_define_enums ();
@@ -2798,6 +2804,3 @@ scm_init_gnutls (void)
 
   scm_init_gnutls_session_record_port_type ();
 }
-
-/* arch-tag: 58420abe-0769-4684-b522-da7f32f4474c
- */