Gecko [ goons4good.org ]

Name	Size	Permission	Date
advice.elc	58.25 KB	-rw-r--r--	2023-06-07 04:04
authors.elc	30.49 KB	-rw-r--r--	2023-06-07 04:04
autoload.elc	21.31 KB	-rw-r--r--	2023-06-07 03:59
avl-tree.elc	27.02 KB	-rw-r--r--	2023-06-07 04:04
backquote.elc	4.4 KB	-rw-r--r--	2023-06-07 04:18
benchmark.elc	3.18 KB	-rw-r--r--	2023-06-07 04:04
bindat.elc	10.69 KB	-rw-r--r--	2023-06-07 04:04
byte-opt.elc	35.7 KB	-rw-r--r--	2023-06-07 03:59
byte-run.elc	12.35 KB	-rw-r--r--	2023-06-07 04:18
bytecomp.elc	136.26 KB	-rw-r--r--	2023-06-07 03:59
cconv.elc	15.61 KB	-rw-r--r--	2023-06-07 03:59
chart.elc	22.14 KB	-rw-r--r--	2023-06-07 04:04
check-declare.elc	8.87 KB	-rw-r--r--	2023-06-07 04:04
checkdoc.elc	67.42 KB	-rw-r--r--	2023-06-07 04:04
cl-extra.elc	20.01 KB	-rw-r--r--	2023-06-07 04:04
cl-indent.elc	16.34 KB	-rw-r--r--	2023-06-07 04:04
cl-lib.elc	34.86 KB	-rw-r--r--	2023-06-07 04:04
cl-loaddefs.el	39.75 KB	-rw-r--r--	2013-01-01 15:37
cl-macs.elc	71.79 KB	-rw-r--r--	2023-06-07 04:04
cl-seq.elc	40.03 KB	-rw-r--r--	2023-06-07 04:04
cl.elc	16 KB	-rw-r--r--	2023-06-07 04:04
copyright.elc	10.29 KB	-rw-r--r--	2023-06-07 04:04
crm.elc	7.76 KB	-rw-r--r--	2023-06-07 04:04
debug.elc	26.92 KB	-rw-r--r--	2023-06-07 04:04
derived.elc	11.27 KB	-rw-r--r--	2023-06-07 04:04
disass.elc	5.48 KB	-rw-r--r--	2023-06-07 04:04
easy-mmode.elc	16.81 KB	-rw-r--r--	2023-06-07 04:04
easymenu.elc	20.03 KB	-rw-r--r--	2023-06-07 04:04
edebug.elc	101.25 KB	-rw-r--r--	2023-06-07 04:04
eieio-base.elc	13.18 KB	-rw-r--r--	2023-06-07 04:04
eieio-custom.elc	14.55 KB	-rw-r--r--	2023-06-07 04:04
eieio-datadebug.elc	3.9 KB	-rw-r--r--	2023-06-07 04:04
eieio-opt.elc	20.79 KB	-rw-r--r--	2023-06-07 04:04
eieio-speedbar.elc	12.55 KB	-rw-r--r--	2023-06-07 04:04
eieio.elc	89.24 KB	-rw-r--r--	2023-06-07 04:04
eldoc.elc	15.33 KB	-rw-r--r--	2023-06-07 04:04
elint.elc	31.22 KB	-rw-r--r--	2023-06-07 04:04
elp.elc	12.43 KB	-rw-r--r--	2023-06-07 04:04
ert-x.elc	9.78 KB	-rw-r--r--	2023-06-07 04:04
ert.elc	169.71 KB	-rw-r--r--	2023-06-07 04:04
ewoc.elc	26.49 KB	-rw-r--r--	2023-06-07 04:04
find-func.elc	17.4 KB	-rw-r--r--	2023-06-07 04:04
find-gc.elc	3.54 KB	-rw-r--r--	2023-06-07 04:04
float-sup.elc	1.36 KB	-rw-r--r--	2023-06-07 04:19
generic.elc	6.68 KB	-rw-r--r--	2023-06-07 04:04
gulp.elc	4.69 KB	-rw-r--r--	2023-06-07 04:04
gv.elc	17.81 KB	-rw-r--r--	2023-06-07 04:04
helper.elc	4.03 KB	-rw-r--r--	2023-06-07 04:04
lisp-mnt.elc	22.41 KB	-rw-r--r--	2023-06-07 04:04
lisp-mode.elc	44.27 KB	-rw-r--r--	2023-06-07 04:19
lisp.elc	18.56 KB	-rw-r--r--	2023-06-07 04:19
macroexp.elc	12.84 KB	-rw-r--r--	2023-06-07 04:18
map-ynp.elc	6.42 KB	-rw-r--r--	2023-06-07 04:18
package-x.elc	8.32 KB	-rw-r--r--	2023-06-07 04:04
package.elc	54.49 KB	-rw-r--r--	2023-06-07 04:04
pcase.elc	15.98 KB	-rw-r--r--	2023-06-07 04:04
pp.elc	5.56 KB	-rw-r--r--	2023-06-07 04:04
re-builder.elc	22.81 KB	-rw-r--r--	2023-06-07 04:04
regexp-opt.elc	4.87 KB	-rw-r--r--	2023-06-07 04:19
regi.elc	6.09 KB	-rw-r--r--	2023-06-07 04:04
ring.elc	6.58 KB	-rw-r--r--	2023-06-07 04:04
rx.elc	27.41 KB	-rw-r--r--	2023-06-07 04:04
shadow.elc	9.75 KB	-rw-r--r--	2023-06-07 04:04
smie.elc	35.4 KB	-rw-r--r--	2023-06-07 04:04
syntax.elc	13.69 KB	-rw-r--r--	2023-06-07 04:19
tabulated-list.elc	19.12 KB	-rw-r--r--	2023-06-07 04:19
tcover-ses.elc	15 KB	-rw-r--r--	2023-06-07 04:04
tcover-unsafep.elc	4.02 KB	-rw-r--r--	2023-06-07 04:04
testcover.elc	13.4 KB	-rw-r--r--	2023-06-07 04:04
timer.elc	22.94 KB	-rw-r--r--	2023-06-07 04:19
tq.elc	3.89 KB	-rw-r--r--	2023-06-07 04:04
trace.elc	5.24 KB	-rw-r--r--	2023-06-07 04:04
unsafep.elc	4.92 KB	-rw-r--r--	2023-06-07 04:04
warnings.elc	9.53 KB	-rw-r--r--	2023-06-07 04:04

Rename

;ELC���
;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun  7 08:04:52 2023
;;; 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 (#$ . 557))
#@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 (#$ . 673))
#@96 Alist of subrs called, in GC testing.
Each entry has the form (FUNCTION . FUNCTIONS-IT-CALLS).
(defvar find-gc-subrs-called nil (#$ . 828))
(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 (#$ . 1531)])
(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)