diff options
| author | Andy Wingo <wingo@pobox.com> | 2016-06-23 14:57:50 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2016-06-23 14:57:50 +0200 |
| commit | 2c8ea5a008959ffba629694942d75887dc14a869 (patch) | |
| tree | 24671797b99334452d940bdb10589920049e454f | |
| parent | e7f1038aca62f7318b9a3c93d50293f800462110 (diff) | |
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.
| -rw-r--r-- | libguile/conv-integer.i.c | 2 | ||||
| -rw-r--r-- | 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 4cf887cb6..a5362d39c 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 d6b969c20..f62dc41ad 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; |