diff options
author | Andy Wingo <wingo@pobox.com> | 2025-04-23 15:27:15 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2025-04-23 15:27:15 +0200 |
commit | bb4e9a289c38488c07fa3a34657ae5e1af9cc462 (patch) | |
tree | 7dba9ed807b2ce1e6fbb38f004448c40b70e9cb9 | |
parent | af567f0575adc079b634830c35eaefc46001d156 (diff) | |
download | guile-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.c | 14 | ||||
-rw-r--r-- | libguile/gc.h | 1 |
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) |