;;; compiled by eric@geech.gnu.ai.mit.edu on Mon Mar 22 13:35:10 1993
;;; from file /gd/gnu/emacs/19.0/lisp/find-gc.el
;;; emacs version 19.0.506.
;;; bytecomp version FSF 2.08
;;; optimization is on.

(byte-code "ÀÁMˆÂÄÅMˆÆÇMˆÈ	ÊËMˆÌÎÏM‡" [find-gc-unsafe #[nil "ÀÁ!ˆÂ ˆÃÄ!ˆÅÇ\"‰‡" [trace-call-tree nil trace-use-tree find-unsafe-funcs Fgarbage_collect sort unsafe-list #[(x y) "À	@\n@\"‡" [string-lessp x y] 3]] 3] "/usr/gnu/src/dist/src" emacs-source-directory find-unsafe-funcs #[(target) "CCÂ!‡" [target unsafe-list trace-unsafe] 2] trace-unsafe #[(func) "À	\n\"‰„ ÄÅ@\"ˆA‰…9 À@\"„ @>„ @	BBÈ@!ˆ‚ )‡" [assq func subrs-used used error "No subrs-used for %s" unsafe-list noreturn-list trace-unsafe] 4] (Fsignal Fthrow wrong_type_argument) noreturn-list trace-call-tree #[(&optional already-setup) "ÀÁ!ˆ\n„* ÃÄÅ‰‰ÆÇ&ˆÃÄÅ‰‰ÆÈ&ˆÃÄÅ‰‰ÆÉÊ\"&ˆŠÌÍ!qˆÅÅÅ‰…Ú ÀÔ@\"ˆÃÄÅ‰‰ÆÉÕ@\"&ˆÖ ˆ×Ø@ÙQ!ˆÚÛÅÜ#ƒÇ `ÝZfÞUƒŸ ßà!ˆáâãä!åä!\"!Àæ@#ˆC‰B‚g ßç!ƒg áâãè!åè!\"!‰A>„g éAB\"ˆ‚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 buffer-substring match-beginning 0 match-end "%s : %s" ".*\n?.*\"\\([A-Za-z0-9_]+\\)\"" 1 setcdr delete-file] 10] ("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 trace-use-tree #[nil "ÀÁÀÂ\"\"Å‰‰…I @A‰ƒ? É@\"‰ƒ Ê@@AB\"ˆ‚ A‰„ Å+‡" [mapcar list car subrs-called subrs-used nil found p2 ptr assq setcdr] 6]] 2)
