From 4a19ed04528750e7764837494dea39556aca09f8 Mon Sep 17 00:00:00 2001 From: Neil Jerram Date: Wed, 6 Feb 2008 22:22:14 +0000 Subject: (scm_gc_malloc): Return NULL if requested size is 0. (scm_gc_free): Don't call `free' if mem is NULL. --- libguile/gc-malloc.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'libguile/gc-malloc.c') diff --git a/libguile/gc-malloc.c b/libguile/gc-malloc.c index 4c71be6b7..165ddf46e 100644 --- a/libguile/gc-malloc.c +++ b/libguile/gc-malloc.c @@ -319,7 +319,7 @@ scm_gc_malloc (size_t size, const char *what) to write it the program is killed with signal 11. --hwn */ - void *ptr = scm_malloc (size); + void *ptr = size ? scm_malloc (size) : NULL; scm_gc_register_collectable_memory (ptr, size, what); return ptr; } @@ -365,7 +365,8 @@ void scm_gc_free (void *mem, size_t size, const char *what) { scm_gc_unregister_collectable_memory (mem, size, what); - free (mem); + if (mem) + free (mem); } char * -- cgit v1.2.3