[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/libguile ChangeLog gc.c init.c...
From: |
Gary Houston |
Subject: |
guile/guile-core/libguile ChangeLog gc.c init.c... |
Date: |
Sat, 15 Sep 2001 17:56:52 -0400 |
CVSROOT: /cvs
Module name: guile
Changes by: Gary Houston <address@hidden> 01/09/15 17:56:52
Modified files:
guile-core/libguile: ChangeLog gc.c init.c root.c root.h
Log message:
* 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.
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/ChangeLog.diff?cvsroot=OldCVS&tr1=1.1508&tr2=1.1509&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/gc.c.diff?cvsroot=OldCVS&tr1=1.216&tr2=1.217&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/init.c.diff?cvsroot=OldCVS&tr1=1.130&tr2=1.131&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/root.c.diff?cvsroot=OldCVS&tr1=1.57&tr2=1.58&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/root.h.diff?cvsroot=OldCVS&tr1=1.39&tr2=1.40&r1=text&r2=text
Patches:
Index: guile/guile-core/libguile/ChangeLog
diff -u guile/guile-core/libguile/ChangeLog:1.1508
guile/guile-core/libguile/ChangeLog:1.1509
--- guile/guile-core/libguile/ChangeLog:1.1508 Thu Sep 13 18:29:44 2001
+++ guile/guile-core/libguile/ChangeLog Sat Sep 15 17:56:52 2001
@@ -1,3 +1,14 @@
+2001-09-15 Gary Houston <address@hidden>
+
+ * 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.
+
2001-09-13 Dirk Herrmann <address@hidden>
* guardians.c (tconc_t, t_tconc): Renamed tconc_t to t_tconc.
Index: guile/guile-core/libguile/gc.c
diff -u guile/guile-core/libguile/gc.c:1.216
guile/guile-core/libguile/gc.c:1.217
--- guile/guile-core/libguile/gc.c:1.216 Thu Sep 6 07:11:31 2001
+++ guile/guile-core/libguile/gc.c Sat Sep 15 17:56:52 2001
@@ -1074,21 +1074,6 @@
++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 ();
Index: guile/guile-core/libguile/init.c
diff -u guile/guile-core/libguile/init.c:1.130
guile/guile-core/libguile/init.c:1.131
--- guile/guile-core/libguile/init.c:1.130 Fri Aug 31 10:42:31 2001
+++ guile/guile-core/libguile/init.c Sat Sep 15 17:56:52 2001
@@ -162,7 +162,6 @@
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 @@
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
Index: guile/guile-core/libguile/root.c
diff -u guile/guile-core/libguile/root.c:1.57
guile/guile-core/libguile/root.c:1.58
--- guile/guile-core/libguile/root.c:1.57 Fri Aug 31 08:13:50 2001
+++ guile/guile-core/libguile/root.c Sat Sep 15 17:56:52 2001
@@ -73,8 +73,6 @@
scm_gc_mark (s->rootcont);
scm_gc_mark (s->dynwinds);
- scm_gc_mark (s->continuation_stack);
- scm_gc_mark (s->continuation_stack_ptr);
scm_gc_mark (s->progargs);
scm_gc_mark (s->exitval);
scm_gc_mark (s->cur_inp);
@@ -122,8 +120,6 @@
/* Initialize everything right now, in case a GC happens early. */
root_state->rootcont
= root_state->dynwinds
- = root_state->continuation_stack
- = root_state->continuation_stack_ptr
= root_state->progargs
= root_state->exitval
= root_state->cur_inp
Index: guile/guile-core/libguile/root.h
diff -u guile/guile-core/libguile/root.h:1.39
guile/guile-core/libguile/root.h:1.40
--- guile/guile-core/libguile/root.h:1.39 Fri Aug 31 08:13:50 2001
+++ guile/guile-core/libguile/root.h Sat Sep 15 17:56:52 2001
@@ -89,8 +89,6 @@
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 @@
#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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- guile/guile-core/libguile ChangeLog gc.c init.c...,
Gary Houston <=