diff options
author | Gary Houston <ghouston@arglist.com> | 2001-09-15 21:56:52 +0000 |
---|---|---|
committer | Gary Houston <ghouston@arglist.com> | 2001-09-15 21:56:52 +0000 |
commit | 6c1b7628703d7fac1751357153fd14e095535c2c (patch) | |
tree | 94afb9e29a5d6f8fd5ed054122e95408c79647d7 /libguile/gc.c | |
parent | 455c0ac82b288f254b3da7a93ae275594e5def87 (diff) | |
download | guile-6c1b7628703d7fac1751357153fd14e095535c2c.tar.gz |
* root.h (scm_root_state): removed the continuation_stack and
continuation_stack_ptr members, which have no apparent purpose.
(scm_continuation_stack, scm_continuation_stack_ptr): #defines
removed.
* root.c (root_mark), init.c (restart_stack, start_stack), gc
(scm_igc): remove all references to contination_stack and
continuation_stack_ptr, avoiding allocation of a vector and
useless processing during gc.
Diffstat (limited to 'libguile/gc.c')
-rw-r--r-- | libguile/gc.c | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/libguile/gc.c b/libguile/gc.c index 5629e9605..f10e33350 100644 --- a/libguile/gc.c +++ b/libguile/gc.c @@ -1074,21 +1074,6 @@ scm_igc (const char *what) ++scm_gc_heap_lock; - /* flush dead entries from the continuation stack */ - { - long x; - long bound; - SCM * elts; - elts = SCM_VELTS (scm_continuation_stack); - bound = SCM_VECTOR_LENGTH (scm_continuation_stack); - x = SCM_INUM (scm_continuation_stack_ptr); - while (x < bound) - { - elts[x] = SCM_BOOL_F; - ++x; - } - } - scm_c_hook_run (&scm_before_mark_c_hook, 0); clear_mark_space (); |