[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/native-comp b67e156 2/5: * Add to possibility to write per pass
From: |
Andrea Corallo |
Subject: |
feature/native-comp b67e156 2/5: * Add to possibility to write per pass specific tests |
Date: |
Thu, 2 Jul 2020 16:59:08 -0400 (EDT) |
branch: feature/native-comp
commit b67e156041fb4bb3bc4a2cc60bca4408d092b59b
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>
* Add to possibility to write per pass specific tests
* lisp/emacs-lisp/comp.el (comp-post-pass-hooks): New special
variable.
(native-compile): Run what is registered in
`comp-post-pass-hooks'.
---
lisp/emacs-lisp/comp.el | 9 ++++++++-
1 file changed, 8 insertions(+), 1 deletion(-)
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 39b47f0..205966f 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -172,6 +172,11 @@ Can be one of: 'd-default', 'd-impure' or 'd-ephemeral'.
See `comp-ctxt'.")
comp-final)
"Passes to be executed in order.")
+(defvar comp-post-pass-hooks ()
+ "Alist PASS FUNCTIONS.
+Each function in FUNCTIONS is run after PASS.
+Useful to hook into pass checkers.")
+
(defconst comp-known-ret-types '((cons . cons)
(1+ . number)
(1- . number)
@@ -2617,7 +2622,9 @@ Return the compilation unit file name."
(comp-log (format "(%s) Running pass %s:\n"
function-or-file pass)
2)
- (setf data (funcall pass data)))
+ (setf data (funcall pass data))
+ (cl-loop for f in (alist-get pass comp-post-pass-hooks)
+ do (funcall f data)))
comp-passes)
(native-compiler-error
;; Add source input.