;ELC ;;; Compiled ;;; in Emacs version 27.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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (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 (#$ . -518)) #@3 * (defvar disassemble-column-2-indent 10 (#$ . -576)) #@3 * (defvar disassemble-recursive-indent 3 (#$ . -635)) #@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 (#$ . 696) (byte-code "\301 \211\203 \302\303\"\202\304\205\305!\306\307\310\311\312\211&!\312\313\311F\207" [obarray function-called-at-point format "Disassemble function (default %s): " "Disassemble function: " symbol-name intern completing-read fboundp t nil 0] 12)]) #@33 (fn OBJ INDENT INTERACTIVE-P) (defalias 'disassemble-internal #[771 "\3029\205\f\303!\262\302\304\"\262\305!\203 \306\307\"\210\242\310=\203.\311\262A\262\242\312=\203<\313\302E\262:\203r\314!\204L\306\315!\210\312\236\204r\203d\316\203`\317\202a\320\"\210\321!\262\203r\316\322!\210:\203\210\323!\262A\262A\262\202\234\324!\203\230\323!\262\202\234\306\325!\210\326U\203\315j\210\327\330\204\257\203\263\331\202\264\332\203\274\333\202\275\332\203\311\327\334\"\202\312\332$c\210:\203\335@;\205\342@\202\342\335\311\"\211\203\211;\203:\203\366A\262j\210\336\337p\"\210\340\341\"\203\342\326\211\224#\343P\262\211\341\261\210\210j\210\344c\210\345p\"\210\341c\210\346!\211\203d\211A@\262\242\242\347=\203>A\262j\210\350c\210\211\242\312=\203Y\341c\210\351\\\"\210\202a\311\345p\"\210)\341c\210\210:\203}\312\236\203}\351\312\236\"\210\202\234\324!\203\216\351\"\210\202\234\352c\210\311\345\353!p\"\210)\266\211\205\245\316\332!\207" [disassemble-recursive-indent print-escape-newlines nil indirect-function autoload-do-load subrp error "Can't disassemble #" macro t 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" 0 format "byte code%s%s%s:\n" " for" "" " macro" " %s" documentation princ " doc: " string-match "\n" substring " ..." " args: " prin1 interactive-form interactive " interactive: " disassemble-1 "Uncompiled body: " macroexp-progn] 13 (#$ . 1891)]) #@137 Prints 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\345\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\327\"\262\202\303\330\262\331=\203\314\332c\210c\210\333 \334$j\210\335c\210\n>\203\353\321A@!c\210\202\337\336\267\202\322\321!c\210\202\337\337@p\"\210\202\337@\262A\242\242\340=\2031\317\341\342!\"c\210\343C\344\345\346\347\350\351!\352\"\353\354%\"\266\355c\210\202\337\356!\204j:\203H\357!\203H\360\236\204j\242\361=\203\223\356A!\204jA:\203\223\357A!\203\223\360A\236\203\223\356!\203v\362c\210\202\205\357!\203\202\363c\210\202\205\364c\210\365\333\n\307#\305#\210\202\337\242\360=\203\250\366c\210\367 \\\"\210\202\337\242\242\360=\203\307\370c\210\371\345\372\373\350\351 !\374\"\327\375%\"\210\202\337\343\337p\"\210)\202\337\n>\203\337\321A@!c\210\376c\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 substring 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" [disassemble-recursive-indent disassemble-1] "\n\n(fn OBJ)" "\n"] 17 (#$ . 3594)]) (provide 'disass)