mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-25 04:40:19 +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

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.
This file is part of Guile.
@ -64,7 +64,6 @@ static size_t
regex_free (SCM obj)
{
regfree (SCM_RGX (obj));
scm_gc_free (SCM_RGX (obj), sizeof(regex_t), "regex");
return 0;
}
@ -171,7 +170,6 @@ SCM_DEFINE (scm_make_regexp, "make-regexp", 1, 0, 1,
if (status != 0)
{
SCM errmsg = scm_regexp_error_msg (status, rx);
scm_gc_free (rx, sizeof(regex_t), "regex");
scm_error_scm (scm_regexp_error_key,
scm_from_utf8_string (FUNC_NAME),
errmsg,