/[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.239 by mdj, Tue Dec 10 16:09:37 2002 UTC revision 1.240 by mdj, Wed Dec 11 06:54:59 2002 UTC
# Line 570  scm_igc (const char *what) Line 570  scm_igc (const char *what)
570    
571    ++scm_gc_heap_lock;    ++scm_gc_heap_lock;
572    
   scm_i_thread_invalidate_freelists ();  
     
573    /*    /*
574      Let's finish the sweep. The conservative GC might point into the      Let's finish the sweep. The conservative GC might point into the
575      garbage, and marking that would create a mess.      garbage, and marking that would create a mess.
# Line 1024  scm_gc_sweep (void) Line 1022  scm_gc_sweep (void)
1022       be GC-protected instead. */       be GC-protected instead. */
1023    *SCM_FREELIST_LOC (scm_i_freelist) = SCM_EOL;    *SCM_FREELIST_LOC (scm_i_freelist) = SCM_EOL;
1024    *SCM_FREELIST_LOC (scm_i_freelist2) = SCM_EOL;    *SCM_FREELIST_LOC (scm_i_freelist2) = SCM_EOL;
1025    
1026      /* Invalidate the freelists of other threads. */
1027      scm_i_thread_invalidate_freelists ();
1028  }  }
1029    
1030  #undef FUNC_NAME  #undef FUNC_NAME

Legend:
Removed from v.1.239  
changed lines
  Added in v.1.240

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