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

* Fix out of date comp pass names in comp-tests.el

Browse source 
* test/src/comp-tests.el (comp-tests-tco, comp-tests-fw-prop-1)
(comp-tests-pure): Update out of date pass names.
This commit is contained in:
Andrea Corallo 2024-04-08 10:46:50 +02:00
parent 4efe3b99a5
commit 4d486bd378
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -865,8 +865,8 @@ Return a list of results."
(let ((native-comp-speed 3)
;; Disable ipa-pure otherwise `comp-tests-tco-f' gets
;; optimized-out.
(comp-disabled-passes '(comp-ipa-pure))
(comp-post-pass-hooks '((comp-tco comp-tests-tco-checker)
(comp-disabled-passes '(comp--ipa-pure))
(comp-post-pass-hooks '((comp--tco comp-tests-tco-checker)
(comp-final comp-tests-tco-checker))))
(eval '(defun comp-tests-tco-f (a b count)
(if (= count 0)
@ -893,7 +893,7 @@ Return a list of results."
(comp-deftest fw-prop-1 ()
"Some tests for forward propagation."
(let ((native-comp-speed 2)
(comp-post-pass-hooks '((comp-final comp-tests-fw-prop-checker-1))))
(comp-post-pass-hooks '((comp--final comp-tests-fw-prop-checker-1))))
(eval '(defun comp-tests-fw-prop-1-f ()
(let* ((a "xxx")
(b "yyy")
@ -1550,8 +1550,8 @@ folded."
(comp-deftest pure ()
"Some tests for pure functions optimization."
(let ((native-comp-speed 3)
(comp-post-pass-hooks '((comp-final comp-tests-pure-checker-1
comp-tests-pure-checker-2))))
(comp-post-pass-hooks '((comp--final comp-tests-pure-checker-1
comp-tests-pure-checker-2))))
(load (native-compile (ert-resource-file "comp-test-pure.el")))
(declare-function comp-tests-pure-caller-f nil)
(declare-function comp-tests-pure-fibn-entry-f nil)