* 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.

diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el
index f4bc8156d359589a20a6fc22044616787cfe6b8f..8f0b90f8e01fd07eddeebab57fdb076b527bbc23 100644 (file)
--- 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)