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

* Fix missing tail recursion elimination

Browse source 
* lisp/emacs-lisp/comp.el (comp-tco-func): Fix tail recursion
	elimination given now functions in LIMPLE are expressed with
	the C name.
This commit is contained in:
Andrea Corallo 2020-07-02 21:45:42 +02:00
parent 7e004d24a4
commit b0f683ec16
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -2299,7 +2299,7 @@ Return the list of m-var ids nuked."
(`((set ,l-val (direct-call ,func . ,args)) (`((set ,l-val (direct-call ,func . ,args))
(comment ,_comment) (comment ,_comment)
(return ,ret-val)) (return ,ret-val))
(when (and (eq func (comp-func-name comp-func)) (when (and (string= func (comp-func-c-name comp-func))
(eq l-val ret-val)) (eq l-val ret-val))
(let ((tco-seq (comp-form-tco-call-seq args))) (let ((tco-seq (comp-form-tco-call-seq args)))
(setf (car insns-seq) (car tco-seq) (setf (car insns-seq) (car tco-seq)