diff options
| author | Zach Shaftel | 2020-07-22 20:07:15 -0400 |
|---|---|---|
| committer | Zach Shaftel | 2020-07-22 20:07:15 -0400 |
| commit | bed4004fd334e101a5fb4ee8a3bbf23f4679ba87 (patch) | |
| tree | 180ee2e9b41306ec9514af5431401d154917282f | |
| parent | 54b94af19d371f55f8a5f60352a14791de0d3e97 (diff) | |
| download | emacs-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.c | 2 | ||||
| -rw-r--r-- | src/eval.c | 2 | ||||
| -rw-r--r-- | src/lisp.h | 3 |
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 | ||
| 318 | DEFUN ("byte-code", Fbyte_code, Sbyte_code, 3, 3, 0, | 318 | DEFUN ("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 | ||