diff options
author | Ludovic Courtes <ludovic.courtes@laas.fr> | 2006-03-21 22:16:33 +0000 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2008-09-05 00:45:58 +0200 |
commit | 26224b3f5d795e523e921ec32ffec424893ea035 (patch) | |
tree | d5c47fc98334b4c068610b66435cdce0788f4268 /libguile/struct.c | |
parent | 5695ccd43b051caf99f1ca94f00f7231c1466439 (diff) | |
download | guile-26224b3f5d795e523e921ec32ffec424893ea035.tar.gz |
Merge from lcourtes@laas.fr--2005-mobile
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
Diffstat (limited to 'libguile/struct.c')
-rw-r--r-- | libguile/struct.c | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/libguile/struct.c b/libguile/struct.c index de8667d45..ab79e6d9b 100644 --- a/libguile/struct.c +++ b/libguile/struct.c @@ -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, |