* 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'.

1 files changed, 8 insertions, 1 deletions

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 39b47f079e2..205966f57c6 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.