diff options
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/comp-tests.el | 3 |
1 files changed, 3 insertions, 0 deletions
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." | |||
| 629 | (ert-deftest comp-tests-tco () | 629 | (ert-deftest comp-tests-tco () |
| 630 | "Check for tail recursion elimination." | 630 | "Check for tail recursion elimination." |
| 631 | (let ((comp-speed 3) | 631 | (let ((comp-speed 3) |
| 632 | ;; Disable ipa-pure otherwise `comp-tests-tco-f' gets | ||
| 633 | ;; optimized-out. | ||
| 634 | (comp-disabled-passes '(comp-ipa-pure)) | ||
| 632 | (comp-post-pass-hooks '((comp-tco comp-tests-tco-checker) | 635 | (comp-post-pass-hooks '((comp-tco comp-tests-tco-checker) |
| 633 | (comp-final comp-tests-tco-checker)))) | 636 | (comp-final comp-tests-tco-checker)))) |
| 634 | (eval '(defun comp-tests-tco-f (a b count) | 637 | (eval '(defun comp-tests-tco-f (a b count) |