feature/native-comp b67e156 2/5: * Add to possibility to write per pass specific tests

[Andrea Corallo]

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.