From f943104adbd9be9e67f2ae17dcd0c4143f075acd Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Tue, 22 Mar 1994 21:59:02 +0000 Subject: (read1): Check for invalid modifier bits in a string. --- src/lread.c | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) (limited to 'src/lread.c') diff --git a/src/lread.c b/src/lread.c index ccb2f52d238..af7a0153b02 100644 --- a/src/lread.c +++ b/src/lread.c @@ -1210,11 +1210,15 @@ read1 (readcharfun) 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); -- cgit v1.2.1