aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorZach Shaftel2020-07-22 20:07:15 -0400
committerZach Shaftel2020-07-22 20:07:15 -0400
commitbed4004fd334e101a5fb4ee8a3bbf23f4679ba87 (patch)
tree180ee2e9b41306ec9514af5431401d154917282f
parent54b94af19d371f55f8a5f60352a14791de0d3e97 (diff)
downloademacs-bed4004fd334e101a5fb4ee8a3bbf23f4679ba87.tar.gz
emacs-bed4004fd334e101a5fb4ee8a3bbf23f4679ba87.zip
Clean up before patch submissionfeature/soc-bytecode-in-traceback-reduced
* src/lisp.h (struct handler): Remove unused 'bytecode_offset' field, which was added at some point while prototyping. * src/bytecode.c (UPDATE_OFFSET): Subtract 1, so the offset is accurate.
-rw-r--r--src/bytecode.c2
-rw-r--r--src/eval.c2
-rw-r--r--src/lisp.h3
3 files changed, 3 insertions, 4 deletions
diff --git a/src/bytecode.c b/src/bytecode.c
index 4ea3cbfb12b..c6766a38cf2 100644
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -313,7 +313,7 @@ enum byte_code_op
313 313
314/* Update the thread's bytecode offset, just before NEXT. */ 314/* Update the thread's bytecode offset, just before NEXT. */
315 315
316#define UPDATE_OFFSET (backtrace_byte_offset = pc - bytestr_data) 316#define UPDATE_OFFSET (backtrace_byte_offset = pc - bytestr_data - 1)
317 317
318DEFUN ("byte-code", Fbyte_code, Sbyte_code, 3, 3, 0, 318DEFUN ("byte-code", Fbyte_code, Sbyte_code, 3, 3, 0,
319 doc: /* Function used internally in byte-compiled code. 319 doc: /* Function used internally in byte-compiled code.
diff --git a/src/eval.c b/src/eval.c
index b9640f6ab7a..e4451aa96c4 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -342,7 +342,9 @@ call_debugger (Lisp_Object arg)
342 redisplay, which necessarily leads to display problems. */ 342 redisplay, which necessarily leads to display problems. */
343 specbind (Qinhibit_eval_during_redisplay, Qt); 343 specbind (Qinhibit_eval_during_redisplay, Qt);
344#endif 344#endif
345
345 val = apply1 (Vdebugger, arg); 346 val = apply1 (Vdebugger, arg);
347
346 /* Interrupting redisplay and resuming it later is not safe under 348 /* Interrupting redisplay and resuming it later is not safe under
347 all circumstances. So, when the debugger returns, abort the 349 all circumstances. So, when the debugger returns, abort the
348 interrupted redisplay by going back to the top-level. */ 350 interrupted redisplay by going back to the top-level. */
diff --git a/src/lisp.h b/src/lisp.h
index f413d7a45ec..e92300f4f77 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -3281,9 +3281,6 @@ struct handler
3281 enum nonlocal_exit nonlocal_exit; 3281 enum nonlocal_exit nonlocal_exit;
3282 Lisp_Object val; 3282 Lisp_Object val;
3283 3283
3284 /* The bytecode offset where the error occurred. */
3285 int bytecode_offset;
3286
3287 struct handler *next; 3284 struct handler *next;
3288 struct handler *nextfree; 3285 struct handler *nextfree;
3289 3286