summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2025-04-23 15:27:15 +0200
committerAndy Wingo <wingo@pobox.com>2025-04-23 15:27:15 +0200
commitbb4e9a289c38488c07fa3a34657ae5e1af9cc462 (patch)
tree7dba9ed807b2ce1e6fbb38f004448c40b70e9cb9
parentaf567f0575adc079b634830c35eaefc46001d156 (diff)
downloadguile-bb4e9a289c38488c07fa3a34657ae5e1af9cc462.tar.gz
Remove scm_gc_free
* libguile/gc.h: * libguile/gc-malloc.c (do_gc_free, scm_gc_free): Remove.
-rw-r--r--libguile/gc-malloc.c14
-rw-r--r--libguile/gc.h1
2 files changed, 1 insertions, 14 deletions
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)
{
diff --git a/libguile/gc.h b/libguile/gc.h
index f2e243d26..578101062 100644
--- a/libguile/gc.h
+++ b/libguile/gc.h
@@ -130,7 +130,6 @@ SCM_API void *scm_gc_malloc (size_t size, const char *what)
SCM_MALLOC;
SCM_API void *scm_gc_realloc (void *mem, size_t old_size,
size_t new_size, const char *what);
-SCM_API void scm_gc_free (void *mem, size_t size, const char *what);
SCM_API char *scm_gc_strdup (const char *str, const char *what)
SCM_MALLOC;
SCM_API char *scm_gc_strndup (const char *str, size_t n, const char *what)