Mercurial > emacs
changeset 16863:591b7a95d7a5
(concat): Take modulus of thisindex before shifting.
Declare thisindex as unsigned.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 13 Jan 1997 03:33:26 +0000 |
| parents | 7417db9e3f61 |
| children | 59ed508195a4 |
| files | src/fns.c |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/src/fns.c Mon Jan 13 03:25:05 1997 +0000 +++ b/src/fns.c Mon Jan 13 03:33:26 1997 +0000 @@ -409,7 +409,7 @@ { Lisp_Object thislen; int thisleni; - register int thisindex = 0; + register unsigned int thisindex = 0; this = args[argnum]; if (!CONSP (this)) @@ -443,7 +443,7 @@ / BITS_PER_CHAR); int byte; byte = XBOOL_VECTOR (val)->data[thisindex / BITS_PER_CHAR]; - if (byte & (1 << thisindex)) + if (byte & (1 << (thisindex % BITS_PER_CHAR))) elt = Qt; else elt = Qnil;