emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

feature/native-comp 88ccee4 2/4: * Fix comp-call-optim-form-call for nul


From: Andrea Corallo
Subject: feature/native-comp 88ccee4 2/4: * Fix comp-call-optim-form-call for null `callee'
Date: Sun, 7 Jun 2020 15:06:39 -0400 (EDT)

branch: feature/native-comp
commit 88ccee4083f9059603c8bf9b989848c41902d8b0
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>

    * Fix comp-call-optim-form-call for null `callee'
    
        * lisp/emacs-lisp/comp.el (comp-call-optim-form-call): Guard
        agains null `calle'.
---
 lisp/emacs-lisp/comp.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index ecd4115..520ec8c 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -2023,7 +2023,8 @@ FUNCTION can be a function-name or byte compiled 
function."
               ;; Fill missing args to reach TOTAL
               (append args (cl-loop repeat (- total (length args))
                                     collect (make-comp-mvar :constant nil)))))
-    (when (and (or (symbolp callee)
+    (when (and callee
+               (or (symbolp callee)
                    (gethash callee (comp-ctxt-byte-func-to-func-h comp-ctxt)))
                (not (memq callee comp-never-optimize-functions)))
       (let* ((f (if (symbolp callee)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]