;ELC ;;; compiled by jimb@geech.gnu.ai.mit.edu on Mon Jul 5 22:49:47 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/disass.el ;;; emacs version 19.15.16. ;;; 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"))) (error "This file was compiled for Emacs 19")) (require (quote byte-compile) "bytecomp") (defvar disassemble-column-1-indent 5 "\ *") (defvar disassemble-column-2-indent 10 "\ *") (defvar disassemble-recursive-indent 3 "\ *") (defalias 'disassemble #[(object &optional buffer indent interactive-p) "= E .Ȑq ?#8q #)Ç" [object byte-code lambda nil indent 0 interactive-p buffer "*Disassemble*" disassemble-internal] 5 "\ 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." (list (intern (completing-read "Disassemble function: " obarray (quote fboundp) t)) nil 0 t)]) (defalias (quote disassemble-internal) #[(obj indent interactive-p) " 9  K !! \" <6 @=6 A@! K =B A " autoload load t lambda "not a function" byte-code 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" 4 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]) (defalias 'disassemble-1 #[(obj indent) " : A@ AA@ H H\n \" \n\n\n  \n V A T  \n>A\n6+\n\n@@ \n@Aj =@!ѱ\\j  !\"O =cc\\\\\\jc >A@!c >!c >@p\" >@!9=9=gA!9A=gAg!FcW=TcWc*\\\\#=c*\\\"=c\"1p\")c\nA\n\\." [nil constvec bytes obj 1 2 byte-decompile-bytecode opname arg op lap 0 tmp tagno TAG indent int-to-string ":" 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"] 6 "\ Prints the byte-code call OBJ in the current buffer. OBJ should be a call to BYTE-CODE generated by the byte compiler."])