[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/native-comp fe9e4c4 2/6: Better function naming for comp-functio
From: |
Andrea Corallo |
Subject: |
feature/native-comp fe9e4c4 2/6: Better function naming for comp-function-call-maybe-remove |
Date: |
Sat, 15 Feb 2020 04:24:37 -0500 (EST) |
branch: feature/native-comp
commit fe9e4c42b3e4519032c7c9ee62400f9793ab4f76
Author: Andrea Corallo <address@hidden>
Commit: Andrea Corallo <address@hidden>
Better function naming for comp-function-call-maybe-remove
---
lisp/emacs-lisp/comp.el | 8 +++-----
1 file changed, 3 insertions(+), 5 deletions(-)
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 4ec8456..2d609f0 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)
- feature/native-comp updated (d71801e -> 4b4c753), Andrea Corallo, 2020/02/15
- feature/native-comp 0c6f4ca 3/6: Clean-up old gc disable refuse in comp-tests-non-locals, Andrea Corallo, 2020/02/15
- feature/native-comp fe9e4c4 2/6: Better function naming for comp-function-call-maybe-remove,
Andrea Corallo <=
- feature/native-comp 3b3525b 5/6: Backward propagate only once, Andrea Corallo, 2020/02/15
- feature/native-comp 4b4c753 6/6: Speed 2 goes default, Andrea Corallo, 2020/02/15
- feature/native-comp c27394d 4/6: Rework frame layout, Andrea Corallo, 2020/02/15
- feature/native-comp f1bc8e4 1/6: Merge remote-tracking branch 'savannah/master' into HEAD, Andrea Corallo, 2020/02/15