guile/guile-core/libguile strings.h

[Marius Vollmer]

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

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

Log message:
        (SCM_MAKE_STRING_TAG): New.

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

Patches:
Index: guile/guile-core/libguile/strings.h
diff -u guile/guile-core/libguile/strings.h:1.38 
guile/guile-core/libguile/strings.h:1.39
--- guile/guile-core/libguile/strings.h:1.38    Thu Nov  1 19:19:11 2001
+++ guile/guile-core/libguile/strings.h Sun Nov 25 10:14:51 2001
@@ -56,7 +56,8 @@
 #define SCM_SET_STRING_CHARS(s, c) (SCM_SET_CELL_WORD_1 ((s), (c)))
 #define SCM_STRING_MAX_LENGTH ((1UL << 24) - 1UL)
 #define SCM_STRING_LENGTH(x) ((size_t) (SCM_CELL_WORD_0 (x) >> 8))
-#define SCM_SET_STRING_LENGTH(s, l) (SCM_SET_CELL_WORD_0 ((s), (((scm_t_bits) 
(l)) << 8) + scm_tc7_string))
+#define SCM_MAKE_STRING_TAG(l) ((((scm_t_bits) (l)) << 8) + scm_tc7_string)
+#define SCM_SET_STRING_LENGTH(s, l) (SCM_SET_CELL_WORD_0 ((s), 
SCM_MAKE_STRING_TAG (l)))