;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:03 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/emacs-lisp/find-gc.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@66 The list of unsafe functions is placed here by `find-gc-unsafe'.
(defvar find-gc-unsafe-list nil (#$ . 561))
#@104 Alist of users of subrs, from GC testing.
Each entry has the form (FUNCTION . FUNCTIONS-THAT-CALL-IT).
(defvar find-gc-subrs-callers nil (#$ . 677))
#@96 Alist of subrs called, in GC testing.
Each entry has the form (FUNCTION . FUNCTIONS-IT-CALLS).
(defvar find-gc-subrs-called nil (#$ . 832))
(defvar find-gc-noreturn-list '(Fsignal Fthrow wrong_type_argument))
(defvar find-gc-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" "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" "unexcoff.c" "bytecode.c" "process.c" "callproc.c" "doprnt.c" "x11term.c" "x11fns.c"))
#@99 Return a list of unsafe functions--that is, which can call GC.
Also store it in `find-gc-unsafe'.
(defalias 'find-gc-unsafe #[nil "\301\302!\210\303 \210\304\305!\210\306\307\"\211\207" [find-gc-unsafe-list trace-call-tree nil trace-use-tree find-unsafe-funcs Fgarbage_collect sort #[(x y) "@	@\231\207" [x y] 2]] 3 (#$ . 1535)])
(defalias 'find-unsafe-funcs #[(target) "CC\302!\207" [target find-gc-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@BB\307\n@!\210\202)\207" [func find-gc-subrs-callers used find-gc-unsafe-list find-gc-noreturn-list error "No find-gc-subrs-callers for %s" trace-unsafe] 4])
(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	\"&\210r\320\321!q\210\312\211\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 find-gc-source-directory find-gc-subrs-called find-gc-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])
(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" [find-gc-subrs-called find-gc-subrs-callers found p2 ptr mapcar list car nil] 6])
(provide 'find-gc)