diff options
author | Andrea Corallo <akrl@sdf.org> | 2022-10-19 22:08:41 +0200 |
---|---|---|
committer | Andrea Corallo <akrl@sdf.org> | 2022-10-19 22:21:03 +0200 |
commit | 56c63ca21b3e5e2d0bb05d3897ea287a754c5b29 (patch) | |
tree | 09a414d1ebc2ae44431bc35bac47784bba0ceb8c /lisp/emacs-lisp/comp.el | |
parent | a57a3746d8404abef82b6d0de670b2358ef01a24 (diff) | |
download | emacs-56c63ca21b3e5e2d0bb05d3897ea287a754c5b29.tar.gz |
* Fix async native compilation (bug#58637)
* lisp/emacs-lisp/comp.el (comp--native-compile): Fix gate condition.
(comp-run-async-workers): Add assetion.
Diffstat (limited to 'lisp/emacs-lisp/comp.el')
-rw-r--r-- | lisp/emacs-lisp/comp.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index 2c9b79334ba..5a05fe4854b 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -3928,6 +3928,7 @@ processes from `comp-async-compilations'" "Start compiling files from `comp-files-queue' asynchronously. When compilation is finished, run `native-comp-async-all-done-hook' and display a message." + (cl-assert (null comp-no-spawn)) (if (or comp-files-queue (> (comp-async-runnings) 0)) (unless (>= (comp-async-runnings) (comp-effective-async-max-jobs)) @@ -4048,7 +4049,7 @@ the deferred compilation mechanism." (stringp function-or-file)) (signal 'native-compiler-error (list "Not a function symbol or file" function-or-file))) - (unless comp-no-spawn + (when (or (null comp-no-spawn) comp-async-compilation) (catch 'no-native-compile (let* ((print-symbols-bare t) (data function-or-file) |