;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Mon Apr 17 19:39:53 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/find-gc.el ;;; emacs version 19.28.90.26. ;;; 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 "`/gd/gnu/emacs/19.0/lisp/find-gc.el' was compiled for Emacs 19")) (defalias 'find-gc-unsafe #[nil "ÀÁ!ˆÂ ˆÃÄ!ˆÅÇ\"‰‡" [trace-call-tree nil trace-use-tree find-unsafe-funcs Fgarbage_collect sort unsafe-list #[(x y) "@ @™‡" [x y] 2]] 3]) (byte-code "À‡" ["/usr/gnu/src/dist/src" emacs-source-directory nil] 1) (defalias 'find-unsafe-funcs #[(target) "CCÂ!‡" [target unsafe-list trace-unsafe] 2]) (defalias 'trace-unsafe #[(func) " ž‰„ÃÄ @\"ˆ\nA‰…3\n@ ž„\n@>„\n@B BÇ\n@!ˆ‚)‡" [func subrs-used used error "No subrs-used for %s" unsafe-list noreturn-list trace-unsafe] 4]) (byte-code "À‡" [(Fsignal Fthrow wrong_type_argument) noreturn-list nil] 1) (defalias 'trace-call-tree #[(&optional already-setup) "ÀÁ!ˆ\n„*ÃÄʼn‰ÆÇ&ˆÃÄʼn‰ÆÈ&ˆÃÄʼn‰ÆÉÊ \"&ˆŠÌÍ!qˆÅÅʼn…ÓÀÔ@\"ˆÃÄʼn‰ÆÉÕ@\"&ˆÖ ˆ×Ø@ÙQ!ˆÚÛÅÜ#ƒÀ`ÝZfÞUƒœßà!ˆáâ”â•{!Àã@#ˆC‰B‚gßä!ƒgáå”å•{!‰A>„gAB¡ˆ‚gæØ@ÙQ!ˆA‰„EÅ-‡" [message "Setting up directories..." already-setup call-process "csh" nil "-c" "rm -rf /tmp/esrc" "mkdir /tmp/esrc" format "ln -s %s/*.[ch] /tmp/esrc" emacs-source-directory get-buffer-create "*Trace Call Tree*" subrs-called source-files entry name files case-fold-search "Compiling %s..." "gcc -dr -c /tmp/esrc/%s -o /dev/null" erase-buffer insert-file-contents "/tmp/esrc/" ".rtl" re-search-forward ";; Function \\|(call_insn " t 3 111 looking-at "[a-zA-Z0-9_]+" intern 0 "%s : %s" ".*\n?.*\"\\([A-Za-z0-9_]+\\)\"" 1 delete-file] 10]) (byte-code "À‡" [("dispnew.c" "scroll.c" "xdisp.c" "window.c" "term.c" "cm.c" "emacs.c" "keyboard.c" "macros.c" "keymap.c" "sysdep.c" "buffer.c" "filelock.c" "insdel.c" "marker.c" "minibuf.c" "fileio.c" "dired.c" "filemode.c" "cmds.c" "casefiddle.c" "indent.c" "search.c" "regex.c" "undo.c" "alloc.c" "data.c" "doc.c" "editfns.c" "callint.c" "eval.c" "fns.c" "print.c" "lread.c" "abbrev.c" "syntax.c" "unexec.c" "mocklisp.c" "bytecode.c" "process.c" "callproc.c" "doprnt.c" "x11term.c" "x11fns.c") source-files nil] 1) (defalias 'trace-use-tree #[nil "ÀÁÀ \"\" ʼn‰…G@A‰ƒ=@\fž‰ƒ@@AB¡ˆ‚A‰„Å+‡" [mapcar list car subrs-called subrs-used nil found p2 ptr] 6])