mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-13 09:32:47 +00:00
Code Issues Releases Activity

* Introduce `comp-fwprop-max-insns-scan' as heuristic threshold

Browse Source 
* lisp/emacs-lisp/comp.el (comp-fwprop-max-insns-scan): New
	constant.
	(comp-fwprop*): Give-up when `comp-fwprop-max-insns-scan' is
	exceeded.
This commit is contained in:
Andrea Corallo 2021-01-14 23:54:52 +01:00
parent 883d937320
commit 339b4a754b
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lisp/emacs-lisp/comp.el
View File

@ -2926,6 +2926,11 @@ Return t when one or more block was removed, nil otherwise."
;; This is also responsible for removing function calls to pure functions if
;; possible.
(defconst comp-fwprop-max-insns-scan 4500
;; Choosen as ~ the greatest required value for full convergence
;; native compiling all Emacs codebase.
"Max number of scanned insn before giving-up.")
(defun comp-copy-insn (insn)
"Deep copy INSN."
;; Adapted from `copy-tree'.
@ -3086,7 +3091,9 @@ Fold the call in case."
(defun comp-fwprop* ()
"Propagate for set* and phi operands.
Return t if something was changed."
(cl-loop with modified = nil
(cl-loop named outer
with modified = nil
with i = 0
for b being each hash-value of (comp-func-blocks comp-func)
do (cl-loop
with comp-block = b
@ -3094,9 +3101,13 @@ Return t if something was changed."
for orig-insn = (unless modified
;; Save consing after 1th change.
(comp-copy-insn insn))
do (comp-fwprop-insn insn)
do
(comp-fwprop-insn insn)
(cl-incf i)
when (and (null modified) (not (equal insn orig-insn)))
do (setf modified t))
when (> i comp-fwprop-max-insns-scan)
do (cl-return-from outer nil)
finally return modified))
(defun comp-rewrite-non-locals ()