Current File : //proc/thread-self/root/kunden/usr/share/emacs/27.2/lisp/emacs-lisp/benchmark.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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.

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


#@78 Return the time in seconds elapsed for execution of FORMS.

(fn &rest FORMS)
(defalias 'benchmark-elapse '(macro . #[128 "\300\301!\302
C\303\304BB\305\306\307DDC\"BBB\207" [make-symbol "t1" let setq ((current-time)) append float-time time-since] 10 (#$ . 408)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put benchmark-elapse lisp-indent-function 0 put edebug-form-spec t] 5)
#@387 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'.

(fn &optional REPETITIONS &rest FORMS)
(defalias 'benchmark-run '(macro . #[384 "\300!\204
\203
9\204

B\262
\301\262\302\303!\302\304!\302\305!\306
\307B\310BD\3119\2046\301V\203P\312\313\314D\nBBD\313\314	\fDDDE\202T\313B\312\315E\312\316EFE\207" [natnump 1 make-symbol "i" "gcs" "gc" let (gc-elapsed) (gcs-done) list - benchmark-elapse dotimes gcs-done gc-elapsed] 14 (#$ . 816)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put benchmark-run lisp-indent-function 1 put edebug-form-spec t] 5)
#@280 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.

(fn &optional REPETITIONS &rest FORMS)
(defalias 'benchmark-run-compiled '(macro . #[384 "\300!\204
\203
9\204

B\262
\301\262\302\303!\302\304!\302\305!\306\307\310BB!\306\311!\312\313B\314BD\315	9\204A	\301V\203`\316\317\320\n
D\321	DED\317\320D\321	DEDE\202f\317\321DD\316\322	E\316\323	EFE\207" [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] 17 (#$ . 1714)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put benchmark-run-compiled lisp-indent-function 1 put edebug-form-spec t] 5)
#@268 Print the time taken for REPETITIONS executions of FORM.
Interactively, REPETITIONS is taken from the prefix arg, and
the command prompts for the form to benchmark.
For non-interactive use see also `benchmark-run' and
`benchmark-run-compiled'.

(fn REPETITIONS FORM)
(defalias 'benchmark #[514 "\300\301E\302\"\211A@\303U\203\304\305@\"\202\"\304\306@\3078A@$\207" [eval benchmark-run t 0 message "Elapsed time: %fs" "Elapsed time: %fs (%fs in %d GCs)" 2] 8 (#$ . 2610) "p\nxForm: "])
#@117 Evaluate BODY and message the time taken.
The return value is the value of the final form in BODY.

(fn &rest BODY)
(defalias 'benchmark-progn '(macro . #[128 "\300\301!\300\302!\300\303!\300\304!\305
\306B\307B\310B\311\nBDF\312\313\314\315DD\316\317\320\321\nE\322BB\323\324\320\325E\320\321
EF\326BBBFF\207" [make-symbol "value" "start" "gcs" "gc" let (gc-elapsed) (gcs-done) ((current-time)) progn message "Elapsed time: %fs%s" float-time time-since if > - gcs-done (0) format " (%fs in %d GCs)" gc-elapsed ("")] 18 (#$ . 3111)]))
(byte-code "\300\301\302\303#\210\304\301\305\306#\307\310!\207" [put benchmark-progn edebug-form-spec body function-put lisp-indent-function 0 provide benchmark] 4)