;ELC ;;; compiled by jwz@thalidomide on Fri Dec 31 01:44:11 1993 ;;; from file /th/jwz/emacs19/lisp/bytecomp/disass.el ;;; emacs version 19.9 Lucid (beta9). ;;; bytecomp version 2.22; 22-dec-93. ;;; 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 'byte-optimize) (defvar disassemble-column-1-indent 5 "\ *") (defvar disassemble-column-2-indent 10 "\ *") (defvar disassemble-recursive-indent 3 "\ *") (fset 'disassemble #[(object &optional buffer indent interactive-p) "¢Á=«…ÂÃE¬‚ÅŠ¬„¬ÈÈqˆÉ?#‘ˆªŠqˆÉÃ#ˆ)Ã‡" [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." (byte-code "ÀÁÂÄÅ$!ÆÇÅF‡" [intern completing-read "Disassemble function: " obarray fboundp t nil 0] 6)]) (fset 'disassemble-internal #[(obj indent interactive-p) "À‰‰9«ˆK‰ªuÅ!«…ÆÇ\n\"ˆ¢È=«‰ÉÊœ!ˆ\nK¢Ã=«…ËA<«‹@Ì=«…ÍÀE<«Š@Í=¬„ÆÎ!ˆ:« Ìž¬›«‹Ð\n«ƒÑªÒ\n\"ˆÓ!«„ÐÔ!ˆ:«‹A‰@Aª„Õ!×U«¤jˆØÙ¬ƒ\n«ƒÚªÛ«ƒÜªÛ\n«†ØÝ\n\"ªÛ$cˆ:«‰@;ˆ@ª„ÆÞß‰ «Ì ;«Ç:«ƒAjˆáâp\"ˆÀ#äå \"«‹ ×‰”O Ë# GæV«Š ×çO Ë##«† èP ) å±ˆ)jˆécˆê p\"ˆåcˆÀëì«Ç:«‡ížÊœª…î!Êœ-¢¢í=«ƒAjˆïcˆ-¢Ì=«åcˆð-1\\\"ˆªŠË2ê-p\"ˆ)åcˆ):«Ìž«ŠðÌž\"ˆª£ó!«ˆð\"ˆª–ôcˆË2êA«…õBª‚@p\"ˆ)+ƒÐÀ!‡" [nil args name macro obj subrp error "Can't disassemble #" autoload load 1 t byte-code lambda "not a function" interactive-p message "Compiling %s's definition..." "Compiling definition..." byte-compile "Done compiling. Disassembling..." compiled-function-arglist indent 0 format "byte code%s%s%s:\n" " for" "" " macro" " %s" (documentation obj) ((error (format "%S" error))) doc princ " doc: " frobbed string-match "\n" 70 65 " ..." " args: " prin1 (commandp obj) ((error)) interactive compiled-function-interactive " interactive: " disassemble-1 disassemble-recursive-indent print-escape-newlines compiled-function-p "Uncompiled body: " progn] 8]) (fset 'disassemble-1 #[(obj indent) "À‰:«‹A@AA@ªˆÄœÅœÆ\n \"À‰‰ \nËÀ\n\n Î\nž‰«•A T‰ ˆ\n>A\nªb+\nƒŽ\n@@ \n@Ajˆ Î=«ŒÐ@!Ñ±ˆ‚…\\jˆ «•ÓÔÕ !‰\"«‰ÖÀOªƒ× Ø=«ƒÙcˆcˆÛ\\\\\\jˆÜcˆ >«‹ÐA@!cˆ‚‚ Þ>«‰Ð!cˆ‚‚ ß>«Šà@p\"ˆ‚‚ á>ƒ‚@â!¬ª¢ã=«†äž¬¢å=«¿âA!¬A¢ã=«°äAž«©â!«…æcˆª¢ã=«…çcˆªƒècˆé*Ä\\\\À#ˆª³¢ä=«ëcˆì*\\\"ˆª¢¢ä=«‹ícˆîï\"ˆªŠð1àp\"ˆ)òcˆ\nA‰\n„X.À‡" [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) compiled-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."])