Current File : //proc/thread-self/root/kunden/usr/share/emacs/27.2/lisp/emacs-lisp/disass.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.

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


(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!\262
A\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\345
p\"\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\345
p\"\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 #<subr %s>" 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\203T
AT\211\262\240\210

>A\262
\2029\266\203\345
\305\262
@\247\203k@\262
A\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\210
c\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!\204j
A:\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 "<not-an-opcode>" 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 "<jump-table-%s (" hash-table-test t maphash make-byte-code 514 "\300\242\203\f\300\301\240\210\202\302c\210\303\304A@#c\207" vconcat vector [nil " " format "%s %s"] 6 "\n\n(fn VALUE TAG)" ")>" byte-code-function-p functionp byte-code macro "<compiled-function>\n" "<compiled lambda>" "<compiled macro>\n" disassemble-internal "<byte code>\n" disassemble-1 "(<byte code>...)\n" mapc 257 "\302
\300	\\\"\207" [disassemble-recursive-indent disassemble-1] "\n\n(fn OBJ)" "\n"] 17 (#$ . 3594)])
(provide 'disass)