mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 08:40:19 +02:00
Code Activity

* struct.h: change scm_structs_to_free to scm_i_structs_to_free

Browse source 
* gc-malloc.c (scm_gc_register_collectable_memory): use floats;
these won't ever wrap around with high memory usage.

* gc-malloc.c: add DEBUGINFO for mtrigger GCs.
This commit is contained in:
Han-Wen Nienhuys 2002-09-05 21:12:21 +00:00
parent 5bd4a949e8
commit ffd724008b
7 changed files with 40 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/struct.c
View file

@ -360,7 +360,7 @@ scm_struct_gc_init (void *dummy1 SCM_UNUSED,
void *dummy2 SCM_UNUSED,
void *dummy3 SCM_UNUSED)
{
scm_structs_to_free = SCM_EOL;
scm_i_structs_to_free = SCM_EOL;
return 0;
}
@ -369,7 +369,7 @@ scm_free_structs (void *dummy1 SCM_UNUSED,
void *dummy2 SCM_UNUSED,
void *dummy3 SCM_UNUSED)
{
SCM newchain = scm_structs_to_free;
SCM newchain = scm_i_structs_to_free;
do
{
/* Mark vtables in GC chain. GC mark set means delay freeing. */