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

(scm_gc_malloc): Return NULL if requested size is 0.

Browse source 
(scm_gc_free): Don't call `free' if mem is NULL.
This commit is contained in:
Neil Jerram 2008-02-06 22:22:14 +00:00
parent 189171c5bb
commit 4a19ed0452
4 changed files with 11 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
NEWS
View file

@ -52,6 +52,8 @@ called with an associator proc that returns neither a pair nor #f.
** Avoid MacOS build problems caused by incorrect combination of "64"
system and library calls.
** Fixed compilation of `numbers.c' with Sun Studio (Solaris 9)
** Fixed wrong-type-arg errors when creating zero length SRFI-4
uniform vectors on AIX.
* New modules (see the manual for details)

1
THANKS
View file

@ -80,6 +80,7 @@ For fixes or providing information which led to a fix:
Alex Shinn
Daniel Skarda
Cesar Strauss
Rainer Tammer
Richard Todd
Issac Trotts
Greg Troxel

5
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
2008-02-06 Neil Jerram <neil@ossau.uklinux.net>
* gc-malloc.c (scm_gc_malloc): Return NULL if requested size is 0.
(scm_gc_free): Don't call `free' if mem is NULL.
2008-02-06 Ludovic Courtès <ludo@gnu.org>
* numbers.c (scm_i_mkbig, scm_i_long2big, scm_i_ulong2big,

5
libguile/gc-malloc.c
View file

@ -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 *