diff options
author | Andy Wingo <wingo@pobox.com> | 2025-04-23 15:15:57 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2025-04-23 15:15:57 +0200 |
commit | befac2cf85cac82a1e4d70979ed3dc238643a494 (patch) | |
tree | 4fdd89ffe31d142714a5865334edda849c64da5d /libguile/regex-posix.c | |
parent | 23d204b5a02b6cc11e7e735dc3882dc25f7b7292 (diff) | |
download | guile-befac2cf85cac82a1e4d70979ed3dc238643a494.tar.gz |
Remove some uses of scm_gc_free
* 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.
Diffstat (limited to 'libguile/regex-posix.c')
-rw-r--r-- | libguile/regex-posix.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/libguile/regex-posix.c b/libguile/regex-posix.c index 5eb05c07c..1c40f3cfa 100644 --- a/libguile/regex-posix.c +++ b/libguile/regex-posix.c @@ -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, |