mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-26 15:10:50 -08:00
Code Issues Projects Releases Wiki Activity

Rework `native-compile' interface so it can return compiled functions

Browse source 
* lisp/emacs-lisp/comp.el (native-compile): Return the compiled
	function when the input is a symbol or a form.
	* test/src/comp-tests.el (free-fun, tco, fw-prop): Update tests
	for new `native-compile' interface.
This commit is contained in:
Andrea Corallo 2020-10-12 22:34:57 +02:00
parent 8861ee8b08
commit 4f0e879030
2 changed files with 17 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

6
test/src/comp-tests.el
View file

@ -359,7 +359,7 @@ Check that the resulting binaries do not differ."
(interactive)
3)
t)
(load (native-compile #'comp-tests-free-fun-f))
(native-compile #'comp-tests-free-fun-f)
(should (subr-native-elisp-p (symbol-function #'comp-tests-free-fun-f)))
(should (= (comp-tests-free-fun-f) 3))
@ -692,7 +692,7 @@ CHECKER should always return nil to have a pass."
b
(comp-tests-tco-f (+ a b) a (- count 1))))
t)
(load (native-compile #'comp-tests-tco-f))
(native-compile #'comp-tests-tco-f)
(should (subr-native-elisp-p (symbol-function #'comp-tests-tco-f)))
(should (= (comp-tests-tco-f 1 0 10) 55))))
@ -714,7 +714,7 @@ CHECKER should always return nil to have a pass."
(c (concat a b))) ; <= has to optimize
(length c))) ; <= has to optimize
t)
(load (native-compile #'comp-tests-fw-prop-1-f))
(native-compile #'comp-tests-fw-prop-1-f)
(should (subr-native-elisp-p (symbol-function #'comp-tests-fw-prop-1-f)))
(should (= (comp-tests-fw-prop-1-f) 6))))