[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core NEWS libguile/ChangeLog libgui...
From: |
Dirk Herrmann |
Subject: |
guile/guile-core NEWS libguile/ChangeLog libgui... |
Date: |
Wed, 22 Nov 2000 07:36:59 -0800 |
CVSROOT: /cvs
Module name: guile
Changes by: Dirk Herrmann <address@hidden> 00/11/22 07:36:58
Modified files:
guile-core : NEWS
guile-core/libguile: ChangeLog continuations.c continuations.h
Log message:
* Added SCM_SET_CONTINUATION_LENGTH to replace SCM_SETLENGTH.
CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/NEWS.diff?r1=1.216&r2=1.217
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/ChangeLog.diff?r1=1.1171&r2=1.1172
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/continuations.c.diff?r1=1.24&r2=1.25
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/continuations.h.diff?r1=1.14&r2=1.15
Patches:
Index: guile/guile-core/NEWS
diff -u guile/guile-core/NEWS:1.216 guile/guile-core/NEWS:1.217
--- guile/guile-core/NEWS:1.216 Wed Nov 22 06:45:40 2000
+++ guile/guile-core/NEWS Wed Nov 22 07:36:58 2000
@@ -243,7 +243,7 @@
Use these instead of SCM_LENGTH.
-** New macros: SCM_SET_VECTOR_LENGTH
+** New macros: SCM_SET_CONTINUATION_LENGTH, SCM_SET_VECTOR_LENGTH
Use these instead of SCM_SETLENGTH
Index: guile/guile-core/libguile/ChangeLog
diff -u guile/guile-core/libguile/ChangeLog:1.1171
guile/guile-core/libguile/ChangeLog:1.1172
--- guile/guile-core/libguile/ChangeLog:1.1171 Wed Nov 22 06:45:41 2000
+++ guile/guile-core/libguile/ChangeLog Wed Nov 22 07:36:58 2000
@@ -1,5 +1,12 @@
2000-11-22 Dirk Herrmann <address@hidden>
+ * continuations.c (scm_make_cont): Use
+ SCM_SET_CONTINUATION_LENGTH instead of SCM_SETLENGTH.
+
+ * continuations.h (SCM_SET_CONTINUATION_LENGTH): Added.
+
+2000-11-22 Dirk Herrmann <address@hidden>
+
* vectors.c (scm_make_vector), weaks.c (scm_make_weak_vector):
Use SCM_SET_VECTOR_LENGTH instead of SCM_SETLENGTH.
Index: guile/guile-core/libguile/continuations.c
diff -u guile/guile-core/libguile/continuations.c:1.24
guile/guile-core/libguile/continuations.c:1.25
--- guile/guile-core/libguile/continuations.c:1.24 Fri Nov 17 08:25:03 2000
+++ guile/guile-core/libguile/continuations.c Wed Nov 22 07:36:58 2000
@@ -89,7 +89,7 @@
SCM_THROW_VALUE (cont) = SCM_EOL;
src = SCM_BASE (cont) = SCM_BASE (scm_rootcont);
SCM_SEQ (cont) = SCM_SEQ (scm_rootcont);
- SCM_SETLENGTH (cont, j, scm_tc7_contin);
+ SCM_SET_CONTINUATION_LENGTH (cont, j);
SCM_EXIT_A_SECTION;
#ifndef SCM_STACK_GROWS_UP
src -= SCM_CONTINUATION_LENGTH (cont);
Index: guile/guile-core/libguile/continuations.h
diff -u guile/guile-core/libguile/continuations.h:1.14
guile/guile-core/libguile/continuations.h:1.15
--- guile/guile-core/libguile/continuations.h:1.14 Fri Oct 6 06:35:58 2000
+++ guile/guile-core/libguile/continuations.h Wed Nov 22 07:36:58 2000
@@ -64,6 +64,7 @@
#define SCM_CONTREGS(x) ((scm_contregs *) SCM_CELL_WORD_1 (x))
#define SCM_SET_CONTREGS(x, r) (SCM_SET_CELL_WORD_1 ((x), (scm_bits_t) (r)))
#define SCM_CONTINUATION_LENGTH(x) (((unsigned long) SCM_CELL_WORD_0 (x)) >> 8)
+#define SCM_SET_CONTINUATION_LENGTH(x, l) (SCM_SET_CELL_WORD_0 ((x), ((l) <<
8) + scm_tc7_contin))
#define SCM_JMPBUF(x) ((SCM_CONTREGS (x))->jmpbuf)
#define SCM_DYNENV(x) ((SCM_CONTREGS (x))->dynenv)