diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2018-07-12 20:23:07 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2018-07-12 20:23:47 -0700 |
| commit | b38b91a83491b6812e8267d0247355f0e8e3e189 (patch) | |
| tree | ff5afb0217173ecd29df9b358b54f00e721e3acb /src/lread.c | |
| parent | 3eb4603b0d432740ff4e8deb637cca2f35cf5fee (diff) | |
| download | emacs-b38b91a83491b6812e8267d0247355f0e8e3e189.tar.gz emacs-b38b91a83491b6812e8267d0247355f0e8e3e189.tar.bz2 emacs-b38b91a83491b6812e8267d0247355f0e8e3e189.zip | |
Lessen stack consumption in recursive read1
* src/lread.c (read1): Shrink local buffer size from
MAX_ALLOCA to 128 (Bug#31995).
Diffstat (limited to 'src/lread.c')
| -rw-r--r-- | src/lread.c | 2 |
1 files changed, 1 insertions, 1 deletions
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; |