summaryrefslogtreecommitdiff
path: root/libguile/regex-posix.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2025-04-23 15:15:57 +0200
committerAndy Wingo <wingo@pobox.com>2025-04-23 15:15:57 +0200
commitbefac2cf85cac82a1e4d70979ed3dc238643a494 (patch)
tree4fdd89ffe31d142714a5865334edda849c64da5d /libguile/regex-posix.c
parent23d204b5a02b6cc11e7e735dc3882dc25f7b7292 (diff)
downloadguile-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.c4
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,