From 414f3b7c9d40883f64d1fa672aa0c008082e8cfc Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Tue, 7 Sep 2004 15:50:36 +0000 Subject: [PATCH] * gc.h (SCM_SET_FREE_CELL_TYPE): New macro. * gc.c (init_heap_seg): Use it instead of SCM_SET_CELL_TYPE, which might cause unwanted checking with SCM_DEBUG_CELL_ACCESSES. --- libguile/gc.c | 2 +- libguile/gc.h | 2 ++ 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/libguile/gc.c b/libguile/gc.c index d49580e0e..562330cfc 100644 --- a/libguile/gc.c +++ b/libguile/gc.c @@ -2294,7 +2294,7 @@ init_heap_seg (SCM_CELLPTR seg_org, size_t size, scm_t_freelist *freelist) last_card = card; } - SCM_SET_CELL_TYPE (scmptr, scm_tc_free_cell); + SCM_SET_FREE_CELL_TYPE (scmptr); SCM_SET_FREE_CELL_CDR (scmptr, PTR2SCM (nxt)); ptr = nxt; diff --git a/libguile/gc.h b/libguile/gc.h index 7668a1a23..a0677780b 100644 --- a/libguile/gc.h +++ b/libguile/gc.h @@ -246,6 +246,8 @@ typedef unsigned long scm_t_c_bvec_limb; (SCM_PACK (((const scm_t_bits *) SCM2PTR (x)) [1])) #define SCM_SET_FREE_CELL_CDR(x, v) \ (((scm_t_bits *) SCM2PTR (x)) [1] = SCM_UNPACK (v)) +#define SCM_SET_FREE_CELL_TYPE(x) \ + (((scm_t_bits *) SCM2PTR (x)) [0] = scm_tc_free_cell) #if (SCM_DEBUG_CELL_ACCESSES == 1)