From: Ludovic Courtès <ludo@gnu.org>
Date: Mon, 28 Sep 2009 20:39:03 +0000 (+0200)
Subject: guile: Use Guile's malloc routines.
X-Git-Tag: gnutls_2_9_7~16
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=2290dcb96e78e14b2a9cfa3158abc9d52f72d888;p=thirdparty%2Fgnutls.git

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 f791ef80ff..693d11f176 100644
--- 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
- */