;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:39:14 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/emacs-lisp/find-gc.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`find-gc.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defalias 'find-gc-unsafe #[nil "\301\302!\210\303 \210\304\305!\210\306\307\"\211\207" [unsafe-list trace-call-tree nil trace-use-tree find-unsafe-funcs Fgarbage_collect sort #[(x y) "@ @\231\207" [x y] 2]] 3]) (byte-code "\301\302\207" [emacs-source-directory "/usr/gnu/src/dist/src" nil] 1) (defalias 'find-unsafe-funcs #[(target) "CC\302!\207" [target unsafe-list trace-unsafe] 2]) (defalias 'trace-unsafe #[(func) " \236\211\204\305\306 @\"\210\nA\211\2052\n@ \236\204\n@\f>\204\n@B B\307\n@!\210\202)\207" [func subrs-used used unsafe-list noreturn-list error "No subrs-used for %s" trace-unsafe] 4]) (byte-code "\301\302\207" [noreturn-list (Fsignal Fthrow wrong_type_argument) nil] 1) (defalias 'trace-call-tree #[(&optional already-setup) "\306\307!\210\204)\310\311\312\211\211\313\314&\210\310\311\312\211\211\313\315&\210\310\311\312\211\211\313\316\317 \"&\210\212\320\321!q\210\312\312 \312\211%&%\205\303\306\322%@\"\210\310\311\312\211\211\313\316\323%@\"&\210\324 \210\325\326%@\327Q!\210\330\331\312\332#\203\260`\333Zf\334U\203\221\335\336!\210\337\340\224\340\225{!\306\341%@ #\210 C\211\nB\202b\335\342!\203b\337\343\224\343\225{!\211\fA>\204b\f \fAB\241\210\202b\344\326%@\327Q!\210%A\211%\204@\312-\207" [already-setup emacs-source-directory subrs-called source-files entry name message "Setting up directories..." call-process "csh" nil "-c" "rm -rf /tmp/esrc" "mkdir /tmp/esrc" format "ln -s %s/*.[ch] /tmp/esrc" get-buffer-create "*Trace Call Tree*" "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 files case-fold-search] 10]) (byte-code "\301\302\207" [source-files ("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") nil] 1) (defalias 'trace-use-tree #[nil "\305\306\305\307\"\"\310\211\211\2059\f@ A\211\2031 @ \236\211\203\n\f@@\nAB\241\210\202\fA\211\204\310+\207" [subrs-called subrs-used found p2 ptr mapcar list car nil] 6]) (provide 'find-gc)