mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 09:10:22 +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

4
libguile/root.h
View file

@ -89,8 +89,6 @@ typedef struct scm_root_state
SCM rootcont;
SCM dynwinds;
SCM continuation_stack;
SCM continuation_stack_ptr;
#ifdef DEBUG_EXTENSIONS
/* It is very inefficient to have this variable in the root state. */
scm_t_debug_frame *last_debug_frame;
@ -119,8 +117,6 @@ typedef struct scm_root_state
#define scm_rootcont (scm_root->rootcont)
#define scm_dynwinds (scm_root->dynwinds)
#define scm_continuation_stack (scm_root->continuation_stack)
#define scm_continuation_stack_ptr (scm_root->continuation_stack_ptr)
#define scm_progargs (scm_root->progargs)
#ifdef USE_THREADS
#define scm_last_debug_frame (scm_root->last_debug_frame)