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

* test/src/comp-tests.el (comp-tests-tco, comp-tests-fw-prop-1)
(comp-tests-pure): Update out of date pass names.

(cherry picked from commit 4d486bd378b409c2a96b3e9af36534aa8eb5b3af)

diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el
index b2fd2f6882687c01e14eac7464da716b957a65ff..5deff03fd846857486051e31c0cc9e05905856b2 100644 (file)
--- a/test/src/comp-tests.el
+++ b/test/src/comp-tests.el
@@ -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)