guile/guile-core/libguile vectors.h

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Marius Vollmer <address@hidden> 01/11/25 10:18:18

Modified files:
        guile-core/libguile: vectors.h 

Log message:
        (SCM_MAKE_VECTOR_TAG): New.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/vectors.h.diff?cvsroot=OldCVS&tr1=1.37&tr2=1.38&r1=text&r2=text

Patches:
Index: guile/guile-core/libguile/vectors.h
diff -u guile/guile-core/libguile/vectors.h:1.37 
guile/guile-core/libguile/vectors.h:1.38
--- guile/guile-core/libguile/vectors.h:1.37    Thu Nov  1 19:19:11 2001
+++ guile/guile-core/libguile/vectors.h Sun Nov 25 10:18:18 2001
@@ -55,7 +55,8 @@
 #define SCM_SET_VECTOR_BASE(v, b) (SCM_SET_CELL_WORD_1 ((v), (b)))
 #define SCM_VECTOR_MAX_LENGTH ((1L << 24) - 1)
 #define SCM_VECTOR_LENGTH(x) (((unsigned long) SCM_CELL_WORD_0 (x)) >> 8)
-#define SCM_SET_VECTOR_LENGTH(v, l, t) (SCM_SET_CELL_WORD_0 ((v), ((l) << 8) + 
(t)))
+#define SCM_MAKE_VECTOR_TAG(l,t)  (((l) << 8) + (t))
+#define SCM_SET_VECTOR_LENGTH(v, l, t) (SCM_SET_CELL_WORD_0 ((v), 
SCM_MAKE_VECTOR_TAG(l,t)))
 
 #define SCM_VELTS(x) ((SCM *) SCM_CELL_WORD_1 (x))
 #define SCM_VELTS_AS_STACKITEMS(x) ((SCM_STACKITEM *) SCM_CELL_WORD_1 (x))