From: Andrea Corallo <akrl@sdf.org>
Date: Sun, 29 Dec 2019 13:10:19 +0000 (+0100)
Subject: add customize comp-never-optimize-functions
X-Git-Tag: emacs-28.0.90~2727^2~867
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e666bf781f1d3d74068e8d2b505e35dd75b5b423;p=emacs.git

add customize comp-never-optimize-functions
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index b212f24bf9c..99cc93580bf 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -74,6 +74,15 @@ This intended for debugging the compiler itself.
   :type 'boolean
   :group 'comp)
 
+(defcustom comp-never-optimize-functions
+  '(macroexpand scroll-down scroll-up narrow-to-region widen rename-buffer
+                make-indirect-buffer delete-file top-level abort-recursive-edit)
+  "Primitive functions for which we do not perform trampoline optimization.
+This is especially usefull for primitives known to be advised if bootstrap is
+performed at `comp-speed' > 0."
+  :type 'list
+  :group 'comp)
+
 (defconst comp-log-buffer-name "*Native-compile-Log*"
   "Name of the native-compiler log buffer.")
 
@@ -1631,7 +1640,8 @@ Return t if something was changed."
                       (setf (comp-mvar-ref arg) nil))
                     args)
               args))
-    (when (symbolp callee) ; Do nothing if callee is a byte compiled func.
+    (when (and (symbolp callee)  ; Do nothing if callee is a byte compiled func.
+               (not (member callee comp-never-optimize-functions)))
       (let* ((f (symbol-function callee))
              (subrp (subrp f))
              (callee-in-unit (gethash callee