[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/native-comp 80d7f71 2/2: * Fix defsubst missing inline Bug#42664
From: |
Andrea Corallo |
Subject: |
feature/native-comp 80d7f71 2/2: * Fix defsubst missing inline Bug#42664 |
Date: |
Sun, 2 Aug 2020 11:52:21 -0400 (EDT) |
branch: feature/native-comp
commit 80d7f710f2fab902e46aa3fddb8e1c1795420af3
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>
* Fix defsubst missing inline Bug#42664
* lisp/emacs-lisp/byte-run.el (defsubst): Do not native compile
defsubsts to have them always effective.
---
lisp/emacs-lisp/byte-run.el | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/lisp/emacs-lisp/byte-run.el b/lisp/emacs-lisp/byte-run.el
index 4c1dce2..5398466 100644
--- a/lisp/emacs-lisp/byte-run.el
+++ b/lisp/emacs-lisp/byte-run.el
@@ -364,7 +364,12 @@ You don't need this. (See bytecomp.el commentary for more
details.)
'(nil byte-compile-inline-expand))
(error "`%s' is a primitive" name))
`(prog1
- (defun ,name ,arglist ,@body)
+ (defun ,name ,arglist
+ ;; Never native-compile defsubsts as we need the byte
+ ;; definition in `byte-compile-unfold-bcf' to perform the
+ ;; inlining (Bug#42664).
+ (declare (speed -1))
+ ,@body)
(eval-and-compile
(put ',name 'byte-optimizer 'byte-compile-inline-expand))))