diff options
| author | Mattias Engdegård <mattiase@acm.org> | 2022-08-30 11:20:42 +0200 |
|---|---|---|
| committer | Mattias Engdegård <mattiase@acm.org> | 2022-08-30 11:26:40 +0200 |
| commit | 8954fcb93bb271f5147b19671d1bf87d88d8047a (patch) | |
| tree | a721c293d9c33c04d200a9048f5e398cefa54ffe /src/lread.c | |
| parent | 57ba65e047de2495500ba375070a896913cce267 (diff) | |
| download | emacs-8954fcb93bb271f5147b19671d1bf87d88d8047a.tar.gz emacs-8954fcb93bb271f5147b19671d1bf87d88d8047a.tar.bz2 emacs-8954fcb93bb271f5147b19671d1bf87d88d8047a.zip | |
; * src/lread.c (read0): Fix specpdl off-by-one bug in last change.
Diffstat (limited to 'src/lread.c')
| -rw-r--r-- | src/lread.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/lread.c b/src/lread.c index 15bbf46f78f..bb376064811 100644 --- a/src/lread.c +++ b/src/lread.c @@ -3702,11 +3702,13 @@ read0 (Lisp_Object readcharfun, bool locate_syms) char *read_buffer = stackbuf; ptrdiff_t read_buffer_size = sizeof stackbuf; char *heapbuf = NULL; - specpdl_ref count = SPECPDL_INDEX (); + specpdl_ref base_pdl = SPECPDL_INDEX (); ptrdiff_t base_sp = rdstack.sp; record_unwind_protect_intmax (read_stack_reset, base_sp); + specpdl_ref count = SPECPDL_INDEX (); + bool uninterned_symbol; bool skip_shorthand; @@ -4354,7 +4356,7 @@ read0 (Lisp_Object readcharfun, bool locate_syms) } } - return unbind_to (count, obj); + return unbind_to (base_pdl, obj); } |