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

Merge from lcourtes@laas.fr--2005-mobile

Browse source 
Patches applied:

 * lcourtes@laas.fr--2005-mobile/guile-core--boehm-gc--1.9  (base, patch 1)

   - tag of lcourtes@laas.fr--2005-libre/guile-core--boehm-gc--1.9--base-0
   - Initial hack for Boehm's GC support: nothing works.

git-archimport-id: lcourtes@laas.fr--2005-libre/guile-core--boehm-gc--1.9--patch-1
This commit is contained in:
Ludovic Courtes 2006-03-21 22:16:33 +00:00 • committed by Ludovic Courtès
parent 5695ccd43b
commit 26224b3f5d
15 changed files with 191 additions and 765 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/struct.c
View file

@ -350,11 +350,17 @@ scm_struct_gc_init (void *dummy1 SCM_UNUSED,
return 0;
}
/* During collection, this accumulates structures which are to be freed.
*/
SCM scm_i_structs_to_free;
static void *
scm_free_structs (void *dummy1 SCM_UNUSED,
void *dummy2 SCM_UNUSED,
void *dummy3 SCM_UNUSED)
{
#if 0
SCM newchain = scm_i_structs_to_free;
do
{
@ -393,6 +399,7 @@ scm_free_structs (void *dummy1 SCM_UNUSED,
}
while (!scm_is_null (newchain));
return 0;
#endif
}
SCM_DEFINE (scm_make_struct, "make-struct", 2, 0, 1,