;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:00 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/emacs-lisp/disass.el
;;; in Emacs version 24.3.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\303\"\207" [require macroexp byte-compile "bytecomp"] 3)
#@3 *
(defvar disassemble-column-1-indent 8 (#$ . -650))
#@3 *
(defvar disassemble-column-2-indent 10 (#$ . -708))
#@3 *
(defvar disassemble-recursive-indent 3 (#$ . -767))
#@274 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.
(defalias 'disassemble #[(object &optional buffer indent interactive-p) ":\203@\306=\204\306\307E	\204\310\212\n\204 \204]\fr\311\312!q\210p\313 \210
\307\211\314\211\314\315 \210\316\317!\210+\211\312q\210\320	\n?#\210\321!\210+\202fq\210\320	\307#\210)\307\207" [object indent interactive-p buffer default-directory #1=#:old-dir 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 buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output] 5 (#$ . 828) (list (intern (completing-read "Disassemble function: " obarray 'fboundp t)) nil 0 t)])
(defalias 'disassemble-internal #[(obj indent interactive-p) "\306\211\211\211\f9\203\f\fK\211\202	\307\f!\203!\310\311\n\"\210\312\f\n\"\211\242\303=\2032\313\fA\f<\203C\f@\314=\203C\315\306\fE\f<\203S\f@\315=\204S\310\316!\210\f:\203{\314\f\236\204{
\203o\317\n\203k\320\202l\321\n\"\210\322\f!
\203{\317\323!\210\f:\203\214\fA\211@\fA\202\235\324\f!\203\231\f\325H\202\235\310\326!\210\327,!\203\317,j\210\330\331\204\262\n\203\266\332\202\267\333\203\277\334\202\300\333\n\203\313\330\335\n\"\202\314\333$c\210\f:\203\337\f@;\205\343\f@\202\343\336\f\313\"\211\203
	;\203
\f:\203\365\fA,j\210\337\340p\"\210\341\342	\"\203

	\325\211\224O\343P	\342\261\210),j\210\344c\210\345p\"\210\342c\210\f:\203-
\346\f\236\2029
\fG\347V\2059
\346\f\347HD\211&\203|
&A@&\f\242\242\346=\203P
\fA,j\210\350c\210&\242\314=\203o
\342c\210\351&,-\\\"\210\202y
\313.\345&p\"\210)\342c\210)\f:\203\223
\314\f\236\203\223
\351\314\f\236,\"\210\202\260
\324\f!\203\242
\351\f,\"\210\202\260
\352c\210\313.\345\353\f!p\"\210),
\205\270
\317\333!\207" [args doc name macro obj interactive-p nil subrp error "Can't disassemble #<subr %s>" autoload-do-load t byte-code lambda "not a function" message "Compiling %s's definition..." "Compiling definition..." byte-compile "Done compiling.  Disassembling..." byte-code-function-p 0 "Compilation failed" zerop format "byte code%s%s%s:\n" " for" "" " macro" " %s" documentation princ "  doc:  " string-match "\n" " ..." "  args: " prin1 interactive 5 " interactive: " disassemble-1 "Uncompiled body:  " macroexp-progn indent disassemble-recursive-indent print-escape-newlines] 8])
#@120 Prints the byte-code call OBJ in the current buffer.
OBJ should be a call to BYTE-CODE generated by the byte compiler.
(defalias 'disassemble-1 #[(obj indent) "\306\211\n:\203\nA@\nAA@\202!\307\n!\210\n\310H\n\311H\312\313	!\"\306\211\211\211/0\314\3060012\3150\236\2111\203\\1A2T\2112\240\21010>A0\202<+0\203\267
\3060@\247\203t0@0A00@@/0@A0A03j\210/\315=\203\242\203\231\316\317\"c\210\320
@!c\210\202]\203\254\316\321\"c\21034\\j\210/\203\314\322\323\324/!\211\"\203\314\f\325\306O\202\316\326/\327=\203\330\330c\210\fc\210\331345\332$j\210\333c\210/6>\203\373\320
A@!c\210\202\261
/\334>\203\n
\320
!c\210\202\261
/\335>\203
\336
@p\"\210\202\261
/\337>\203\261

@\340
!\204T

\242\341=\2037
\342
\236\204T

\242\343=\203
\340
A!\204T

A\242\341=\203
\342
A\236\203
\340
!\203`
\344c\210\202p

\242\341=\203m
\345c\210\202p
\346c\210\347
\33137\310#\306#\210\202\261

\242\342=\203\225
\350c\210\351
37\\\"\210\202\261

\242\242\342=\203\250
\352c\210\353\354
\"\210\202\261
\3558\336
p\"\210)\356c\210\202].\306\207" [constvec bytes obj pc-value opname arg nil fetch-bytecode 1 2 byte-decompile-bytecode string-as-unibyte 0 TAG format "%d:" int-to-string "%d" string-match "^byte-" symbol-name 5 "<not-an-opcode>" byte-constant2 " #### shouldn't have seen constant2 here!\n  " + -1 " " (byte-call byte-unbind byte-listN byte-concatN byte-insertN byte-stack-ref byte-stack-set byte-stack-set2 byte-discardN byte-discardN-preserve-tos) (byte-varref byte-varset byte-varbind) prin1 (byte-constant byte-constant2) byte-code-function-p lambda byte-code macro "<compiled-function>\n" "<compiled lambda>" "<compiled macro>\n" disassemble-internal "<byte code>\n" disassemble-1 "(<byte code>...)\n" mapc #[(obj) "\303	\n\\\"\207" [obj indent disassemble-recursive-indent disassemble-1] 4] t "\n" op lap tmp tagno indent disassemble-column-1-indent disassemble-column-2-indent byte-goto-ops disassemble-recursive-indent print-escape-newlines] 6 (#$ . 3551)])
(provide 'disass)