63 |
#define SCM_HEAP_SEG_SIZE (16384L * sizeof (scm_t_cell)) |
#define SCM_HEAP_SEG_SIZE (16384L * sizeof (scm_t_cell)) |
64 |
|
|
65 |
|
|
66 |
#define DOUBLECELL_ALIGNED_P(x) (((2 * sizeof (scm_t_cell) - 1) & SCM_UNPACK (x)) == 0) |
#define SCM_DOUBLECELL_ALIGNED_P(x) (((2 * sizeof (scm_t_cell) - 1) & SCM_UNPACK (x)) == 0) |
67 |
|
|
68 |
|
|
69 |
|
#define SCM_GC_CARD_BVEC_SIZE_IN_LONGS \ |
70 |
|
((SCM_GC_CARD_N_CELLS + SCM_C_BVEC_LONG_BITS - 1) / SCM_C_BVEC_LONG_BITS) |
71 |
|
#define SCM_GC_IN_CARD_HEADERP(x) \ |
72 |
|
(scm_t_cell *) (x) < SCM_GC_CELL_CARD (x) + SCM_GC_CARD_N_HEADER_CELLS |
73 |
|
|
74 |
|
|
75 |
int scm_getenv_int (const char *var, int def); |
int scm_getenv_int (const char *var, int def); |
208 |
extern size_t scm_i_heap_segment_table_size; |
extern size_t scm_i_heap_segment_table_size; |
209 |
|
|
210 |
|
|
211 |
int scm_init_card_freelist (scm_t_cell * card, SCM *free_list,int); |
int scm_i_init_card_freelist (scm_t_cell * card, SCM *free_list,scm_t_heap_segment*); |
212 |
int scm_i_sweep_card (scm_t_cell * card, SCM *free_list,int); |
int scm_i_sweep_card (scm_t_cell * card, SCM *free_list, scm_t_heap_segment*); |
213 |
int scm_i_initialize_heap_segment_data (scm_t_heap_segment * segment, size_t requested); |
int scm_i_initialize_heap_segment_data (scm_t_heap_segment * segment, size_t requested); |
214 |
int scm_i_segment_card_count (scm_t_heap_segment * seg); |
int scm_i_segment_card_count (scm_t_heap_segment * seg); |
215 |
int scm_i_segment_cell_count (scm_t_heap_segment * seg); |
int scm_i_segment_cell_count (scm_t_heap_segment * seg); |