[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

feature/native-comp f8df332 1/2: * Add native compilation unit black lis

From: Andrea Corallo
Subject: feature/native-comp f8df332 1/2: * Add native compilation unit black list
Date: Wed, 6 May 2020 16:01:21 -0400 (EDT)

branch: feature/native-comp
commit f8df3320b1ceffca8d5ee7cbc566ba3cdf761e21
Author: Andrea Corallo <address@hidden>
Commit: Andrea Corallo <address@hidden>

    * Add native compilation unit black list
        * lisp/emacs-lisp/comp.el (comp-bootstrap-black-list): New customize.
        (batch-native-compile): Rework to make use of
        (batch-byte-native-compile-for-bootstrap): Add assertion to make
        logic assumption explicit.
 lisp/emacs-lisp/comp.el | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index bd4c25a..60b41f9 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -84,6 +84,13 @@ This intended for debugging the compiler itself.
   :type 'boolean
   :group 'comp)
+(defcustom comp-bootstrap-black-list
+  '("^leim/")
+  "List of regexps to exclude files from native compilation during bootstrap.
+Skip if any is matching."
+  :type 'list
+  :group 'comp)
 (defcustom comp-never-optimize-functions
   '(;; Mandatory for Emacs to be working correctly
     macroexpand scroll-down scroll-up narrow-to-region widen rename-buffer
@@ -2291,7 +2298,13 @@ Return the compilation unit file name."
 (defun batch-native-compile ()
   "Run `native-compile' on remaining command-line arguments.
 Ultra cheap impersonation of `batch-byte-compile'."
-  (mapc #'native-compile command-line-args-left))
+  (cl-loop for file in command-line-args-left
+           if (or (null byte-native-for-bootstrap)
+                  (cl-notany (lambda (re) (string-match re file))
+                             comp-bootstrap-black-list))
+           do (native-compile file)
+           else
+           do (byte-compile-file file)))
 (defun batch-byte-native-compile-for-bootstrap ()
@@ -2299,6 +2312,7 @@ Ultra cheap impersonation of `batch-byte-compile'."
 Always generate elc files too and handle native compiler expected errors."
   (if (equal (getenv "NATIVE_DISABLE") "1")
+    (cl-assert (= 1 (length command-line-args-left)))
     (let ((byte-native-for-bootstrap t)
           (byte-to-native-output-file nil))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]