Mercurial > emacs
diff src/data.c @ 13363:941c37982f37
(BITS_PER_SHORT, BITS_PER_INT, BITS_PER_LONG):
Rename from SHORTBITS, INTBITS, LONGBITS.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 31 Oct 1995 02:34:16 +0000 |
| parents | 76034e1fc62e |
| children | e27c32c7d428 |
line wrap: on
line diff
--- a/src/data.c Tue Oct 31 02:08:29 1995 +0000 +++ b/src/data.c Tue Oct 31 02:34:16 1995 +0000 @@ -31,13 +31,6 @@ #include "syssignal.h" -#ifdef MSDOS -/* These are redefined (correctly, but differently) in values.h. */ -#undef INTBITS -#undef LONGBITS -#undef SHORTBITS -#endif - #ifdef LISP_FLOAT_TYPE #ifdef STDC_HEADERS @@ -1532,13 +1525,12 @@ else if (BOOL_VECTOR_P (array)) { int val; - int bits_per_char = INTBITS / sizeof (int); if (idxval < 0 || idxval >= XBOOL_VECTOR (array)->size) args_out_of_range (array, idx); - val = (unsigned char) XBOOL_VECTOR (array)->data[idxval / bits_per_char]; - return (val & (1 << (idxval % bits_per_char)) ? Qt : Qnil); + val = (unsigned char) XBOOL_VECTOR (array)->data[idxval / BITS_PER_CHAR]; + return (val & (1 << (idxval % BITS_PER_CHAR)) ? Qt : Qnil); } else if (CHAR_TABLE_P (array)) { @@ -1639,18 +1631,17 @@ else if (BOOL_VECTOR_P (array)) { int val; - int bits_per_char = INTBITS / sizeof (int); if (idxval < 0 || idxval >= XBOOL_VECTOR (array)->size) args_out_of_range (array, idx); - val = (unsigned char) XBOOL_VECTOR (array)->data[idxval / bits_per_char]; + val = (unsigned char) XBOOL_VECTOR (array)->data[idxval / BITS_PER_CHAR]; if (! NILP (newelt)) - val |= 1 << (idxval % bits_per_char); + val |= 1 << (idxval % BITS_PER_CHAR); else - val &= ~(1 << (idxval % bits_per_char)); - XBOOL_VECTOR (array)->data[idxval / bits_per_char] = val; + val &= ~(1 << (idxval % BITS_PER_CHAR)); + XBOOL_VECTOR (array)->data[idxval / BITS_PER_CHAR] = val; } else if (CHAR_TABLE_P (array)) {
