diff options
author | Andrea Corallo <akrl@sdf.org> | 2020-07-02 21:45:42 +0200 |
---|---|---|
committer | Andrea Corallo <akrl@sdf.org> | 2020-07-02 22:55:42 +0200 |
commit | b0f683ec16ae55f2788e21e30db21044766fcad9 (patch) | |
tree | 0305b251821eb6e2fe7301902b3f1d95e360eaac /lisp/emacs-lisp | |
parent | 7e004d24a4abaa4b5aa9f0f1cd4bc70264396ad5 (diff) | |
download | emacs-b0f683ec16ae55f2788e21e30db21044766fcad9.tar.gz emacs-b0f683ec16ae55f2788e21e30db21044766fcad9.tar.bz2 emacs-b0f683ec16ae55f2788e21e30db21044766fcad9.zip |
* Fix missing tail recursion elimination
* lisp/emacs-lisp/comp.el (comp-tco-func): Fix tail recursion
elimination given now functions in LIMPLE are expressed with
the C name.
Diffstat (limited to 'lisp/emacs-lisp')
-rw-r--r-- | lisp/emacs-lisp/comp.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index a16cf1dcc88..81612398c7b 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -2299,7 +2299,7 @@ Return the list of m-var ids nuked." (`((set ,l-val (direct-call ,func . ,args)) (comment ,_comment) (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)) (let ((tco-seq (comp-form-tco-call-seq args))) (setf (car insns-seq) (car tco-seq) |