diff options
| author | Vibhav Pant <vibhavp@gmail.com> | 2017-02-13 16:44:06 +0530 |
|---|---|---|
| committer | Vibhav Pant <vibhavp@gmail.com> | 2017-02-13 16:44:06 +0530 |
| commit | e742450427007cdde242c11380dfe32a950fab61 (patch) | |
| tree | 4e055ccacd3b2c466726c912b9e0c21149ea7115 /lisp/emacs-lisp/byte-opt.el | |
| parent | c24e8290fa4ec18c04cbedffbe741b53de280dd6 (diff) | |
| download | emacs-e742450427007cdde242c11380dfe32a950fab61.tar.gz | |
; Add more documentation for byte-switch related code.
Diffstat (limited to 'lisp/emacs-lisp/byte-opt.el')
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index 3bec3e61df9..38f5dcc993b 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el @@ -1421,6 +1421,8 @@ when (and (listp el) ;; make sure we're at the correct op (eq (nth 1 el) 'byte-constant) (eq (nth 2 el) orig-table)) + ;; jump tables are never resused, so we do this exactly + ;; once. do (setf (nth 2 el) last-constant) and return nil)))) ;; lap = ( [ (pc . (op . arg)) ]* ) (push (cons optr (cons bytedecomp-op (or offset 0))) |