From befac2cf85cac82a1e4d70979ed3dc238643a494 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Wed, 23 Apr 2025 15:15:57 +0200 Subject: 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. --- libguile/regex-posix.c | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'libguile/regex-posix.c') 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, -- cgit v1.2.3