From bb4e9a289c38488c07fa3a34657ae5e1af9cc462 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Wed, 23 Apr 2025 15:27:15 +0200 Subject: Remove scm_gc_free * libguile/gc.h: * libguile/gc-malloc.c (do_gc_free, scm_gc_free): Remove. --- libguile/gc-malloc.c | 14 +------------- 1 file changed, 1 insertion(+), 13 deletions(-) (limited to 'libguile/gc-malloc.c') diff --git a/libguile/gc-malloc.c b/libguile/gc-malloc.c index 0992bb0d3..fdae8add5 100644 --- a/libguile/gc-malloc.c +++ b/libguile/gc-malloc.c @@ -1,4 +1,4 @@ -/* Copyright 1995-2004,2006,2008-2014,2018 +/* Copyright 1995-2004,2006,2008-2014,2018,2025 Free Software Foundation, Inc. This file is part of Guile. @@ -98,12 +98,6 @@ do_gc_realloc (void *from, size_t size, const char *what) return GC_REALLOC (from, size ? size : sizeof (void *)); } -static void -do_gc_free (void *ptr) -{ - GC_FREE (ptr); -} - /* Function for non-cell memory management. @@ -229,12 +223,6 @@ scm_gc_realloc (void *mem, size_t old_size, size_t new_size, const char *what) return do_gc_realloc (mem, new_size, what); } -void -scm_gc_free (void *mem, size_t size, const char *what) -{ - do_gc_free (mem); -} - char * scm_gc_strndup (const char *str, size_t n, const char *what) { -- cgit v1.2.3