Gecko [ 122.154.134.11 ]

Name	Size	Permission
advice.elc	60.71 KB	-rw-r--r--
assoc.elc	4.37 KB	-rw-r--r--
authors.elc	27.41 KB	-rw-r--r--
autoload.elc	15.7 KB	-rw-r--r--
avl-tree.elc	15.92 KB	-rw-r--r--
backquote.elc	4.46 KB	-rw-r--r--
benchmark.elc	3.33 KB	-rw-r--r--
bindat.elc	10.84 KB	-rw-r--r--
byte-opt.elc	34.22 KB	-rw-r--r--
byte-run.elc	6.65 KB	-rw-r--r--
bytecomp.elc	124.99 KB	-rw-r--r--
check-declare.elc	8.77 KB	-rw-r--r--
checkdoc.elc	65.08 KB	-rw-r--r--
cl-compat.elc	4.28 KB	-rw-r--r--
cl-extra.elc	21.48 KB	-rw-r--r--
cl-indent.elc	13.98 KB	-rw-r--r--
cl-loaddefs.el	39.57 KB	-rw-r--r--
cl-macs.elc	99.36 KB	-rw-r--r--
cl-seq.elc	43.98 KB	-rw-r--r--
cl-specs.el	13.87 KB	-rw-r--r--
cl.elc	20.74 KB	-rw-r--r--
copyright.elc	8.64 KB	-rw-r--r--
crm.elc	7.94 KB	-rw-r--r--
cust-print.elc	12.77 KB	-rw-r--r--
debug.elc	24.86 KB	-rw-r--r--
derived.elc	10.72 KB	-rw-r--r--
disass.elc	5.09 KB	-rw-r--r--
easy-mmode.elc	14.85 KB	-rw-r--r--
easymenu.elc	20.15 KB	-rw-r--r--
edebug.elc	100.82 KB	-rw-r--r--
eldoc.elc	15.31 KB	-rw-r--r--
elint.elc	19.76 KB	-rw-r--r--
elp.elc	12.78 KB	-rw-r--r--
ewoc.elc	28.62 KB	-rw-r--r--
find-func.elc	17.26 KB	-rw-r--r--
find-gc.elc	3.74 KB	-rw-r--r--
float-sup.elc	1.39 KB	-rw-r--r--
generic.elc	6.55 KB	-rw-r--r--
gulp.elc	4.82 KB	-rw-r--r--
helper.elc	3.84 KB	-rw-r--r--
levents.elc	10.29 KB	-rw-r--r--
lisp-mnt.elc	21.87 KB	-rw-r--r--
lisp-mode.elc	37.14 KB	-rw-r--r--
lisp.elc	21.61 KB	-rw-r--r--
lmenu.elc	11.67 KB	-rw-r--r--
lucid.elc	6.22 KB	-rw-r--r--
macroexp.elc	4.45 KB	-rw-r--r--
map-ynp.elc	6.3 KB	-rw-r--r--
pp.elc	5.09 KB	-rw-r--r--
re-builder.elc	22.36 KB	-rw-r--r--
regexp-opt.elc	4.43 KB	-rw-r--r--
regi.elc	6.15 KB	-rw-r--r--
ring.elc	6.41 KB	-rw-r--r--
rx.elc	26.61 KB	-rw-r--r--
shadow.elc	5.63 KB	-rw-r--r--
sregex.elc	12.45 KB	-rw-r--r--
syntax.elc	5.18 KB	-rw-r--r--
tcover-ses.elc	14.68 KB	-rw-r--r--
tcover-unsafep.elc	4.09 KB	-rw-r--r--
testcover.elc	13.41 KB	-rw-r--r--
timer.elc	22.73 KB	-rw-r--r--
tq.elc	3.94 KB	-rw-r--r--
trace.elc	5.28 KB	-rw-r--r--
unsafep.elc	5.01 KB	-rw-r--r--
warnings.elc	9.61 KB	-rw-r--r--

Code Editor : find-gc.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:02:55 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/emacs-lisp/find-gc.el
;;; in Emacs version 23.1.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"))

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

#@66 The list of unsafe functions is placed here by `find-gc-unsafe'.
(defvar find-gc-unsafe-list nil (#$ . 616))
#@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 (#$ . 732))
#@96 Alist of subrs called, in GC testing.
Each entry has the form (FUNCTION . FUNCTIONS-IT-CALLS).
(defvar find-gc-subrs-called nil (#$ . 887))
(byte-code "\301B\302\301!\204�\303\301\304\"\210\305B\302\305!\204�\303\305\306\"\210\301\207" [current-load-list find-gc-noreturn-list default-boundp set-default (Fsignal Fthrow wrong_type_argument) 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" "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" "bytecode.c" "process.c" "callproc.c" "doprnt.c" "x11term.c" "x11fns.c")] 3)
#@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 (#$ . 1733)])
(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	\"&\210\212\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)

${this.title}

Code Editor : find-gc.elc