80 |
# define PTR2SCM(x) (SCM_PACK ((scm_t_bits) (x))) |
# define PTR2SCM(x) (SCM_PACK ((scm_t_bits) (x))) |
81 |
#endif /* def _UNICOS */ |
#endif /* def _UNICOS */ |
82 |
|
|
|
#ifdef GENGC |
|
|
/* |
|
|
TODO |
|
|
*/ |
|
|
#else /* ! genGC */ |
|
|
|
|
83 |
#define SCM_GC_CARD_N_HEADER_CELLS 1 |
#define SCM_GC_CARD_N_HEADER_CELLS 1 |
84 |
#define SCM_GC_CARD_N_CELLS 256 |
#define SCM_GC_CARD_N_CELLS 256 |
85 |
|
|
|
#define SCM_GC_CARD_GENERATION(card) |
|
|
#define SCM_GC_FLAG_OBJECT_WRITE(x) |
|
|
|
|
86 |
#define SCM_GC_CARD_BVEC(card) ((scm_t_c_bvec_limb *) ((card)->word_0)) |
#define SCM_GC_CARD_BVEC(card) ((scm_t_c_bvec_limb *) ((card)->word_0)) |
87 |
#define SCM_GC_SET_CARD_BVEC(card, bvec) \ |
#define SCM_GC_SET_CARD_BVEC(card, bvec) \ |
88 |
((card)->word_0 = (scm_t_bits) (bvec)) |
((card)->word_0 = (scm_t_bits) (bvec)) |
|
#endif |
|
89 |
|
|
90 |
|
|
91 |
#define SCM_GC_CARD_SIZE (SCM_GC_CARD_N_CELLS * sizeof (scm_t_cell)) |
#define SCM_GC_CARD_SIZE (SCM_GC_CARD_N_CELLS * sizeof (scm_t_cell)) |