feature/native-comp 02bf2e0 13/14: * Disable ipa-pure in comp-tests-tco

[Andrea Corallo]

branch: feature/native-comp
commit 02bf2e08e27a00cde891a20affe96653fe44c7da
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>

    * 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 f4bc815..8f0b90f 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)