diff options
Diffstat (limited to 'libguile/gc-malloc.c')
-rw-r--r-- | libguile/gc-malloc.c | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/libguile/gc-malloc.c b/libguile/gc-malloc.c index 594bf3553..9ef3d9d05 100644 --- a/libguile/gc-malloc.c +++ b/libguile/gc-malloc.c @@ -169,23 +169,32 @@ scm_strdup (const char *str) void scm_gc_register_collectable_memory (void *mem, size_t size, const char *what) { + /* Nothing to do. */ #ifdef GUILE_DEBUG_MALLOC if (mem) scm_malloc_register (mem); #endif - fprintf (stderr, "%s: nothing done\n", __FUNCTION__); /* FIXME: What to do? */ } void scm_gc_unregister_collectable_memory (void *mem, size_t size, const char *what) { + /* Nothing to do. */ #ifdef GUILE_DEBUG_MALLOC if (mem) scm_malloc_unregister (mem); #endif } +/* Allocate SIZE bytes of memory whose contents should not be scanned for + pointers (useful, e.g., for strings). */ +void * +scm_gc_malloc_pointerless (size_t size, const char *what) +{ + return GC_MALLOC_ATOMIC (size); +} + void * scm_gc_malloc (size_t size, const char *what) { |