* src/lread.c (READ_AND_BUFFER): Reject negative chars (bug#73914).

2024-10-20 22:39:53 +03:00
parent ac4151e002
commit 681f70ea04
1 changed files with 2 additions and 0 deletions
--- a/src/lread.c
+++ b/src/lread.c
@@ -3913,6 +3913,8 @@ read_stack_reset (intmax_t sp)

 #define READ_AND_BUFFER(c)			\
  c = READCHAR;					\
+  if (c < 0)					\
+    INVALID_SYNTAX_WITH_BUFFER ();		\
  if (multibyte)				\
    p += CHAR_STRING (c, (unsigned char *) p);	\
  else						\