[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

feature/native-comp 5f37c18 8/8: * test/src/comp-tests.el (comp-tests-bo

From: Andrea Corallo
Subject: feature/native-comp 5f37c18 8/8: * test/src/comp-tests.el (comp-tests-bootstrap): Print compilation time.
Date: Mon, 14 Sep 2020 17:22:57 -0400 (EDT)

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

    * 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 b147bd6..220bf1c 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))))))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]