[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/native-comp 337367a 5/5: * lisp/emacs-lisp/comp.el (native-compi
From: |
Andrea Corallo |
Subject: |
feature/native-comp 337367a 5/5: * lisp/emacs-lisp/comp.el (native-compile): Fix free function compilation. |
Date: |
Sun, 23 Aug 2020 08:02:03 -0400 (EDT) |
branch: feature/native-comp
commit 337367a733e107df1ecb89955f0a249491bc62d9
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>
* lisp/emacs-lisp/comp.el (native-compile): Fix free function compilation.
---
lisp/emacs-lisp/comp.el | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 3176351..28dbd56 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -2654,11 +2654,11 @@ Return the compilation unit file name."
(byte-compile-debug t)
(comp-ctxt
(make-comp-ctxt
- :output (comp-el-to-eln-filename (if (symbolp function-or-file)
- (symbol-name function-or-file)
- function-or-file)
- (when byte-native-for-bootstrap
- (car (last comp-eln-load-path))))
+ :output (if (symbolp function-or-file)
+ (make-temp-file (symbol-name function-or-file) nil
".eln")
+ (comp-el-to-eln-filename function-or-file
+ (when byte-native-for-bootstrap
+ (car (last
comp-eln-load-path)))))
:with-late-load with-late-load)))
(comp-log "\n\n" 1)
(condition-case err