Mercurial > hg > xemacs-beta
diff src/lisp.h @ 420:41dbb7a9d5f2 r21-2-18
Import from CVS: tag r21-2-18
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 11:24:09 +0200 |
| parents | e804706bfb8c |
| children | 11054d720c21 |
line wrap: on
line diff
--- a/src/lisp.h Mon Aug 13 11:23:14 2007 +0200 +++ b/src/lisp.h Mon Aug 13 11:24:09 2007 +0200 @@ -39,6 +39,7 @@ #include <stdio.h> /* NULL, etc. */ #include <ctype.h> #include <stdarg.h> +#include <stddef.h> /* offsetof */ #ifdef __lucid # include <sysent.h> @@ -1113,9 +1114,9 @@ { unsigned int ui = (unsigned int) i; if (value) - (v)->bits[ui >> LONGBITS_LOG2] |= (1U << (ui & (LONGBITS_POWER_OF_2 - 1))); + (v)->bits[ui >> LONGBITS_LOG2] |= (1UL << (ui & (LONGBITS_POWER_OF_2 - 1))); else - (v)->bits[ui >> LONGBITS_LOG2] &= ~(1U << (ui & (LONGBITS_POWER_OF_2 - 1))); + (v)->bits[ui >> LONGBITS_LOG2] &= ~(1UL << (ui & (LONGBITS_POWER_OF_2 - 1))); } /* Number of longs required to hold LEN bits */ @@ -1551,7 +1552,7 @@ /* Can't be const, because then subr->doc is read-only and Snarf_documentation chokes */ -#define subr_lheader_initializer { 0, { 0, 0, 0 } } +#define subr_lheader_initializer { 0, 0, 0, 0 } #define DEFUN(lname, Fname, min_args, max_args, prompt, arglist) \ Lisp_Object Fname (EXFUN_##max_args); \