[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/libguile procs.h
From: |
Marius Vollmer |
Subject: |
guile/guile-core/libguile procs.h |
Date: |
Sun, 25 Nov 2001 10:13:53 -0500 |
CVSROOT: /cvs
Module name: guile
Changes by: Marius Vollmer <address@hidden> 01/11/25 10:13:52
Modified files:
guile-core/libguile: procs.h
Log message:
(SCM_MAKE_CCLO_TAG): New.
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/procs.h.diff?cvsroot=OldCVS&tr1=1.46&tr2=1.47&r1=text&r2=text
Patches:
Index: guile/guile-core/libguile/procs.h
diff -u guile/guile-core/libguile/procs.h:1.46
guile/guile-core/libguile/procs.h:1.47
--- guile/guile-core/libguile/procs.h:1.46 Thu Nov 1 19:19:11 2001
+++ guile/guile-core/libguile/procs.h Sun Nov 25 10:13:52 2001
@@ -76,7 +76,8 @@
#define SCM_SUBR_GENERIC(x) (SCM_SUBR_ENTRY (x).generic)
#define SCM_CCLO_LENGTH(x) (SCM_CELL_WORD_0 (x) >> 8)
-#define SCM_SET_CCLO_LENGTH(x, v) (SCM_SET_CELL_WORD_0 ((x), ((v) << 8) +
scm_tc7_cclo))
+#define SCM_MAKE_CCLO_TAG(v) (((v) << 8) + scm_tc7_cclo)
+#define SCM_SET_CCLO_LENGTH(x, v) (SCM_SET_CELL_WORD_0 ((x),
SCM_MAKE_CCLO_TAG(v)))
#define SCM_CCLO_BASE(x) ((scm_t_bits *) SCM_CELL_WORD_1 (x))
#define SCM_SET_CCLO_BASE(x, v) (SCM_SET_CELL_WORD_1 ((x), (v)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- guile/guile-core/libguile procs.h,
Marius Vollmer <=