[Openmcl-cvs-notifications] r10807 - /trunk/source/lisp-kernel/bits.h

[gb at clozure.com]

Author: gb
Date: Fri Sep 19 03:41:01 2008
New Revision: 10807

Log:
define NATURAL1 : the constant 1 as a "natural".

Modified:
    trunk/source/lisp-kernel/bits.h

Modified: trunk/source/lisp-kernel/bits.h
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/lisp-kernel/bits.h (original)
+++ trunk/source/lisp-kernel/bits.h Fri Sep 19 03:41:01 2008
@@ -27,10 +27,12 @@
 #define bitmap_shift 6
 #define BIT0_MASK 0x8000000000000000ULL
 #define ALL_ONES  0xffffffffffffffffULL
+#define NATURAL1 1ULL
 #else
 #define bitmap_shift 5
 #define BIT0_MASK 0x80000000U =

 #define ALL_ONES  0xFFFFFFFFU
+#define NATURAL1 1U
 #endif
 =

 #define bitmap_shift_count_mask ((1<<bitmap_shift)-1)