218 |
#define SCM_SET_CELL_TYPE(x, t) SCM_SET_CELL_WORD_0 (x, t) |
#define SCM_SET_CELL_TYPE(x, t) SCM_SET_CELL_WORD_0 (x, t) |
219 |
|
|
220 |
|
|
221 |
|
|
222 |
/* Freelists consist of linked cells where the type entry holds the value |
/* Freelists consist of linked cells where the type entry holds the value |
223 |
* scm_tc_free_cell and the second entry holds a pointer to the next cell of |
* scm_tc_free_cell and the second entry holds a pointer to the next cell of |
224 |
* the freelist. Due to this structure, freelist cells are not cons cells |
* the freelist. Due to this structure, freelist cells are not cons cells |
246 |
|
|
247 |
|
|
248 |
#if (SCM_DEBUG_CELL_ACCESSES == 1) |
#if (SCM_DEBUG_CELL_ACCESSES == 1) |
249 |
SCM_API unsigned int scm_debug_cell_accesses_p; |
/* Set this to != 0 if every cell that is accessed shall be checked: |
250 |
|
*/ |
251 |
|
SCM_API int scm_debug_cell_accesses_p; |
252 |
|
SCM_API int scm_expensive_debug_cell_accesses_p; |
253 |
|
SCM_API int scm_debug_cells_gc_interval ; |
254 |
#endif |
#endif |
255 |
|
|
256 |
SCM_API int scm_block_gc; |
SCM_API int scm_block_gc; |
279 |
Deprecated scm_freelist, scm_master_freelist. |
Deprecated scm_freelist, scm_master_freelist. |
280 |
No warning; this is not a user serviceable part. |
No warning; this is not a user serviceable part. |
281 |
*/ |
*/ |
282 |
SCM_API SCM scm_i_freelist; |
extern SCM scm_i_freelist; |
283 |
SCM_API struct scm_t_cell_type_statistics scm_i_master_freelist; |
extern struct scm_t_cell_type_statistics scm_i_master_freelist; |
284 |
SCM_API SCM scm_i_freelist2; |
extern SCM scm_i_freelist2; |
285 |
SCM_API struct scm_t_cell_type_statistics scm_i_master_freelist2; |
extern struct scm_t_cell_type_statistics scm_i_master_freelist2; |
286 |
|
|
287 |
|
|
288 |
SCM_API unsigned long scm_gc_cells_swept; |
SCM_API unsigned long scm_gc_cells_swept; |
289 |
SCM_API unsigned long scm_gc_cells_collected; |
SCM_API unsigned long scm_gc_cells_collected; |