[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/native-comp 0b58be4 3/7: Rename comp-subr-safe-advice -> comp-su
From: |
Andrea Corallo |
Subject: |
feature/native-comp 0b58be4 3/7: Rename comp-subr-safe-advice -> comp-subr-trampoline-install |
Date: |
Tue, 6 Oct 2020 12:37:43 -0400 (EDT) |
branch: feature/native-comp
commit 0b58be4941c92d337eccadabaaba5ef8620c5b52
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>
Rename comp-subr-safe-advice -> comp-subr-trampoline-install
---
lisp/emacs-lisp/advice.el | 2 +-
lisp/emacs-lisp/comp.el | 2 +-
lisp/emacs-lisp/nadvice.el | 2 +-
3 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el
index 4df8743..fb67de3 100644
--- a/lisp/emacs-lisp/advice.el
+++ b/lisp/emacs-lisp/advice.el
@@ -2076,7 +2076,7 @@ If FUNCTION was not advised already, its advice info will
be
initialized. Redefining a piece of advice whose name is part of
the cache-id will clear the cache."
(when (subr-primitive-p (symbol-function function))
- (comp-subr-safe-advice function))
+ (comp-subr-trampoline-install function))
(cond ((not (ad-is-advised function))
(ad-initialize-advice-info function)
(ad-set-advice-info-field
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index ef13c0c..7074ff7 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -2614,7 +2614,7 @@ Return the its filename if found or nil otherwise."
`comp-eln-load-path'")))))
;;;###autoload
-(defun comp-subr-safe-advice (subr-name)
+(defun comp-subr-trampoline-install (subr-name)
"Make SUBR-NAME effectively advice-able when called from native code."
(unless (or (memq subr-name comp-never-optimize-functions)
(gethash subr-name comp-installed-trampolines-h))
diff --git a/lisp/emacs-lisp/nadvice.el b/lisp/emacs-lisp/nadvice.el
index 5b3aa70..0396132 100644
--- a/lisp/emacs-lisp/nadvice.el
+++ b/lisp/emacs-lisp/nadvice.el
@@ -333,7 +333,7 @@ is also interactive. There are 3 cases:
;; Must require explicitly as during bootstrap we have no
;; autoloads.
(require 'comp)
- (comp-subr-safe-advice subr-name))))
+ (comp-subr-trampoline-install subr-name))))
(let* ((name (cdr (assq 'name props)))
(a (advice--member-p (or name function) (if name t) (gv-deref ref))))
(when a
- feature/native-comp updated (3232000 -> 4a1bb46), Andrea Corallo, 2020/10/06
- feature/native-comp ad5a2bb 1/7: Revert "Add `advice-flet' macro", Andrea Corallo, 2020/10/06
- feature/native-comp f43dbe6 5/7: Add a test for primitive redefinition, Andrea Corallo, 2020/10/06
- feature/native-comp 4a1bb46 7/7: * Native compiling do not target a directory with no write permission, Andrea Corallo, 2020/10/06
- feature/native-comp 0b58be4 3/7: Rename comp-subr-safe-advice -> comp-subr-trampoline-install,
Andrea Corallo <=
- feature/native-comp b3ade4d 2/7: Revert "Use `advice-flet' in place of `cl-letf' to avoid primitive..., Andrea Corallo, 2020/10/06
- feature/native-comp 87c6aa1 4/7: Make primitive redefinition effective through trampoline synthesis, Andrea Corallo, 2020/10/06
- feature/native-comp 29f7024 6/7: * Fix a test in test/lisp/subr-tests.el, Andrea Corallo, 2020/10/06