From 5f37c18581ea1a36e9dcb5d4ac741aafb0398ebe Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Mon, 14 Sep 2020 22:59:41 +0200 Subject: [PATCH] * test/src/comp-tests.el (comp-tests-bootstrap): Print compilation time. --- test/src/comp-tests.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el index b147bd6789c..220bf1c7736 100644 --- a/test/src/comp-tests.el +++ b/test/src/comp-tests.el @@ -58,11 +58,15 @@ Check that the resulting binaries do not differ." (load (concat comp-src "c") nil nil t t)) (should-not (subr-native-elisp-p (symbol-function #'native-compile))) (message "Compiling stage1...") - (let ((comp1-eln (native-compile comp1-src))) + (let* ((t0 (current-time)) + (comp1-eln (native-compile comp1-src))) + (message "Done in %d secs" (float-time (time-since t0))) (load comp1-eln nil nil t t) (should (subr-native-elisp-p (symbol-function 'native-compile))) (message "Compiling stage2...") - (let ((comp2-eln (native-compile comp2-src))) + (let ((t0 (current-time)) + (comp2-eln (native-compile comp2-src))) + (message "Done in %d secs" (float-time (time-since t0))) (message "Comparing %s %s" comp1-eln comp2-eln) (should (= (call-process "cmp" nil nil nil comp1-eln comp2-eln) 0)))))) -- 2.39.5