mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

add customize comp-never-optimize-functions

Browse source
This commit is contained in:
Andrea Corallo 2019-12-29 14:10:19 +01:00
parent 00f7fd7d42
commit e666bf781f
1 changed files with 11 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/emacs-lisp/comp.el
View file

@ -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