mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +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/i18n.c
View file

@ -1,4 +1,4 @@
/* Copyright 2006-2014,2017-2019 /* Copyright 2006-2014,2017-2019,2025
Free Software Foundation, Inc. Free Software Foundation, Inc.
This file is part of Guile. This file is part of Guile.
@ -721,9 +721,6 @@ SCM_DEFINE (scm_make_locale, "make-locale", 2, 1, 0,
return locale; return locale;
fail: fail:
#ifndef USE_GNU_LOCALE_API
scm_gc_free (c_locale, sizeof (* c_locale), "locale");
#endif
free (c_locale_name); free (c_locale_name);
scm_locale_error (FUNC_NAME, err); scm_locale_error (FUNC_NAME, err);

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. Free Software Foundation, Inc.
This file is part of Guile. 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 /* if result >= m, regenerate it (it is important to regenerate
all bits in order not to get a distorted distribution) */ all bits in order not to get a distorted distribution) */
} while (mpz_cmp (result, zm) >= 0); } while (mpz_cmp (result, zm) >= 0);
scm_gc_free (random_chunks,
num_chunks * sizeof (uint32_t),
"random bignum chunks");
mpz_clear (zm); mpz_clear (zm);
SCM ret = scm_from_mpz (result); SCM ret = scm_from_mpz (result);
mpz_clear (result); mpz_clear (result);

4
libguile/regex-posix.c
View file

@ -1,4 +1,4 @@
/* Copyright 1997-2001,2004,2006-2007,2010-2012,2018-2019 /* Copyright 1997-2001,2004,2006-2007,2010-2012,2018-2019,2025
Free Software Foundation, Inc. Free Software Foundation, Inc.
This file is part of Guile. This file is part of Guile.
@ -64,7 +64,6 @@ static size_t
regex_free (SCM obj) regex_free (SCM obj)
{ {
regfree (SCM_RGX (obj)); regfree (SCM_RGX (obj));
scm_gc_free (SCM_RGX (obj), sizeof(regex_t), "regex");
return 0; return 0;
} }
@ -171,7 +170,6 @@ SCM_DEFINE (scm_make_regexp, "make-regexp", 1, 0, 1,
if (status != 0) if (status != 0)
{ {
SCM errmsg = scm_regexp_error_msg (status, rx); SCM errmsg = scm_regexp_error_msg (status, rx);
scm_gc_free (rx, sizeof(regex_t), "regex");
scm_error_scm (scm_regexp_error_key, scm_error_scm (scm_regexp_error_key,
scm_from_utf8_string (FUNC_NAME), scm_from_utf8_string (FUNC_NAME),
errmsg, errmsg,

13
libguile/srfi-14.c
View file

@ -1,4 +1,4 @@
/* Copyright 2001,2004,2006-2007,2009,2011,2018-2019,2022 /* Copyright 2001,2004,2006-2007,2009,2011,2018-2019,2022,2025
Free Software Foundation, Inc. Free Software Foundation, Inc.
This file is part of Guile. This file is part of Guile.
@ -313,9 +313,6 @@ scm_i_charset_unset (scm_t_char_set *cs, scm_t_wchar n)
/* Remove this one-character range. */ /* Remove this one-character range. */
if (len == 1) if (len == 1)
{ {
scm_gc_free (cs->ranges,
sizeof (scm_t_char_range) * cs->len,
"character-set");
cs->ranges = NULL; cs->ranges = NULL;
cs->len = 0; cs->len = 0;
return; return;
@ -471,8 +468,6 @@ charsets_intersection (scm_t_char_set *a, scm_t_char_set *b)
if (b->len == 0) if (b->len == 0)
{ {
scm_gc_free (a->ranges, sizeof (scm_t_char_range) * a->len,
"character-set");
a->len = 0; a->len = 0;
return; return;
} }
@ -490,8 +485,6 @@ charsets_intersection (scm_t_char_set *a, scm_t_char_set *b)
scm_i_charset_set (c, n); scm_i_charset_set (c, n);
i++; i++;
} }
scm_gc_free (a->ranges, sizeof (scm_t_char_range) * a->len,
"character-set");
a->len = c->len; a->len = c->len;
if (c->len != 0) if (c->len != 0)
@ -534,10 +527,6 @@ charsets_complement (scm_t_char_set *p, scm_t_char_set *q)
return; return;
} }
if (p->len > 0)
scm_gc_free (p->ranges, sizeof (scm_t_char_set) * p->len,
"character-set");
/* Count the number of ranges needed for the output. */ /* Count the number of ranges needed for the output. */
p->len = 0; p->len = 0;
if (q->ranges[0].lo > 0) if (q->ranges[0].lo > 0)