procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/emacs-lisp/bytecomp.el:Use correct size for switch jump-table

Browse source
This commit is contained in:
Vibhav Pant 2017-01-26 01:00:41 +05:30
parent c52a9b6ddd
commit 19cb3985a3
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/emacs-lisp/bytecomp.el
View file

@ -4020,7 +4020,10 @@ that suppresses all warnings during execution of BODY."
(cases (cadr table-info))
jump-table test-obj body tag donetag default-tag default-case)
(when (and cases (not (= (length cases) 1)))
(setq jump-table (make-hash-table :test test :size (length cases))
(setq jump-table (make-hash-table :test test
:size (if (assq 'default cases)
(1- (length cases))
(length cases)))
default-tag (byte-compile-make-tag)
donetag (byte-compile-make-tag))
(byte-compile-variable-ref var)