mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Remove scm_gc_free

Browse source 
* libguile/gc.h:
* libguile/gc-malloc.c (do_gc_free, scm_gc_free): Remove.
This commit is contained in:
Andy Wingo 2025-04-23 15:27:15 +02:00
parent af567f0575
commit bb4e9a289c
2 changed files with 1 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

14
libguile/gc-malloc.c
View file

@ -1,4 +1,4 @@
/* Copyright 1995-2004,2006,2008-2014,2018 /* Copyright 1995-2004,2006,2008-2014,2018,2025
Free Software Foundation, Inc. Free Software Foundation, Inc.
This file is part of Guile. 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 *)); return GC_REALLOC (from, size ? size : sizeof (void *));
} }
static void
do_gc_free (void *ptr)
{
GC_FREE (ptr);
}
/* Function for non-cell memory management. /* 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); 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 * char *
scm_gc_strndup (const char *str, size_t n, const char *what) scm_gc_strndup (const char *str, size_t n, const char *what)
{ {

1
libguile/gc.h
View file

@ -130,7 +130,6 @@ SCM_API void *scm_gc_malloc (size_t size, const char *what)
SCM_MALLOC; SCM_MALLOC;
SCM_API void *scm_gc_realloc (void *mem, size_t old_size, SCM_API void *scm_gc_realloc (void *mem, size_t old_size,
size_t new_size, const char *what); 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_API char *scm_gc_strdup (const char *str, const char *what)
SCM_MALLOC; SCM_MALLOC;
SCM_API char *scm_gc_strndup (const char *str, size_t n, const char *what) SCM_API char *scm_gc_strndup (const char *str, size_t n, const char *what)