From e666bf781f1d3d74068e8d2b505e35dd75b5b423 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Sun, 29 Dec 2019 14:10:19 +0100 Subject: [PATCH] add customize comp-never-optimize-functions --- lisp/emacs-lisp/comp.el | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) 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 -- 2.39.5