/[guile]/guile/guile-core/libguile/gc.c
ViewVC logotype

Diff of /guile/guile-core/libguile/gc.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.233 by hanwen, Wed Aug 21 22:40:03 2002 UTC revision 1.234 by hanwen, Thu Sep 5 21:12:21 2002 UTC
# Line 120  int scm_i_cell_validation_already_runnin Line 120  int scm_i_cell_validation_already_runnin
120    periods.    periods.
121    
122  */  */
   
   
123  void  void
124  scm_i_expensive_validation_check (SCM cell)  scm_i_expensive_validation_check (SCM cell)
125  {  {
# Line 277  int scm_block_gc = 1; Line 275  int scm_block_gc = 1;
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;
# Line 608  scm_igc (const char *what) Line 602  scm_igc (const char *what)
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    

Legend:
Removed from v.1.233  
changed lines
  Added in v.1.234

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26