branch: externals/elisp-benchmarks
commit 3dc675c0b41183cb2d9f99f3dec9f4fd93266339
Author: Andrea Corallo <a...@sdf.org>
Commit: Andrea Corallo <a...@sdf.org>
Revert "Make `comp-speed' explicit in each benchmark"
This reverts commit 026b64caf23dd63621cbd7e81d8856de1cc30598.
Reason: we prefer to have comp-speed not explicit in benchmarks when
possible.
---
benchmarks/bubble-no-cons.el | 4 ----
benchmarks/bubble.el | 4 ----
benchmarks/dhrystone.el | 4 ----
benchmarks/fibn-rec.el | 4 ----
benchmarks/fibn-tc.el | 4 ----
benchmarks/fibn.el | 4 ----
benchmarks/flet.el | 4 ----
benchmarks/inclist-type-hints.el | 4 ----
benchmarks/inclist.el | 4 ----
benchmarks/listlen-tc.el | 4 ----
benchmarks/map-closure.el | 4 ----
benchmarks/nbody.el | 4 ----
benchmarks/pcase.el | 6 +-----
benchmarks/pidigits.el | 4 ----
elisp-benchmarks.el | 3 +++
15 files changed, 4 insertions(+), 57 deletions(-)
diff --git a/benchmarks/bubble-no-cons.el b/benchmarks/bubble-no-cons.el
index 941b734..85bd8f5 100644
--- a/benchmarks/bubble-no-cons.el
+++ b/benchmarks/bubble-no-cons.el
@@ -43,7 +43,3 @@
do (elb-bubble-no-cons l)))
(provide 'elb-bubble)
-
-;; Local Variables:
-;; comp-speed: 3
-;; End:
diff --git a/benchmarks/bubble.el b/benchmarks/bubble.el
index 5b7400a..d7101b1 100644
--- a/benchmarks/bubble.el
+++ b/benchmarks/bubble.el
@@ -46,7 +46,3 @@
do (elb-bubble l)))
(provide 'elb-bubble)
-
-;; Local Variables:
-;; comp-speed: 3
-;; End:
diff --git a/benchmarks/dhrystone.el b/benchmarks/dhrystone.el
index 3cd09a8..a3bce4b 100644
--- a/benchmarks/dhrystone.el
+++ b/benchmarks/dhrystone.el
@@ -303,7 +303,3 @@
(dhrystone 1000000))
(provide 'elb-dhrystone)
-
-;; Local Variables:
-;; comp-speed: 3
-;; End:
diff --git a/benchmarks/fibn-rec.el b/benchmarks/fibn-rec.el
index c61cada..a8e4b6c 100644
--- a/benchmarks/fibn-rec.el
+++ b/benchmarks/fibn-rec.el
@@ -31,7 +31,3 @@
(elb-fib 37))
(provide 'fibn-rec)
-
-;; Local Variables:
-;; comp-speed: 3
-;; End:
diff --git a/benchmarks/fibn-tc.el b/benchmarks/fibn-tc.el
index 4e97e79..83d571b 100644
--- a/benchmarks/fibn-tc.el
+++ b/benchmarks/fibn-tc.el
@@ -33,7 +33,3 @@
do (elb-fibn-tc 1 0 80)))
(provide 'fibn-tc)
-
-;; Local Variables:
-;; comp-speed: 3
-;; End:
diff --git a/benchmarks/fibn.el b/benchmarks/fibn.el
index 9a1449a..af53477 100644
--- a/benchmarks/fibn.el
+++ b/benchmarks/fibn.el
@@ -38,7 +38,3 @@
(elb-fibn 3000000 80))
(provide 'elb-fibn)
-
-;; Local Variables:
-;; comp-speed: 3
-;; End:
diff --git a/benchmarks/flet.el b/benchmarks/flet.el
index 6bd5743..032980b 100644
--- a/benchmarks/flet.el
+++ b/benchmarks/flet.el
@@ -39,7 +39,3 @@
do (elb-flet elb-flet-list)))
(provide 'elb-flet)
-
-;; Local Variables:
-;; comp-speed: 3
-;; End:
diff --git a/benchmarks/inclist-type-hints.el b/benchmarks/inclist-type-hints.el
index 3f6d8db..660f4e4 100644
--- a/benchmarks/inclist-type-hints.el
+++ b/benchmarks/inclist-type-hints.el
@@ -42,7 +42,3 @@
(let ((l (copy-sequence elb-inclist-th-no-type-hints-list)))
(cl-loop repeat 10000
do (elb-inclist-th l))))
-
-;; Local Variables:
-;; comp-speed: 3
-;; End:
diff --git a/benchmarks/inclist.el b/benchmarks/inclist.el
index 1560d1e..63837cb 100644
--- a/benchmarks/inclist.el
+++ b/benchmarks/inclist.el
@@ -40,7 +40,3 @@
do (elb-inclist l))))
(provide 'elb-inclist)
-
-;; Local Variables:
-;; comp-speed: 3
-;; End:
diff --git a/benchmarks/listlen-tc.el b/benchmarks/listlen-tc.el
index 871f687..977605d 100644
--- a/benchmarks/listlen-tc.el
+++ b/benchmarks/listlen-tc.el
@@ -41,7 +41,3 @@
do (elb-listlen-tc elb-listlen-tc-list 0))))
(provide 'listlen-tc)
-
-;; Local Variables:
-;; comp-speed: 3
-;; End:
diff --git a/benchmarks/map-closure.el b/benchmarks/map-closure.el
index 84eb863..30fed05 100644
--- a/benchmarks/map-closure.el
+++ b/benchmarks/map-closure.el
@@ -42,7 +42,3 @@
do (elb-map-closure elb-map-closure-list)))
(provide 'elb-map-closure)
-
-;; Local Variables:
-;; comp-speed: 3
-;; End:
diff --git a/benchmarks/nbody.el b/benchmarks/nbody.el
index 2beff22..e53e50d 100644
--- a/benchmarks/nbody.el
+++ b/benchmarks/nbody.el
@@ -140,7 +140,3 @@
(elb-nbody 300000))
(provide 'elb-nbody)
-
-;; Local Variables:
-;; comp-speed: 3
-;; End:
diff --git a/benchmarks/pcase.el b/benchmarks/pcase.el
index 5bb0e36..110027a 100644
--- a/benchmarks/pcase.el
+++ b/benchmarks/pcase.el
@@ -29,7 +29,7 @@
;;
;; We should probably change GNUmakefile instead so it doesn't forcefully
;; add the directory to `load-path', e.g. make this dependent on the
- ;; presence of special file like `.dont-add-to-load-path'.
+ ;; presence of special file like `.dont-add-to-load-path'.
(when load-file-name
(setq load-path (remove (file-name-directory load-file-name) load-path))))
@@ -66,7 +66,3 @@
do (elb-pcase elb-pcase-list)))
(provide 'elb-pcase)
-
-;; Local Variables:
-;; comp-speed: 3
-;; End:
diff --git a/benchmarks/pidigits.el b/benchmarks/pidigits.el
index 2e24c62..1254dd9 100644
--- a/benchmarks/pidigits.el
+++ b/benchmarks/pidigits.el
@@ -70,7 +70,3 @@
do (elb-pidigits 500)))
(provide 'elb-pidigits)
-
-;; Local Variables:
-;; comp-speed: 3
-;; End:
diff --git a/elisp-benchmarks.el b/elisp-benchmarks.el
index 66bb6f0..0d7eaaa 100644
--- a/elisp-benchmarks.el
+++ b/elisp-benchmarks.el
@@ -97,6 +97,9 @@ RECOMPILE all the benchmark folder when non nil."
collect (file-name-base f))
(mapcar #'file-name-base sources))
initially
+ (when native-comp
+ (require 'comp)
+ (setf comp-speed 3))
;; Compile
(when recompile
(mapc (lambda (f)
