Current File : //usr/local/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!\302C\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\314 D\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\320 D\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\325 E\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)
Mini Shell