diff options
author | Mattias EngdegÄrd <mattiase@acm.org> | 2023-02-05 12:27:32 +0100 |
---|---|---|
committer | Mattias EngdegÄrd <mattiase@acm.org> | 2023-02-05 16:27:35 +0100 |
commit | 0f4c7060e46d279b0da315a8d0961225a7eefa6a (patch) | |
tree | 0deac2e244c0ea8b14ba09a8559140d91db6b45f /lisp/emacs-lisp/byte-opt.el | |
parent | 17784bbf3f933dc7ed6aa286794ad7a32651e3ce (diff) | |
download | emacs-0f4c7060e46d279b0da315a8d0961225a7eefa6a.tar.gz |
Fix misleading LAP optimiser debug log message
* lisp/emacs-lisp/byte-opt.el (byte-optimize-lapcode):
Correct message in a conditional jump threading rule.
Diffstat (limited to 'lisp/emacs-lisp/byte-opt.el')
-rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index feff233998d..e0c769c7e60 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el @@ -2368,9 +2368,11 @@ If FOR-EFFECT is non-nil, the return value is assumed to be of no importance." (eq (car tmp) 'byte-goto)) (not (eq (cdr tmp) (cdr lap0))) (progn - ;; FIXME: inaccurate log message when lap0 = goto-if-* (byte-compile-log-lap " %s [%s]\t-->\t%s" - (car lap0) tmp tmp) + (car lap0) tmp + (if (eq (car tmp) 'byte-return) + tmp + (cons (car lap0) (cdr tmp)))) (when (eq (car tmp) 'byte-return) (setcar lap0 'byte-return)) (setcdr lap0 (cdr tmp)) |