diff options
| author | Andrea Corallo <akrl@sdf.org> | 2020-02-09 15:12:51 +0100 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2020-02-14 23:26:20 +0100 |
| commit | fe9e4c42b3e4519032c7c9ee62400f9793ab4f76 (patch) | |
| tree | 8a26e193226e281360bb08ba0255f98693e5d2f9 /lisp/emacs-lisp | |
| parent | f1bc8e480cc9d4a81826b344cac06d0bad88e21e (diff) | |
| download | emacs-fe9e4c42b3e4519032c7c9ee62400f9793ab4f76.tar.gz emacs-fe9e4c42b3e4519032c7c9ee62400f9793ab4f76.tar.bz2 emacs-fe9e4c42b3e4519032c7c9ee62400f9793ab4f76.zip | |
Better function naming for comp-function-call-maybe-remove
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/comp.el | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index 4ec84563f38..2d609f0527c 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -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) |