From 02bf2e08e27a00cde891a20affe96653fe44c7da Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Wed, 8 Jul 2020 20:57:20 +0100 Subject: [PATCH] * Disable ipa-pure in comp-tests-tco * test/src/comp-tests.el (comp-tests-tco): Disable ipa-pure to check effectively for tail recursion elimination. --- test/src/comp-tests.el | 3 +++ 1 file changed, 3 insertions(+) diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el index f4bc8156d35..8f0b90f8e01 100644 --- a/test/src/comp-tests.el +++ b/test/src/comp-tests.el @@ -629,6 +629,9 @@ CHECKER should always return nil to have a pass." (ert-deftest comp-tests-tco () "Check for tail recursion elimination." (let ((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-final comp-tests-tco-checker)))) (eval '(defun comp-tests-tco-f (a b count) -- 2.39.5