Lessen stack consumption in recursive read1

* src/lread.c (read1): Shrink local buffer size from MAX_ALLOCA to 128 (Bug#31995).
2018-07-12 20:23:07 -07:00
parent 3eb4603b0d
commit b38b91a834
1 changed files with 1 additions and 1 deletions
--- a/src/lread.c
+++ b/src/lread.c
@@ -2677,7 +2677,7 @@ read1 (Lisp_Object readcharfun, int *pch, bool first_in_list)
  int c;
  bool uninterned_symbol = false;
  bool multibyte;
-  char stackbuf[MAX_ALLOCA];
+  char stackbuf[128];  /* Small, as read1 is recursive (Bug#31995).  */
  current_thread->stack_top = stackbuf;

  *pch = 0;