mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 07:30:32 +02:00
Code Activity

* root.h (scm_root_state): removed the continuation_stack and

Browse source 
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.
This commit is contained in:
Gary Houston 2001-09-15 21:56:52 +00:00
parent 455c0ac82b
commit 6c1b762870
5 changed files with 11 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/init.c
View file

@ -162,7 +162,6 @@ restart_stack (void *base)
SCM_DFRAME (scm_rootcont) = scm_last_debug_frame = 0;
#endif
SCM_BASE (scm_rootcont) = base;
scm_continuation_stack_ptr = SCM_MAKINUM (0);
}
static void
@ -187,13 +186,6 @@ start_stack (void *base)
contregs->seq = 0;
SCM_NEWSMOB (scm_rootcont, scm_tc16_continuation, contregs);
}
/* The root continuation is further initialized by restart_stack. */
/* Create the look-aside stack for variables that are shared between
* captured continuations.
*/
scm_continuation_stack = scm_c_make_vector (512, SCM_UNDEFINED);
/* The continuation stack is further initialized by restart_stack. */
/* The remainder of stack initialization is factored out to another
* function so that if this stack is ever exitted, it can be