branch: externals/elisp-benchmarks
commit e106c8df18d43446c2f02d445727dc6564ba2485
Author: Andrea Corallo <a...@sdf.org>
Commit: Andrea Corallo <a...@sdf.org>
Reduce test setup + increase `elb-listlen-tc-len' lenght
Try to measure more the recursive call we are interested in than the
test setup.
---
benchmarks/listlen-tc.el | 12 +++++++-----
1 file changed, 7 insertions(+), 5 deletions(-)
diff --git a/benchmarks/listlen-tc.el b/benchmarks/listlen-tc.el
index 02327e5..977605d 100644
--- a/benchmarks/listlen-tc.el
+++ b/benchmarks/listlen-tc.el
@@ -1,6 +1,6 @@
;; -*- lexical-binding: t; -*-
-;; Copyright (C) 2019 Free Software Foundation, Inc.
+;; Copyright (C) 2019-2020 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
@@ -23,7 +23,7 @@
(require 'cl-lib)
-(defvar elb-listlen-tc-len 300)
+(defvar elb-listlen-tc-len 10000)
(defvar elb-listlen-tc-list
(mapcar #'random (make-list elb-listlen-tc-len 100)))
@@ -34,8 +34,10 @@
(elb-listlen-tc (cdr l) n)))
(defun elb-listlen-tc-entry ()
- (let ((l (copy-sequence elb-listlen-tc-list)))
- (cl-loop repeat 350000
- do (elb-listlen-tc l 0))))
+ (let* ((n (+ 1000 elb-listlen-tc-len))
+ (max-lisp-eval-depth n)
+ (max-specpdl-size n))
+ (cl-loop repeat 10000
+ do (elb-listlen-tc elb-listlen-tc-list 0))))
(provide 'listlen-tc)
