guile/guile-core/libguile unif.h

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Marius Vollmer <address@hidden> 01/06/14 11:26:27

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

Log message:
        * unif.h (SCM_ARRAY_NDIM): Shift then cast so that the no sign
        extension takes place.
        * strings.h (SCM_STRING_LENGTH): Likewise.
        (SCM_STRING_MAX_LENGTH): Use unsigned numbers.

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

Patches:
Index: guile/guile-core/libguile/unif.h
diff -u guile/guile-core/libguile/unif.h:1.39 
guile/guile-core/libguile/unif.h:1.40
--- guile/guile-core/libguile/unif.h:1.39       Fri Jun  8 03:02:33 2001
+++ guile/guile-core/libguile/unif.h    Thu Jun 14 11:26:27 2001
@@ -88,7 +88,7 @@
 #endif
 
 #define SCM_ARRAYP(a)      SCM_TYP16_PREDICATE (scm_tc16_array, a)
-#define SCM_ARRAY_NDIM(x)   ((size_t) (SCM_CELL_WORD_0 (x)) >> 17)
+#define SCM_ARRAY_NDIM(x)   ((size_t) (SCM_CELL_WORD_0 (x) >> 17))
 #define SCM_ARRAY_CONTP(x)  (SCM_CELL_WORD_0 (x) & SCM_ARRAY_FLAG_CONTIGUOUS)
 #define SCM_SET_ARRAY_CONTIGUOUS_FLAG(x) \
   (SCM_SET_CELL_WORD_0 ((x), SCM_CELL_WORD_0 (x) | SCM_ARRAY_FLAG_CONTIGUOUS))