scratch/elisp-benchmarks f5834702781 23/54: Make `comp-speed' explicit in each benchmark

[Pip Cet]

branch: scratch/elisp-benchmarks
commit f5834702781b61ca4db2d008ade984cedd5d7ef7
Author: Andrea Corallo <andrea.corallo@arm.com>
Commit: Andrea Corallo <andrea.corallo@arm.com>

    Make `comp-speed' explicit in each benchmark
    
            * elisp-benchmarks.el (elisp-benchmarks-run): Do not hardcode
            `comp-speed'.
            * benchmarks/pidigits.el: Set `comp-speed' as buffer local
            variable.
            * benchmarks/pcase.el: Likewise.
            * benchmarks/nbody.el: Likewise.
            * benchmarks/map-closure.el: Likewise.
            * benchmarks/listlen-tc.el: Likewise.
            * benchmarks/inclist.el: Likewise.
            * benchmarks/inclist-type-hints.el: Likewise.
            * benchmarks/flet.el: Likewise.
            * benchmarks/fibn.el: Likewise.
            * benchmarks/fibn-tc.el: Likewise.
            * benchmarks/fibn-rec.el: Likewise.
            * benchmarks/dhrystone.el: Likewise.
            * benchmarks/bubble.el: Likewise.
            * benchmarks/bubble-no-cons.el: Likewise.
---
 benchmarks/benchmarks/bubble-no-cons.el     | 4 ++++
 benchmarks/benchmarks/bubble.el             | 4 ++++
 benchmarks/benchmarks/dhrystone.el          | 4 ++++
 benchmarks/benchmarks/fibn-rec.el           | 4 ++++
 benchmarks/benchmarks/fibn-tc.el            | 4 ++++
 benchmarks/benchmarks/fibn.el               | 4 ++++
 benchmarks/benchmarks/flet.el               | 4 ++++
 benchmarks/benchmarks/inclist-type-hints.el | 4 ++++
 benchmarks/benchmarks/inclist.el            | 4 ++++
 benchmarks/benchmarks/listlen-tc.el         | 4 ++++
 benchmarks/benchmarks/map-closure.el        | 4 ++++
 benchmarks/benchmarks/nbody.el              | 4 ++++
 benchmarks/benchmarks/pcase.el              | 6 +++++-
 benchmarks/benchmarks/pidigits.el           | 4 ++++
 benchmarks/elisp-benchmarks.el              | 3 ---
 15 files changed, 57 insertions(+), 4 deletions(-)

diff --git a/benchmarks/benchmarks/bubble-no-cons.el 
b/benchmarks/benchmarks/bubble-no-cons.el
index 85bd8f59474..941b734f076 100644
--- a/benchmarks/benchmarks/bubble-no-cons.el
+++ b/benchmarks/benchmarks/bubble-no-cons.el
@@ -43,3 +43,7 @@
           do (elb-bubble-no-cons l)))
 
 (provide 'elb-bubble)
+
+;; Local Variables:
+;; comp-speed: 3
+;; End:
diff --git a/benchmarks/benchmarks/bubble.el b/benchmarks/benchmarks/bubble.el
index d7101b1b99b..5b7400a4b5a 100644
--- a/benchmarks/benchmarks/bubble.el
+++ b/benchmarks/benchmarks/bubble.el
@@ -46,3 +46,7 @@
           do (elb-bubble l)))
 
 (provide 'elb-bubble)
+
+;; Local Variables:
+;; comp-speed: 3
+;; End:
diff --git a/benchmarks/benchmarks/dhrystone.el 
b/benchmarks/benchmarks/dhrystone.el
index a3bce4b3905..3cd09a85c9f 100644
--- a/benchmarks/benchmarks/dhrystone.el
+++ b/benchmarks/benchmarks/dhrystone.el
@@ -303,3 +303,7 @@
   (dhrystone 1000000))
 
 (provide 'elb-dhrystone)
+
+;; Local Variables:
+;; comp-speed: 3
+;; End:
diff --git a/benchmarks/benchmarks/fibn-rec.el 
b/benchmarks/benchmarks/fibn-rec.el
index a8e4b6c9681..c61cadae7d4 100644
--- a/benchmarks/benchmarks/fibn-rec.el
+++ b/benchmarks/benchmarks/fibn-rec.el
@@ -31,3 +31,7 @@
   (elb-fib 37))
 
 (provide 'fibn-rec)
+
+;; Local Variables:
+;; comp-speed: 3
+;; End:
diff --git a/benchmarks/benchmarks/fibn-tc.el b/benchmarks/benchmarks/fibn-tc.el
index 83d571beee7..4e97e79391b 100644
--- a/benchmarks/benchmarks/fibn-tc.el
+++ b/benchmarks/benchmarks/fibn-tc.el
@@ -33,3 +33,7 @@
           do (elb-fibn-tc 1 0 80)))
 
 (provide 'fibn-tc)
+
+;; Local Variables:
+;; comp-speed: 3
+;; End:
diff --git a/benchmarks/benchmarks/fibn.el b/benchmarks/benchmarks/fibn.el
index af53477600b..9a1449a785c 100644
--- a/benchmarks/benchmarks/fibn.el
+++ b/benchmarks/benchmarks/fibn.el
@@ -38,3 +38,7 @@
   (elb-fibn 3000000 80))
 
 (provide 'elb-fibn)
+
+;; Local Variables:
+;; comp-speed: 3
+;; End:
diff --git a/benchmarks/benchmarks/flet.el b/benchmarks/benchmarks/flet.el
index 032980b8bf2..6bd57437746 100644
--- a/benchmarks/benchmarks/flet.el
+++ b/benchmarks/benchmarks/flet.el
@@ -39,3 +39,7 @@
           do (elb-flet elb-flet-list)))
 
 (provide 'elb-flet)
+
+;; Local Variables:
+;; comp-speed: 3
+;; End:
diff --git a/benchmarks/benchmarks/inclist-type-hints.el 
b/benchmarks/benchmarks/inclist-type-hints.el
index 660f4e44ecf..3f6d8db1359 100644
--- a/benchmarks/benchmarks/inclist-type-hints.el
+++ b/benchmarks/benchmarks/inclist-type-hints.el
@@ -42,3 +42,7 @@
   (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/benchmarks/inclist.el b/benchmarks/benchmarks/inclist.el
index 63837cbfaeb..1560d1e3bd1 100644
--- a/benchmarks/benchmarks/inclist.el
+++ b/benchmarks/benchmarks/inclist.el
@@ -40,3 +40,7 @@
             do (elb-inclist l))))
 
 (provide 'elb-inclist)
+
+;; Local Variables:
+;; comp-speed: 3
+;; End:
diff --git a/benchmarks/benchmarks/listlen-tc.el 
b/benchmarks/benchmarks/listlen-tc.el
index 977605d5fe8..871f687719a 100644
--- a/benchmarks/benchmarks/listlen-tc.el
+++ b/benchmarks/benchmarks/listlen-tc.el
@@ -41,3 +41,7 @@
             do (elb-listlen-tc elb-listlen-tc-list 0))))
 
 (provide 'listlen-tc)
+
+;; Local Variables:
+;; comp-speed: 3
+;; End:
diff --git a/benchmarks/benchmarks/map-closure.el 
b/benchmarks/benchmarks/map-closure.el
index 30fed05cc26..84eb863894a 100644
--- a/benchmarks/benchmarks/map-closure.el
+++ b/benchmarks/benchmarks/map-closure.el
@@ -42,3 +42,7 @@
           do (elb-map-closure elb-map-closure-list)))
 
 (provide 'elb-map-closure)
+
+;; Local Variables:
+;; comp-speed: 3
+;; End:
diff --git a/benchmarks/benchmarks/nbody.el b/benchmarks/benchmarks/nbody.el
index e53e50daca7..2beff229210 100644
--- a/benchmarks/benchmarks/nbody.el
+++ b/benchmarks/benchmarks/nbody.el
@@ -140,3 +140,7 @@
   (elb-nbody 300000))
 
 (provide 'elb-nbody)
+
+;; Local Variables:
+;; comp-speed: 3
+;; End:
diff --git a/benchmarks/benchmarks/pcase.el b/benchmarks/benchmarks/pcase.el
index 110027accde..5bb0e36280e 100644
--- a/benchmarks/benchmarks/pcase.el
+++ b/benchmarks/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,3 +66,7 @@
           do (elb-pcase elb-pcase-list)))
 
 (provide 'elb-pcase)
+
+;; Local Variables:
+;; comp-speed: 3
+;; End:
diff --git a/benchmarks/benchmarks/pidigits.el 
b/benchmarks/benchmarks/pidigits.el
index de1eb42a301..135b086a467 100644
--- a/benchmarks/benchmarks/pidigits.el
+++ b/benchmarks/benchmarks/pidigits.el
@@ -69,3 +69,7 @@
           do (elb-pidigits 500)))
 
 (provide 'elb-pidigits)
+
+;; Local Variables:
+;; comp-speed: 3
+;; End:
diff --git a/benchmarks/elisp-benchmarks.el b/benchmarks/elisp-benchmarks.el
index 7e1d0c32241..f7a2c7621dc 100644
--- a/benchmarks/elisp-benchmarks.el
+++ b/benchmarks/elisp-benchmarks.el
@@ -97,9 +97,6 @@ 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)