diff options
| author | Mattias Engdegård <mattiase@acm.org> | 2021-12-11 22:11:08 +0100 |
|---|---|---|
| committer | Mattias Engdegård <mattiase@acm.org> | 2021-12-11 22:16:55 +0100 |
| commit | 8716f21d94bfda0072843e087833fedb38dcf13e (patch) | |
| tree | 668849f67d7fa4b50d59b19ebaa6e52c546a9544 /test/lisp/emacs-lisp | |
| parent | 36cd4f5d81c3c19e5719e25daa1a8e08c88cc1a7 (diff) | |
| download | emacs-8716f21d94bfda0072843e087833fedb38dcf13e.tar.gz emacs-8716f21d94bfda0072843e087833fedb38dcf13e.tar.bz2 emacs-8716f21d94bfda0072843e087833fedb38dcf13e.zip | |
Constant-propagate access to captured variables
* lisp/emacs-lisp/byte-opt.el (byte-optimize--substitutable-p):
Treat (internal-get-closed-var N) as constants for propagation
purposes, because that is effectively what such forms will be compiled
to. This allows for the elimination of some lexical variables.
* test/lisp/emacs-lisp/bytecomp-tests.el (bytecomp-tests--test-cases):
Add test case.
Diffstat (limited to 'test/lisp/emacs-lisp')
| -rw-r--r-- | test/lisp/emacs-lisp/bytecomp-tests.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/test/lisp/emacs-lisp/bytecomp-tests.el b/test/lisp/emacs-lisp/bytecomp-tests.el index 7e51f820b70..a442eb473be 100644 --- a/test/lisp/emacs-lisp/bytecomp-tests.el +++ b/test/lisp/emacs-lisp/bytecomp-tests.el @@ -686,6 +686,12 @@ inner loops respectively." (let* ((x 'a)) (list x (funcall g) (funcall h))))))) (funcall (funcall f 'b))) + + ;; Test constant-propagation of access to captured variables. + (let* ((x 2) + (f (lambda () + (let ((y x)) (list y 3 y))))) + (funcall f)) ) "List of expressions for cross-testing interpreted and compiled code.") |