;ELC ;;; compiled by rms@mole.gnu.ai.mit.edu on Mon Apr 8 11:36:55 1996 ;;; from file /home/fsf/rms/e19/lisp/disass.el ;;; emacs version 19.30.96.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 (#$ . -511)) #@3 * (defvar disassemble-column-2-indent 10 (#$ . -569)) #@3 * (defvar disassemble-recursive-indent 3 (#$ . -628)) #@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 (#$ . 689) (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ˆ :ƒ?ç ž‚K GèV…Kç èHD‰'ƒŽ'A@' ¢¢ç=ƒb Ajˆécˆ'¢Ì=ƒã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..." byte-code-function-p 0 "Compilation failed" 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 "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 (#$ . 2420)])