Mercurial > hg > xemacs-beta

comparison src/lisp.h @ 347:7c94d56991e1 r21-1-3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-3
author cvs
date Mon, 13 Aug 2007 10:53:48 +0200
parents 8bec6624d99b
children 8e84bee8ddd0
comparison
equal deleted inserted replaced
346:dd0986ffd2cf 347:7c94d56991e1
1001 INLINE void 1001 INLINE void
1002 set_bit_vector_bit (struct Lisp_Bit_Vector *v, int i, int value) 1002 set_bit_vector_bit (struct Lisp_Bit_Vector *v, int i, int value)
1003 { 1003 {
1004 unsigned int ui = (unsigned int) i; 1004 unsigned int ui = (unsigned int) i;
1005 if (value) 1005 if (value)
1006 (v)->bits[ui >> LONGBITS_LOG2] |= (1 << (ui & (LONGBITS_POWER_OF_2 - 1))); 1006 (v)->bits[ui >> LONGBITS_LOG2] |= (1UL << (ui & (LONGBITS_POWER_OF_2 - 1)));
1007 else 1007 else
1008 (v)->bits[ui >> LONGBITS_LOG2] &= ~(1 << (ui & (LONGBITS_POWER_OF_2 - 1))); 1008 (v)->bits[ui >> LONGBITS_LOG2] &= ~(1UL << (ui & (LONGBITS_POWER_OF_2 - 1)));
1009 } 1009 }
1010 1010
1011 /* Number of longs required to hold LEN bits */ 1011 /* Number of longs required to hold LEN bits */
1012 #define BIT_VECTOR_LONG_STORAGE(len) \ 1012 #define BIT_VECTOR_LONG_STORAGE(len) \
1013 ((len + LONGBITS_POWER_OF_2 - 1) >> LONGBITS_LOG2) 1013 ((len + LONGBITS_POWER_OF_2 - 1) >> LONGBITS_LOG2)