[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] feature/byte-switch c4316a2: ; bytecomp.el (byte-compile-c
From: |
Vibhav Pant |
Subject: |
[Emacs-diffs] feature/byte-switch c4316a2: ; bytecomp.el (byte-compile-cond-jump-table): Add TODO note |
Date: |
Mon, 6 Feb 2017 14:03:14 +0000 (UTC) |
branch: feature/byte-switch
commit c4316a266185c4adbb8d15a04b9552882b3c34a8
Author: Vibhav Pant <address@hidden>
Commit: Vibhav Pant <address@hidden>
; bytecomp.el (byte-compile-cond-jump-table): Add TODO note
---
lisp/emacs-lisp/bytecomp.el | 2 ++
1 file changed, 2 insertions(+)
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index c70e1bf..d5a163e 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -4057,6 +4057,8 @@ Return a list of the form ((TEST . VAR) ((VALUE BODY)
...))"
(cases (cadr table-info))
jump-table test-obj body tag donetag default-tag default-case)
(when (and cases (not (= (length cases) 1)))
+ ;; TODO: Once :linear-search is implemented for `make-hash-table'
+ ;; set it to `t' for cond forms with a small number of cases.
(setq jump-table (make-hash-table :test test
:purecopy t
:size (if (assq 'default cases)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] feature/byte-switch c4316a2: ; bytecomp.el (byte-compile-cond-jump-table): Add TODO note,
Vibhav Pant <=