procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Better function naming for comp-function-call-maybe-remove

Browse source
This commit is contained in:
Andrea Corallo 2020-02-09 15:12:51 +01:00
parent f1bc8e480c
commit fe9e4c42b3
1 changed files with 3 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/emacs-lisp/comp.el
View file

@ -1599,7 +1599,7 @@ This can run just once."
('/ (and (cl-every #'fixnump values)
(not (= (car (last values)) 0)))))))))
(defsubst comp-function-call-remove (insn f args)
(defsubst comp-function-call-maybe-remove (insn f args)
"Given INSN when F is pure if all ARGS are known remove the function call."
(when (comp-function-optimizable f args)
(ignore-errors
@ -1620,13 +1620,11 @@ This can run just once."
(`(,(or 'call 'direct-call) ,f . ,args)
(setf (comp-mvar-type lval)
(alist-get f comp-known-ret-types))
(comp-function-call-remove insn f args))
(comp-function-call-maybe-remove insn f args))
(`(,(or 'callref 'direct-callref) ,f . ,args)
(cl-loop for v in args
do (setf (comp-mvar-ref v) t))
(setf (comp-mvar-type lval)
(alist-get f comp-known-ret-types))
(comp-function-call-remove insn f args))
(comp-function-call-maybe-remove insn f args))
(_
(comp-mvar-propagate lval rval))))
(`(phi ,lval . ,rest)