[Guile-commits] 01/01: Fix memory leak in scm_from_{u, }int64 on 32-bit platforms

[Andy Wingo]

wingo pushed a commit to branch master
in repository guile.

commit 2c8ea5a008959ffba629694942d75887dc14a869
Author: Andy Wingo <address@hidden>
Date:   Thu Jun 23 14:57:50 2016 +0200

    Fix memory leak in scm_from_{u,}int64 on 32-bit platforms
    
    * libguile/conv-integer.i.c (SCM_FROM_TYPE_PROTO):
    * libguile/conv-uinteger.i.c (SCM_FROM_TYPE_PROTO): Fix a big in which
      scm_from_int64 and scm_from_uint64 on a 32-bit platform leaked memory
      if they needed to allocate a bignum.  Fixes #20079.
---
 libguile/conv-integer.i.c  |    2 +-
 libguile/conv-uinteger.i.c |    2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/libguile/conv-integer.i.c b/libguile/conv-integer.i.c
index 4cf887c..a5362d3 100644
--- a/libguile/conv-integer.i.c
+++ b/libguile/conv-integer.i.c
@@ -117,7 +117,7 @@ SCM_FROM_TYPE_PROTO (TYPE val)
     return scm_i_long2big (val);
   else
     {
-      SCM z = scm_double_cell (scm_tc16_big, 0, 0, 0);
+      SCM z = make_bignum ();
       mpz_init (SCM_I_BIG_MPZ (z));
       if (val < 0)
        {
diff --git a/libguile/conv-uinteger.i.c b/libguile/conv-uinteger.i.c
index d6b969c..f62dc41 100644
--- a/libguile/conv-uinteger.i.c
+++ b/libguile/conv-uinteger.i.c
@@ -104,7 +104,7 @@ SCM_FROM_TYPE_PROTO (TYPE val)
     return scm_i_ulong2big (val);
   else
     {
-      SCM z = scm_double_cell (scm_tc16_big, 0, 0, 0);
+      SCM z = make_bignum ();
       mpz_init (SCM_I_BIG_MPZ (z));
       mpz_import (SCM_I_BIG_MPZ (z), 1, 1, sizeof (TYPE), 0, 0, &val);
       return z;