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/weaks.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/weaks.c')
-rw-r--r-- | libguile/weaks.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/libguile/weaks.c b/libguile/weaks.c index f7aaa3f0b..72580b8b8 100644 --- a/libguile/weaks.c +++ b/libguile/weaks.c @@ -203,7 +203,8 @@ SCM_DEFINE (scm_doubly_weak_alist_vector_p, "doubly-weak-alist-vector?", 1, 0, 0 } #undef FUNC_NAME -#define UNMARKED_CELL_P(x) (SCM_NIMP(x) && !SCM_GC_MARK_P (x)) +#define UNMARKED_CELL_P(x) 1 /* (SCM_NIMP(x) && !SCM_GC_MARK_P (x)) *//* + FIXME */ static SCM weak_vectors; @@ -321,6 +322,8 @@ scm_i_mark_weak_vectors_non_weaks () static void scm_i_remove_weaks (SCM w) { + return; /* FIXME */ +#if 0 SCM *ptr = SCM_I_WVECT_GC_WVELTS (w); size_t n = SCM_I_WVECT_LENGTH (w); size_t i; @@ -362,6 +365,7 @@ scm_i_remove_weaks (SCM w) #endif SCM_I_SET_WVECT_DELTA (w, delta); } +#endif } void |