;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:58 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/emacs-lisp/benchmark.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@60 Return the time in seconds elapsed for execution of FORMS.
(defalias 'benchmark-elapse '(macro . #[(&rest forms) "\303\304!\303\305!\306	D\307	\310BB\311\n\307\312BB\313\314	EDD\"*BBB\207" [t2 t1 forms make-symbol "t1" "t2" let setq ((current-time)) append ((current-time)) float-time time-subtract] 10 (#$ . 563)]))
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put benchmark-elapse edebug-form-spec t lisp-indent-function 0] 4)
#@347 Time execution of FORMS.
If REPETITIONS is supplied as a number, run forms that many times,
accounting for the overhead of the resulting loop.  Otherwise run
FORMS once.
Return a list of the total elapsed time for execution, the number of
garbage collections that ran, and the time taken by garbage collection.
See also `benchmark-run-compiled'.
(defalias 'benchmark-run '(macro . #[(&optional repetitions &rest forms) "\305!\204\f	B\306\307\310!\307\311!\307\312!\313\n\314B\315BD\316\306V\203<\317\320\321\fD	BBD\320\321\fDDDE\202?\320	B\317\322E\317\323\nEFE+\207" [repetitions forms gc gcs i natnump 1 make-symbol "i" "gcs" "gc" let (gc-elapsed) (gcs-done) list - benchmark-elapse dotimes gcs-done gc-elapsed] 9 (#$ . 1016)]))
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put benchmark-run lisp-indent-function 1 edebug-form-spec t] 4)
#@240 Time execution of compiled version of FORMS.
This is like `benchmark-run', but what is timed is a funcall of the
byte code obtained by wrapping FORMS in a `lambda' and compiling the
result.  The overhead of the `lambda's is accounted for.
(defalias 'benchmark-run-compiled '(macro . #[(&optional repetitions &rest forms) "\306!\204\f	B\307\310\311!\310\312!\310\313!\314\315\316	BB!\314\317!\320\f\321B
\322BD\323\307V\203O\324\325\326D\327DED\325\326D\327\nDEDE\202T\325\327DD\324\330
E\324\331\fEFE-\207" [repetitions forms lambda-code code gc gcs natnump 1 make-symbol "i" "gcs" "gc" byte-compile lambda nil (lambda nil) let (gc-elapsed) (gcs-done) list - benchmark-elapse dotimes funcall gcs-done gc-elapsed i] 10 (#$ . 1890)]))
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put benchmark-run-compiled lisp-indent-function 1 edebug-form-spec t] 4)
#@194 Print the time taken for REPETITIONS executions of FORM.
Interactively, REPETITIONS is taken from the prefix arg.
For non-interactive use see also `benchmark-run' and
`benchmark-run-compiled'.
(defalias 'benchmark #[(repetitions form) "\303\304	E!\305\nA@!\203\306\307\n@\"\202\"\306\310\n@\311\n8\nA@$)\207" [repetitions form result eval benchmark-run zerop message "Elapsed time: %fs" "Elapsed time: %fs (%fs in %d GCs)" 2] 5 (#$ . 2782) "p\nxForm: "])
(provide 'benchmark)