ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/emacs-lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/emacs-lisp/disass.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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 (#$ . -500))
#@3 *
(defvar disassemble-column-2-indent 10 (#$ . -558))
#@3 *
(defvar disassemble-recursive-indent 3 (#$ . -617))
#@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! \204X r\312\313!q\210p\314 \210\310\211\315\211\315 \316 \210\317\320!\210+\211 \313q\210\321?#\210\322!\210)\266\202a q\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 (#$ . 678) (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)])
(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\315 j\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\366 A\262j\210\336\337p\"\210\340\341\"\203\211\326\211\224O\342P\262\211\341\261\210\210j\210\343c\210\344p\"\210\341c\210\345!\211\203c\211A@\262\242\242\346=\203=A\262j\210\347c\210\211\242\312=\203X\341c\210\350\\\"\210\202`\311\344p\"\210)\341c\210\210:\203|\312\236\203|\350\312\236\"\210\202\233\324!\203\215\350\"\210\202\233\351c\210\311\344\352!p\"\210)\266\211\205\244\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" " ..." " args: " prin1 interactive-form interactive " interactive: " disassemble-1 "Uncompiled body: " macroexp-progn] 13 "\n\n(fn OBJ INDENT INTERACTIVE-P)"])
#@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:\203 A@\262AA@\262\202# \306!\210\307H\262\310H\262\311\312!\"\305\211\211\211\313\305\314\236\211\262\203L AT\211\262\240\210>A\262\2021 \266\203\256\305\262@\247\203c @\262A\262@@\262@A\262A\262j\210\314=\203\216 \211\203\205 \315\316\"c\210\317@!c\210\202N \211\203\230 \315\320\"c\210\\j\210\203\270 \321\322\323!\211\262\"\203\270 \324\305O\262\202\273 \325\262\326=\203\304 \327c\210c\210\330 \331$j\210\332c\210\n>\203\343 \317A@!c\210\202\250\333>\203\361 \317!c\210\202\250\334>\203 \335@p\"\210\202\250\336>\203\250@\262\337!\204C:\203!\340!\203!\341\236\204C\242\342=\203l\337A!\204CA:\203l\340A!\203l\341A\236\203l\337!\203O\343c\210\202^\340!\203[\344c\210\202^\345c\210\346\330\n \307#\305#\210\202\250\242\341=\203\201\347c\210\350 \\\"\210\202\250\242\242\341=\203\240\351c\210\352\353\354\355\356\357
!\360\"\324\361%\"\210\202\250\362 \335p\"\210)\363c\210\202N \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 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 functionp byte-code macro "<compiled-function>\n" "<compiled lambda>" "<compiled macro>\n" disassemble-internal "<byte code>\n" disassemble-1 "(<byte code>...)\n" mapc make-byte-code 257 "\302\300 \\\"\207" vconcat vector [disassemble-recursive-indent disassemble-1] "\n\n(fn OBJ)" t "\n"] 16 (#$ . 3551)])
(provide 'disass)
Kontol Shell Bypass