120 |
periods. |
periods. |
121 |
|
|
122 |
*/ |
*/ |
|
|
|
|
|
|
123 |
void |
void |
124 |
scm_i_expensive_validation_check (SCM cell) |
scm_i_expensive_validation_check (SCM cell) |
125 |
{ |
{ |
275 |
*/ |
*/ |
276 |
SCM scm_weak_vectors; |
SCM scm_weak_vectors; |
277 |
|
|
|
/* During collection, this accumulates structures which are to be freed. |
|
|
*/ |
|
|
SCM scm_structs_to_free; |
|
|
|
|
278 |
/* GC Statistics Keeping |
/* GC Statistics Keeping |
279 |
*/ |
*/ |
280 |
unsigned long scm_cells_allocated = 0; |
unsigned long scm_cells_allocated = 0; |
602 |
|
|
603 |
scm_gc_sweep (); |
scm_gc_sweep (); |
604 |
|
|
605 |
|
|
606 |
|
/* |
607 |
|
TODO: this hook should probably be moved to just before the mark, |
608 |
|
since that's where the sweep is finished in lazy sweeping. |
609 |
|
*/ |
610 |
scm_c_hook_run (&scm_after_sweep_c_hook, 0); |
scm_c_hook_run (&scm_after_sweep_c_hook, 0); |
611 |
gc_end_stats (); |
gc_end_stats (); |
612 |
|
|
613 |
SCM_CRITICAL_SECTION_END; |
SCM_CRITICAL_SECTION_END; |
614 |
|
|
615 |
|
/* |
616 |
|
See above. |
617 |
|
*/ |
618 |
scm_c_hook_run (&scm_after_gc_c_hook, 0); |
scm_c_hook_run (&scm_after_gc_c_hook, 0); |
619 |
--scm_gc_running_p; |
--scm_gc_running_p; |
620 |
|
|