guile/guile-core/libguile numbers.c

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Marius Vollmer <address@hidden> 01/06/24 17:57:59

Modified files:
        guile-core/libguile: numbers.c 

Log message:
        (SIZE_MAX, PTRDIFF_MIN, PTRDIFF_MAX): Only define when
        they aren't defined already.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/numbers.c.diff?cvsroot=OldCVS&tr1=1.133&tr2=1.134&r1=text&r2=text

Patches:
Index: guile/guile-core/libguile/numbers.c
diff -u guile/guile-core/libguile/numbers.c:1.133 
guile/guile-core/libguile/numbers.c:1.134
--- guile/guile-core/libguile/numbers.c:1.133   Sat Jun 23 08:25:57 2001
+++ guile/guile-core/libguile/numbers.c Sun Jun 24 17:57:59 2001
@@ -4200,10 +4200,18 @@
 # endif
 #endif
 
+#ifndef SIZE_MAX
 #define SIZE_MAX ((size_t) (-1))
+#endif
+
+#ifndef PTRDIFF_MIN
 /* the below is not really guaranteed to work (I think), but probably does: */
-#define PTRDIFF_MIN ((ptrdiff_t) ((ptrdiff_t)1 << (sizeof (ptrdiff_t) * 8 - 
1)))
+#define PTRDIFF_MIN ((ptrdiff_t) ((ptrdiff_t)1 << (sizeof (ptrdiff_t)*8 - 1)))
+#endif
+
+#ifndef PTRDIFF_MAX
 #define PTRDIFF_MAX (~ PTRDIFF_MIN)
+#endif
 
 #define NUM2INTEGRAL scm_num2short
 #define INTEGRAL2NUM scm_short2num