diff options
author | Andrea Corallo <akrl@sdf.org> | 2021-05-06 10:12:48 +0200 |
---|---|---|
committer | Andrea Corallo <akrl@sdf.org> | 2021-05-06 17:16:07 +0200 |
commit | 43f29696adc37ae75d87cd4b86d78e830e01e018 (patch) | |
tree | c89f999768b233314c40652bf210dc79a2a7e194 /test/src/comp-tests.el | |
parent | 643cc3fa144e94b33a7b8f1d4965cec7b383ed35 (diff) | |
download | emacs-43f29696adc37ae75d87cd4b86d78e830e01e018.tar.gz |
Rename comp-speed -> native-comp-speed
* lisp/emacs-lisp/bytecomp.el (byte-compile-from-buffer): Rename
comp-speed -> native-comp-speed.
* lisp/emacs-lisp/comp.el (native-comp-speed, comp-ctxt, comp-func,
comp-spill-lap-function, comp-trampoline-compile,
comp-run-async-workers): Likewise.
* src/comp.c (emit_ctxt_code, load_comp_unit, syms_of_comp): Likewise.
* test/src/comp-tests.el (comp-tests-tco, comp-tests-fw-prop-1)
(comp-tests-check-ret-type-spec, comp-tests-pure): Likewise.
Diffstat (limited to 'test/src/comp-tests.el')
-rw-r--r-- | test/src/comp-tests.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el index e3e4bdd9b61..9e9097c994a 100644 --- a/test/src/comp-tests.el +++ b/test/src/comp-tests.el @@ -786,7 +786,7 @@ Return a list of results." (comp-deftest tco () "Check for tail recursion elimination." - (let ((comp-speed 3) + (let ((native-comp-speed 3) ;; Disable ipa-pure otherwise `comp-tests-tco-f' gets ;; optimized-out. (comp-disabled-passes '(comp-ipa-pure)) @@ -814,7 +814,7 @@ Return a list of results." (comp-deftest fw-prop-1 () "Some tests for forward propagation." - (let ((comp-speed 2) + (let ((native-comp-speed 2) (comp-post-pass-hooks '((comp-final comp-tests-fw-prop-checker-1)))) (eval '(defun comp-tests-fw-prop-1-f () (let* ((a "xxx") @@ -828,7 +828,7 @@ Return a list of results." (defun comp-tests-check-ret-type-spec (func-form ret-type) (let ((lexical-binding t) - (comp-speed 2) + (native-comp-speed 2) (f-name (cl-second func-form))) (eval func-form t) (native-compile f-name) @@ -1399,7 +1399,7 @@ Return a list of results." (comp-deftest pure () "Some tests for pure functions optimization." - (let ((comp-speed 3) + (let ((native-comp-speed 3) (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"))) |