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

(scm_done_malloc, scm_done_free): Allow negative sizes,

Browse source 
which were permitted in the past for these.
This commit is contained in:
Kevin Ryde 2004-02-16 00:45:55 +00:00
parent ae43d08ea0
commit 4cd3853f37
1 changed files with 9 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

12
libguile/gc-malloc.c
View file

@ -1,4 +1,4 @@
/* Copyright (C) 1995,1996,1997,1998,1999,2000,2001, 2002 Free Software Foundation, Inc. /* Copyright (C) 1995,1996,1997,1998,1999,2000,2001, 2002, 2004 Free Software Foundation, Inc.
* *
* This library is free software; you can redistribute it and/or * This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public * modify it under the terms of the GNU Lesser General Public
@ -447,7 +447,10 @@ scm_done_malloc (long size)
("scm_done_malloc is deprecated. " ("scm_done_malloc is deprecated. "
"Use scm_gc_register_collectable_memory instead."); "Use scm_gc_register_collectable_memory instead.");
scm_gc_register_collectable_memory (NULL, size, "foreign mallocs"); if (size >= 0)
scm_gc_register_collectable_memory (NULL, size, "foreign mallocs");
else
scm_gc_unregister_collectable_memory (NULL, -size, "foreign mallocs");
} }
void void
@ -457,7 +460,10 @@ scm_done_free (long size)
("scm_done_free is deprecated. " ("scm_done_free is deprecated. "
"Use scm_gc_unregister_collectable_memory instead."); "Use scm_gc_unregister_collectable_memory instead.");
scm_gc_unregister_collectable_memory (NULL, size, "foreign mallocs"); if (size >= 0)
scm_gc_unregister_collectable_memory (NULL, size, "foreign mallocs");
else
scm_gc_register_collectable_memory (NULL, -size, "foreign mallocs");
} }
#endif /* SCM_ENABLE_DEPRECATED == 1 */ #endif /* SCM_ENABLE_DEPRECATED == 1 */