Mercurial > emacs
diff src/lread.c @ 6470:651b49e52c9e
(read1): Check for invalid modifier bits in a string.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Tue, 22 Mar 1994 21:59:02 +0000 |
parents | 58e075552627 |
children | 4e6b54b64d94 |
line wrap: on
line diff
--- a/src/lread.c Tue Mar 22 20:48:30 1994 +0000 +++ b/src/lread.c Tue Mar 22 21:59:02 1994 +0000 @@ -1210,11 +1210,15 @@ if (p == read_buffer) cancel = 1; } - else if (c & CHAR_META) - /* Move the meta bit to the right place for a string. */ - *p++ = (c & ~CHAR_META) | 0x80; else - *p++ = c; + { + if (c & CHAR_META) + /* Move the meta bit to the right place for a string. */ + c = (c & ~CHAR_META) | 0x80; + if (c & ~0xff) + error ("Invalid modifier in string"); + *p++ = c; + } } if (c < 0) return Fsignal (Qend_of_file, Qnil);