diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-01-31 22:34:48 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-01-31 22:34:48 -0700 |
commit | d4d613629b59d2eadd80026cab6c9dabc92cab24 (patch) | |
tree | d31086a817251dddb847d027661d218c1ecd6540 /admin/find-gc.el | |
parent | fdb813e529602914360fc2d0cf22e42e32e6905f (diff) | |
parent | a5438ee11ad052e71334dcfb2db51fb9123411e5 (diff) | |
download | emacs-d4d613629b59d2eadd80026cab6c9dabc92cab24.tar.gz |
Merge remote-tracking branch 'origin/master' into athena/unstable
Diffstat (limited to 'admin/find-gc.el')
-rw-r--r-- | admin/find-gc.el | 25 |
1 files changed, 13 insertions, 12 deletions
diff --git a/admin/find-gc.el b/admin/find-gc.el index c70a051bfb5..1cce54ef142 100644 --- a/admin/find-gc.el +++ b/admin/find-gc.el @@ -1,4 +1,4 @@ -;;; find-gc.el --- detect functions that call the garbage collector +;;; find-gc.el --- detect functions that call the garbage collector -*- lexical-binding: t; -*- ;; Copyright (C) 1992, 2001-2021 Free Software Foundation, Inc. @@ -42,14 +42,14 @@ Each entry has the form (FUNCTION . FUNCTIONS-THAT-CALL-IT).") Each entry has the form (FUNCTION . FUNCTIONS-IT-CALLS).") -;;; Functions on this list are safe, even if they appear to be able -;;; to call the target. +;; Functions on this list are safe, even if they appear to be able +;; to call the target. (defvar find-gc-noreturn-list '(Fsignal Fthrow wrong_type_argument)) -;;; This was originally generated directory-files, but there were -;;; too many files there that were not actually compiled. The -;;; list below was created for a HP-UX 7.0 system. +;; This was originally generated directory-files, but there were +;; too many files there that were not actually compiled. The +;; list below was created for a HP-UX 7.0 system. (defvar find-gc-source-files '("dispnew.c" "scroll.c" "xdisp.c" "window.c" @@ -76,11 +76,11 @@ Also store it in `find-gc-unsafe-list'." (lambda (x y) (string-lessp (car x) (car y)))))) -;;; This does a depth-first search to find all functions that can -;;; ultimately call the function "target". The result is an a-list -;;; in find-gc-unsafe-list; the cars are the unsafe functions, and the cdrs -;;; are (one of) the unsafe functions that these functions directly -;;; call. +;; This does a depth-first search to find all functions that can +;; ultimately call the function "target". The result is an a-list +;; in find-gc-unsafe-list; the cars are the unsafe functions, and the cdrs +;; are (one of) the unsafe functions that these functions directly +;; call. (defun find-unsafe-funcs (target) (setq find-gc-unsafe-list (list (list target))) @@ -134,7 +134,8 @@ Also store it in `find-gc-unsafe-list'." (setcdr entry (cons name (cdr entry))))))))))))) (defun trace-use-tree () - (setq find-gc-subrs-callers (mapcar 'list (mapcar 'car find-gc-subrs-called))) + (setq find-gc-subrs-callers + (mapcar #'list (mapcar #'car find-gc-subrs-called))) (let ((ptr find-gc-subrs-called) p2 found) (while ptr |