mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-25 12:40:26 +02:00
Code Activity

Remove some uses of scm_gc_free

Browse source 
* libguile/i18n.c (scm_make_locale):
* libguile/random.c (scm_c_random_bignum):
* libguile/regex-posix.c (regex_free):
(scm_make_regexp):
* libguile/srfi-14.c (scm_i_charset_unset, charsets_intersection)
(charsets_complement): Remove calls to scm_gc_free.
This commit is contained in:
Andy Wingo 2025-04-23 15:15:57 +02:00
parent 23d204b5a0
commit befac2cf85
4 changed files with 4 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/random.c
View file

@ -1,4 +1,4 @@
/* Copyright 1999-2001,2003,2005-2006,2009-2010,2012-2014,2017-2019,2022
/* Copyright 1999-2001,2003,2005-2006,2009-2010,2012-2014,2017-2019,2022,2025
Free Software Foundation, Inc.
This file is part of Guile.
@ -365,9 +365,6 @@ scm_c_random_bignum (scm_t_rstate *state, SCM m)
/* if result >= m, regenerate it (it is important to regenerate
all bits in order not to get a distorted distribution) */
} while (mpz_cmp (result, zm) >= 0);
scm_gc_free (random_chunks,
num_chunks * sizeof (uint32_t),
"random bignum chunks");
mpz_clear (zm);
SCM ret = scm_from_mpz (result);
mpz_clear (result);