From: Andrea Corallo <akrl@sdf.org>
Date: Wed, 8 Jul 2020 19:57:20 +0000 (+0100)
Subject: * Disable ipa-pure in comp-tests-tco
X-Git-Tag: emacs-28.0.90~2727^2~521
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=02bf2e08e27a00cde891a20affe96653fe44c7da;p=emacs.git

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