mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

; byte(-opt, comp).el: Add more documentation for byte-switch code.

Browse source
This commit is contained in:
Vibhav Pant 2017-02-06 13:26:25 +05:30
parent ad70ca1dad
commit a12b416bca
2 changed files with 22 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/emacs-lisp/byte-opt.el
View file

@ -1773,6 +1773,9 @@ If FOR-EFFECT is non-nil, the return value is assumed to be of no importance."
;;
((and (memq (car lap0) '(byte-goto byte-return))
(not (memq (car lap1) '(TAG nil)))
;; FIXME: Instead of deferring simply when jump-tables are
;; being used, keep a list of tags used for switch tags and
;; use them instead (see `byte-compile-inline-lapcode').
(not byte-compile-jump-tables))
(setq tmp rest)
(let ((i 0)