From: Paul Eggert <eggert@cs.ucla.edu>
Date: Fri, 13 Jul 2018 03:23:07 +0000 (-0700)
Subject: Lessen stack consumption in recursive read1
X-Git-Tag: emacs-26.1.90~268
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b38b91a83491b6812e8267d0247355f0e8e3e189;p=emacs.git

Lessen stack consumption in recursive read1

* src/lread.c (read1): Shrink local buffer size from
MAX_ALLOCA to 128 (Bug#31995).
---

diff --git a/src/lread.c b/src/lread.c
index 72523c057f1..d5ba48a170d 100644
--- 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;