;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\210\300\303!\207" [require seq subr-x cl-lib] 2)
(defvar memory-report--type-size (make-hash-table))
#@205 Generate a report of how Emacs is using memory.

This report is approximate, and will commonly over-count memory
usage by variables, because shared data structures will usually
by counted more than once.
(defalias 'memory-report #[0 "\303\304!\210\305 \210\306\307!\210\310\300!\210\311\312\313\314!\210\315\316 \317 \320 \321 \322 %\312\323\211\313\324!\210\325 \210\326\327\330\331#c\210\211\203V\211@\211<\203J\211B\262\202O\211B\262
A\266\202\2027\210\332\333\"\211\203s\211@\334\335\336A!@#c\210
A\266\202\202[\210\337c\210\211\237\211\203\213\211@\211\337\261\210
A\266\202\202y\210)\266eb\207" [revert-buffer-function truncate-lines inhibit-read-only pop-to-buffer "*Memory Report*" special-mode button-mode 1 make-local-variable #[514 "\300 \207" [memory-report] 3 "\n\n(fn IGNORE-AUTO NOCONFIRM)"] t message "Gathering data..." append memory-report--garbage-collect memory-report--image-cache memory-report--symbol-plist memory-report--buffers memory-report--largest-variables nil "Gathering data...done" erase-buffer propertize "Estimated Emacs Memory Usage\n\n" face bold seq-sort #[514 "
A
AV\207" [] 4 "\n\n(fn E1 E2)"] format "%s  %s\n" memory-report--format "\n"] 10 (#$ . 221) nil])
#@50 Return the size of OBJECT in bytes.

(fn OBJECT)
(defalias 'memory-report-object-size #[257 "\301!\302U\203\303 \210\304\305\306\307\"\"\207" [memory-report--type-size hash-table-count 0 memory-report--garbage-collect memory-report--object-size make-hash-table :test eq] 5 (#$ . 1448)])
#@13 

(fn TYPE)
(defalias 'memory-report--size #[257 "\301
\"\206\301\302\"\207" [memory-report--type-size gethash object] 4 (#$ . 1745)])
#@14 

(fn ELEMS)
(defalias 'memory-report--set-size #[257 "\301\302\303\236A@#\266\301\304\305\236A@#\266\301\306\307\236A@#\266\301\310\311\236A@#\266\301\312\313\236A@#\266\301\314\315\236A@#\207" [memory-report--type-size puthash string strings cons conses symbol symbols object vectors float floats buffer buffers] 6 (#$ . 1890)])
(defalias 'memory-report--garbage-collect #[0 "\300 \301
!\210\302\303\302\"\303\304\"\\D\305\303\305\"\303\306\"\\D\307\303\307\"D\310\303\310\"D\311\303\311\"D\312\303\312\"D\313\303\314\"D\257\315\316\317\320\321\"\322#B\323\316\317\320\324\"\322#B\325\326\327\"r\211q\210\330\331\"\216\332\333\334\335#c\210\336\337\"\211\203\212\211@\340\341\342A@!\343\344@!!#c\210
A\266\202\202m\210\345 *\262
E\207" [garbage-collect memory-report--set-size strings memory-report--gc-elem string-bytes vectors vector-slots floats conses symbols intervals buffer-objects buffers "Overall Object Memory Usage" seq-reduce + mapcar #[257 "\211A@\3008_\207" [2] 4 "\n\n(fn ELEM)"] 0 "Reserved (But Unused) Object Memory" #[257 "\300
8\203\211A@\3008_\207\301\207" [3 0] 4 "\n\n(fn ELEM)"] generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] propertize "Object Storage\n\n" face bold seq-sort #[514 "
A@
A@V\207" [] 4 "\n\n(fn E1 E2)"] format "%s  %s\n" memory-report--format capitalize symbol-name buffer-string] 13])
(defalias 'memory-report--largest-variables #[0 "\301C\302\303\304\"\"\210\305\306\307\310#\311\312\313\314\242\"\315#B\316\317\320\"r\211q\210\303\321\"\216\305\322\323\324#c\210\325\326\327\242\"\301\211\330X\203b:\203b@\262
\211A\262\242\262
\331!\332\333!\334\261\210T\262A\262\2025\266\335 *\262
D\207" [obarray nil mapatoms make-closure #[257 "\301
!\205\302\303\304\305\"J\"\211\306V\205\300B\300\242B\240\262
\207" [V0 boundp memory-report--object-size make-hash-table :test eq 1000] 5 "\n\n(fn SYMBOL)"] propertize "Memory Used By Global Variables" help-echo "Upper bound; mutually overlapping data from different variables are counted several times" seq-reduce + mapcar cdr 0 generate-new-buffer " *temp*" t #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] "Largest Variables\n\n" face bold 1 seq-sort #[514 "
A
AV\207" [] 4 "\n\n(fn E1 E2)"] 20 memory-report--format "  " symbol-name "\n" buffer-string] 11])
(defalias 'memory-report--symbol-plist #[0 "\301\302\303\"\304C\305\306\307#\"\210\310
\242BC\207" [obarray make-hash-table :test eq 0 mapatoms make-closure #[257 "\301\211\242\302\300\303!\"\\\240\207" [V0 V1 memory-report--object-size symbol-plist] 7 "\n\n(fn SYMBOL)"] "Memory Used By Symbol Plists"] 7])
#@22 

(fn COUNTED VALUE)
(defalias 'memory-report--object-size #[514 "\300
\"\203	\301\207\302
\303#\210\304\"\207" [gethash 0 puthash t memory-report--object-size-1] 6 (#$ . 4618)])
(byte-code "\300\301\302\301\303\304#\305#\210\306\301\304\303\304\307%\210\306\301\304\310\304\311%\210\306\301\304\312\304\313%\210\306\301\304\314\304\315%\207" [defalias memory-report--object-size-1 cl-generic-define (_counted _value) nil "\n\n(fn COUNTED VALUE)" cl-generic-define-method #[514 "\300\207" [0] 3 "\n\n(fn COUNTED VALUE)"] (_ (value symbol)) #[514 "\301
\"\203	\302\207\303\304!\207" [obarray intern-soft 0 memory-report--size symbol] 5 "\n\n(fn _ VALUE)"] (_ (_value buffer)) #[514 "\300\301!\207" [memory-report--size buffer] 4 "\n\n(fn _ VALUE)"] (counted (value string)) #[514 "\300\301!\302!\\\303\304!\"\\\207" [memory-report--size string string-bytes memory-report--interval-size object-intervals] 7 "\n\n(fn COUNTED VALUE)"]] 6)
#@26 

(fn COUNTED INTERVALS)
(defalias 'memory-report--interval-size #[514 "\300\301!
G_\302\303\304\305\306\"\"\307#\\\207" [memory-report--size interval seq-reduce + mapcar make-closure #[257 "\301\300\3028\"\207" [V0 memory-report--object-size 2] 5 "\n\n(fn INTERVAL)"] 0] 9 (#$ . 5569)])
(byte-code "\300\301\302\303\302\304%\210\300\301\302\305\302\306%\210\300\301\302\307\302\310%\210\300\301\302\311\302\312%\207" [cl-generic-define-method memory-report--object-size-1 nil (counted (value list)) #[514 "\300\301\302!\203K

\\\262\303\304#\210@\203\"
\305@\"\\\262A\211\205E\211:\203;\306
\"?\205EA\202E\305\"\\\262\307\262\210\202
\207" [0 memory-report--size cons puthash t memory-report--object-size gethash nil] 9 "\n\n(fn COUNTED VALUE)"] (counted (value vector)) #[514 "\300\301!\300\302!G_\\\303\304
T\211\262\203,
GW\203,H\262
\305\"\\\262\202\f\266\207" [memory-report--size vector object -1 nil memory-report--object-size] 9 "\n\n(fn COUNTED VALUE)"] (counted (value hash-table)) #[514 "\300\301!\300\302!\303!_\\C\304\305\306#\"\210\211\242\207" [memory-report--size vector object hash-table-size maphash make-closure #[514 "\301\211\242\302\300\"\\\240\210\301\211\242\302\300\"\\\240\207" [V0 V1 memory-report--object-size] 7 "\n\n(fn KEY ELEM)"]] 8 "\n\n(fn COUNTED VALUE)"] (counted (value cl-structure-object)) #[514 "\300
!\301\302\303\304!\305\306\307$\310!\"#\207" [type-of apply + memory-report--size vector mapcar make-closure #[257 "\211@\303=\203	\304\207\305\300@\306\301\302\"\204\307\310\302\301D\"\210\311\302!\312=\203,\313\302\"\3018\2022\301\313\302\"H\262
\"\207" [V0 V1 V2 cl-tag-slot 0 memory-report--object-size cl-typep signal wrong-type-argument cl-struct-sequence-type list cl-struct-slot-offset] 8 "\n\n(fn SLOT)"] cl-struct-slot-info] 12 "\n\n(fn COUNTED VALUE)"]] 6)
#@14 

(fn BYTES)
(defalias 'memory-report--format #[257 "\211\300\245\262
\301
\302Y\203
\300\245\262\211A\262
\202\303\304@#\207" [1024.0 ("KiB" "MiB" "GiB" "TiB") 1024 format "%6.1f %s"] 6 (#$ . 7452)])
#@19 

(fn ELEMS TYPE)
(defalias 'memory-report--gc-elem #[514 "\211\236A@\300\2368_\207" [2] 6 (#$ . 7666)])
(defalias 'memory-report--buffers #[0 "\300\301\302 \"\303\304\305\300\306\"\307#B\310\311\312\"r\211q\210\313\314\"\216\315\316\317\320#c\210\321\322\323\"\324\211\325X\203[:\203[@\262
\211A\262\242\262
\326!\327\330\331!\332#\333\261\210T\262A\262\202*\266\334 *\262
D\207" [mapcar #[257 "\211\300!B\207" [memory-report--buffer] 4 "\n\n(fn BUFFER)"] buffer-list "Total Buffer Memory Usage" seq-reduce + cdr 0 generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] propertize "Largest Buffers\n\n" face bold 1 seq-sort #[514 "
A
AV\207" [] 4 "\n\n(fn E1 E2)"] nil 20 memory-report--format "  " button-buttonize buffer-name memory-report--buffer-details "\n" buffer-string] 13])
#@15 

(fn BUFFER)
(defalias 'memory-report--buffer-details #[257 "r\211q\210\300\301\302\303\304\303\305\306!\"\"#)\207" [apply message "Buffer text: %s; variables: %s; text properties: %s; overlays: %s" mapcar string-trim memory-report--format memory-report--buffer-data] 10 (#$ . 8537)])
#@15 

(fn BUFFER)
(defalias 'memory-report--buffer #[257 "\300\301\302!\303#\207" [seq-reduce + memory-report--buffer-data 0] 5 (#$ . 8831)])
#@15 

(fn BUFFER)
(defalias 'memory-report--buffer-data #[257 "r\211q\210\214~\210\300d!\300e![\\\301 \\)\302\303\304\305\306!\"\307#\310\311\312\313\"\314!\"\310\311\312\313\"\315 \"F)\207" [position-bytes gap-size seq-reduce + mapcar #[257 "\211:\203\211A\203\300\301\302\303\"A\"\207\304\207" [memory-report--object-size make-hash-table :test eq 0] 5 "\n\n(fn ELEM)"] buffer-local-variables 0 memory-report--object-size make-hash-table :test eq object-intervals overlay-lists] 8 (#$ . 8976)])
(defalias 'memory-report--image-cache #[0 "\300\301\302!\203\f\302 \202
\303BC\207" ["Total Image Cache Size" fboundp image-cache-size 0] 3])
(provide 'memory-report)