mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 20:30:28 +02:00
Code Activity

* gc.h (SCM_SET_FREE_CELL_TYPE): New macro.

Browse source 
* gc.c (init_heap_seg): Use it instead of SCM_SET_CELL_TYPE, which
might cause unwanted checking with SCM_DEBUG_CELL_ACCESSES.
This commit is contained in:
Marius Vollmer 2004-09-07 15:50:36 +00:00
parent b2699bc3d9
commit 414f3b7c9d
2 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/gc.c
View file

@ -2294,7 +2294,7 @@ init_heap_seg (SCM_CELLPTR seg_org, size_t size, scm_t_freelist *freelist)
last_card = card; 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)); SCM_SET_FREE_CELL_CDR (scmptr, PTR2SCM (nxt));
ptr = nxt; ptr = nxt;

2
libguile/gc.h
View file

@ -246,6 +246,8 @@ typedef unsigned long scm_t_c_bvec_limb;
(SCM_PACK (((const scm_t_bits *) SCM2PTR (x)) [1])) (SCM_PACK (((const scm_t_bits *) SCM2PTR (x)) [1]))
#define SCM_SET_FREE_CELL_CDR(x, v) \ #define SCM_SET_FREE_CELL_CDR(x, v) \
(((scm_t_bits *) SCM2PTR (x)) [1] = SCM_UNPACK (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) #if (SCM_DEBUG_CELL_ACCESSES == 1)