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. |
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 |