diff options
| author | Vibhav Pant <vibhavp@gmail.com> | 2017-02-06 13:26:25 +0530 |
|---|---|---|
| committer | Vibhav Pant <vibhavp@gmail.com> | 2017-02-06 13:26:25 +0530 |
| commit | a12b416bca705c555ba049b18598533d3ae41ef2 (patch) | |
| tree | b4c80e6d6c6abffb89fc300fd7ea3c34a9febcee /lisp/emacs-lisp/byte-opt.el | |
| parent | ad70ca1dad26da79f0a95cc0ec687902ef20fa9b (diff) | |
| download | emacs-a12b416bca705c555ba049b18598533d3ae41ef2.tar.gz emacs-a12b416bca705c555ba049b18598533d3ae41ef2.tar.bz2 emacs-a12b416bca705c555ba049b18598533d3ae41ef2.zip | |
; byte(-opt, comp).el: Add more documentation for byte-switch code.
Diffstat (limited to 'lisp/emacs-lisp/byte-opt.el')
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index 146fbcc1cb6..888a5f85007 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el @@ -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) |