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

* Fix 'comp-call-optim pass' for anonymous lambdas

Browse source 
* lisp/emacs-lisp/comp.el (comp-call-optim-func): Remove anonymous
	lambdas gate.
	(comp-call-optim-form-call): Add the correct missing condition.
This commit is contained in:
Andrea Corallo 2020-11-01 13:58:06 +01:00
parent 933fd76f8f
commit 3e3843512b
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -2346,6 +2346,7 @@ FUNCTION can be a function-name or byte compiled function."
;; Intra compilation unit procedure call optimization.
;; Attention speed 3 triggers this for non self calls too!!
((and comp-func-callee
(comp-func-c-name comp-func-callee)
(or (and (>= (comp-func-speed comp-func) 3)
(comp-func-unique-in-cu-p callee))
(and (>= (comp-func-speed comp-func) 2)
@ -2365,9 +2366,7 @@ FUNCTION can be a function-name or byte compiled function."
(defun comp-call-optim-func ()
"Perform the trampoline call optimization for the current function."
(cl-loop
with self = (comp-func-name comp-func)
for b being each hash-value of (comp-func-blocks comp-func)
when self ;; FIXME add proper anonymous lambda support.
do (comp-loop-insn-in-block b
(pcase insn
(`(set ,lval (callref funcall ,f . ,rest))