;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303\304\"\207" [require macroexp cl-lib byte-compile "bytecomp"] 3) #@3 * (defvar disassemble-column-1-indent 8 (#$ . -194)) #@3 * (defvar disassemble-column-2-indent 10 (#$ . -252)) #@3 * (defvar disassemble-recursive-indent 3 (#$ . -311)) #@325 Print disassembled code for OBJECT in (optional) BUFFER. OBJECT can be a symbol defined as a function, or a function itself (a lambda expression or a compiled-function object). If OBJECT is not already compiled, we compile it, but do not redefine OBJECT if it is a symbol. (fn OBJECT &optional BUFFER INDENT INTERACTIVE-P) (defalias 'disassemble #[1025 ":\203\306!\204\307\310E\262\204\311\262\212\211\204!\204Xr\312\313!q\210p\314 \210\310\211\315\211\315\316 \210\317\320!\210+\211\313q\210\321?#\210\322!\210)\266\202aq\210\321\310#\210)\310\207" [default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only functionp lambda nil 0 get-buffer-create "*Disassemble*" kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook disassemble-internal internal-temp-output-buffer-show standard-output] 11 (#$ . 372) (byte-code "\301 \211\205 \302!\303\304\305\306\"\307\310\311\211&!\311\312\310F\207" [obarray function-called-at-point symbol-name intern completing-read format-prompt "Disassemble function" fboundp t nil 0] 11)]) #@33 (fn OBJ INDENT INTERACTIVE-P) (defalias 'disassemble-internal #[771 "\3042\3059\205\306!\262\305\307\"\262\310!\203\202\311\312!\203}\312!\203}\313\314!\210\315\316\305p\317\320\321\322 !!&\210eb\210\323\324\325\326\327=\205M\330\331\332\f!\333\317#\334R!P!\210\335 \210e`|\210\323\336\305\317\337$\203p\340\224d|\210\341 \210\317\342\304\305\"\210\202\202\343\344\"\210\242\345=\203\220\317\262A\262\242\346=\203\236\347\305E\262:\203\324\350!\204\256\343\351!\210\346\236\204\324\203\306\352\203\302\353\202\303\354\"\210\355!\262\203\324\352\356!\210:\203\352\357!\262A\262A\262\202\376\360!\203\372\357!\262\202\376\343\361!\210\340U\203/j\210\362\363\204\203\364\202\365\203\366\202\365\203+\362\367\"\202,\365$c\210:\203?@;\205D@\202D\370\317\"\211\203u\211;\203u:\203XA\262j\210\371\372p\"\210\373\374\"\203p\211\340\211\224O\375P\262\211\374\261\210\210j\210\376c\210\377p\"\210\374c\210\201@!\211\203\315\211A@\262\242\242\201A=\203\243A\262j\210\201Bc\210\211\242\346=\203\302\374c\210\201C\n\\\"\210\202\312\317\377p\"\210)\374c\210\210:\203\351\346\236\203\351\201C\346\236\"\266\202\360!\203\375\201C\"\266\202\201Dc\210\317\377\201E!p\"\210)\266\211\205\352\365!0\207" [system-type buffer-read-only disassemble-recursive-indent print-escape-newlines --cl-block-disassemble-internal-- nil indirect-function autoload-do-load subrp fboundp subr-native-elisp-p require comp call-process "objdump" t "-S" native-comp-unit-file subr-native-comp-unit re-search-forward "^.*" regexp-quote "<" darwin "_" comp-c-func-name subr-name "F" ">:" beginning-of-line "^.*<.*>:" 2 0 asm-mode throw error "Can't disassemble #" macro byte-code lambda functionp "Not a function" message "Compiling %s's definition..." "Compiling definition..." byte-compile "Done compiling. Disassembling..." help-function-arglist byte-code-function-p "Compilation failed" format "byte code%s%s%s:\n" " for" "" " macro" " %s" documentation princ " doc: " string-match "\n" " ..." " args: " prin1 interactive-form interactive " interactive: " disassemble-1 "Uncompiled body: " macroexp-progn] 15 (#$ . 1516)]) #@136 Print the byte-code call OBJ in the current buffer. OBJ should be a call to BYTE-CODE generated by the byte compiler. (fn OBJ INDENT) (defalias 'disassemble-1 #[514 "\305\211:\203A@\262AA@\262\202#\306!\210\307H\262\310H\262\311!\203-\312\313!\210\314\"\305\211\211\211\315\305\316\236\211\262\203TAT\211\262\240\210>A\262\2029\266\203\323\305\262@\247\203k@\262A\262@@\262@A\262A\262j\210\316=\203\226\211\203\215\317\320\"c\210\321@!c\210\202V\211\203\240\317\322\"c\210\\j\210\203\300\323\324\325!\211\262\"\203\300\326\305O\262\202\303\327\262\330=\203\314\331c\210c\210\332 \333$j\210\334c\210\n>\203\353\321A@!c\210\202\315\335\267\202\300\321!c\210\202\315\336@p\"\210\202\315@\262A\242\242\337=\203(\317\340\341!\"c\210\342C\343\344\345\"\"\266\346c\210\202\315\347!\204a:\203?\350!\203?\351\236\204a\242\352=\203\211\347A!\204aA:\203\211\350A!\203\211\351A\236\203\211\347!\203m\353c\210\202|\350!\203y\354c\210\202|\355c\210\356 \\T\305#\210\202\315\242\351=\203\236\357c\210\360 \\\"\210\202\315\242\242\351=\203\265\361c\210\362\344\363\n\"\"\210\202\315\342\336p\"\210)\202\315\n>\203\315\321A@!c\210\364c\210\202V\266\305\207" [disassemble-column-1-indent disassemble-column-2-indent byte-goto-ops disassemble-recursive-indent print-escape-newlines nil fetch-bytecode 1 2 multibyte-string-p cl--assertion-failed (not (multibyte-string-p bytes)) byte-decompile-bytecode 0 TAG format "%d:" int-to-string "%d" string-match "^byte-" symbol-name 5 "" byte-constant2 " #### shouldn't have seen constant2 here!\n " + -1 " " #s(hash-table size 15 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (byte-call 241 byte-unbind 241 byte-listN 241 byte-concatN 241 byte-insertN 241 byte-stack-ref 241 byte-stack-set 241 byte-stack-set2 241 byte-discardN 241 byte-discardN-preserve-tos 241 byte-varref 249 byte-varset 249 byte-varbind 249 byte-constant 258 byte-constant2 258)) prin1 byte-switch "" byte-code-function-p functionp byte-code macro "\n" "" "\n" disassemble-internal "\n" disassemble-1 "(...)\n" mapc #[257 "\302\300 \\\"\207" [V0 disassemble-recursive-indent disassemble-1] 5 "\n\n(fn OBJ)"] "\n"] 15 (#$ . 3796)]) (provide 'disass)