;ELC ;;; compiled by roland@churchy.gnu.ai.mit.edu on Fri Nov 3 19:58:53 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/disass.el ;;; emacs version 19.29.90.2. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`disass.el' was compiled for Emacs 19.29 or later")) (require (quote byte-compile) "bytecomp") #@3 * (defvar disassemble-column-1-indent 8 (#$ . -518)) #@3 * (defvar disassemble-column-2-indent 10 (#$ . -576)) #@3 * (defvar disassemble-recursive-indent 3 (#$ . -635)) #@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) "¢Á=ƒ\fÂÃE\f„ÅŠ„„.ÈÈqˆÉ\f?#‘ˆ‚8qˆÉ\fÃ#ˆ)Ã‡" [object byte-code lambda nil indent 0 interactive-p buffer "*Disassemble*" disassemble-internal] 5 (#$ . 696) (list (intern (completing-read "Disassemble function: " obarray (quote fboundp) t)) nil 0 t)]) (defalias 'disassemble-internal #[(obj indent interactive-p) "À‰‰‰ 9ƒ K‰‚ Æ !ƒ!ÇÈ\"ˆ <ƒ6 @É=ƒ6Ê A@!ˆK ¢Ä=ƒBË A <ƒS @Ì=ƒSÍÀ E <ƒc @Í=„cÇÎ!ˆ :ƒÌ ž„ƒ€Ðƒ|Ñ‚}Ò\"ˆÓ !ƒÐÔ!ˆ :ƒž A‰@ A‚¢ ÕHÕUƒÔjˆ×Ø\f„·ƒ»Ù‚¼Ú\fƒÄÛ‚ÅÚƒÐ×Ü\"‚ÑÚ$cˆ :ƒä @;…è @‚èÝ Ë\"‰ƒ\n;ƒ :ƒú AjˆÞßp\"ˆàá\n\"ƒ\nÕ‰”OâP\ná±ˆ)jˆãcˆä p\"ˆácˆ :ƒ2å ž‚> GæV…>å æHD‰%ƒ%A@% ¢¢å=ƒU Ajˆçcˆ%¢Ì=ƒtácˆè%)\\\"ˆ‚~Ë*ä%p\"ˆ)ácˆ) :ƒ˜Ì žƒ˜èÌ ž\"ˆ‚¿ë !ƒ§è \"ˆ‚¿ìcˆË*ä Aƒ¹í B‚» @p\"ˆ),…ÈÐÚ!‡" [nil args doc name macro obj subrp error "Can't disassemble #" autoload load t byte-code lambda "not a function" interactive-p message "Compiling %s's definition..." "Compiling definition..." byte-compile "Done compiling. Disassembling..." 0 indent format "byte code%s%s%s:\n" " for" "" " macro" " %s" documentation princ " doc: " string-match "\n" " ..." " args: " prin1 interactive 5 " interactive: " disassemble-1 disassemble-recursive-indent print-escape-newlines byte-code-function-p "Uncompiled body: " progn] 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) "À‰:ƒA@AA@‚!Ä!ˆÅHÆHÇ\n \"À‰‰‰ \n\fÍÀ\f\fÐ\fž‰ƒ]AT‰ ˆ\f>A\f‚=+\fƒÚÀ\f@§ƒw\f@\fA\f\f@@\f@A\n\fA\fjˆÐ=ƒ©ƒŸÒÓ\"cˆÔ\n@!cˆ‚^ƒµÒÕ\"cˆ\\jˆƒØ×ØÙ!‰ \"ƒØ ÚÀO ‚ÛÛ Ü=ƒåÝcˆ cˆß\\\\\\jˆàcˆ!>ƒÔ\nA@!cˆ‚Ôâ>ƒÔ\n!cˆ‚Ôã>ƒ,ä\n@p\"ˆ‚Ôå>ƒÔ\n@\næ\n!„o\n¢ç=ƒNè\nž„o\n¢é=ƒæ\nA!„o\nA¢ç=ƒè\nAžƒæ\n!ƒ|êcˆ‚\n¢ç=ƒŠëcˆ‚ìcˆí\n.Å\\\\À#ˆ‚Ô\n¢è=ƒµïcˆð\n.\\\"ˆ‚Ô\n¢¢è=ƒÊñcˆòó\n\"ˆ‚Ôô5ä\np\"ˆ)öcˆ‚^.À‡" [nil constvec bytes obj fetch-bytecode 1 2 byte-decompile-bytecode pc-value opname arg op lap 0 tmp tagno TAG indent format "%d:" int-to-string "%d" disassemble-column-1-indent string-match "^byte-" symbol-name 5 "" byte-constant2 " #### shouldn't have seen constant2 here!\n " disassemble-column-2-indent -1 " " byte-goto-ops (byte-call byte-unbind byte-listN byte-concatN byte-insertN) (byte-varref byte-varset byte-varbind) prin1 (byte-constant byte-constant2) byte-code-function-p lambda byte-code macro "\n" "" "\n" disassemble-internal disassemble-recursive-indent "\n" disassemble-1 "(...)\n" mapcar #[(obj) "À \n\\\"‡" [disassemble-1 obj indent disassemble-recursive-indent] 4] t print-escape-newlines "\n"] 5 (#$ . 2393)])