[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/native-comp b0f683e 5/5: * Fix missing tail recursion eliminatio
From: |
Andrea Corallo |
Subject: |
feature/native-comp b0f683e 5/5: * Fix missing tail recursion elimination |
Date: |
Thu, 2 Jul 2020 16:59:09 -0400 (EDT) |
branch: feature/native-comp
commit b0f683ec16ae55f2788e21e30db21044766fcad9
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>
* 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.
---
lisp/emacs-lisp/comp.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index a16cf1d..8161239 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)