mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-10 00:00:39 -08:00
Code Issues Projects Releases Wiki Activity

propagate compiler settings to the async workers

Browse source
This commit is contained in:
Andrea Corallo 2019-11-11 07:42:01 +01:00
parent e112830510
commit 13816f14b2
1 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/emacs-lisp/comp.el
View file

@ -44,7 +44,7 @@
- 1 lite optimizations.
- 2 heavy optimizations.
- 3 max optimization level, to be used only when necessary.
The compiler can inline within the compilation unit..."
Warning: the compiler is free to perform dangerous optimizations."
:type 'number
:group 'comp)
@ -1778,8 +1778,12 @@ Prepare every function for final compilation and drive the C back-end."
(while (setf f (with-mutex comp-src-pool-mutex
(pop comp-src-pool)))
(when (comp-to-file-p f)
(let* ((cmd (concat "emacs --batch --eval="
"'(native-compile \"" f "\")'"))
(let* ((code `(let ((comp-speed ,comp-speed)
(comp-debug ,comp-debug)
(comp-verbose ,comp-verbose))
(native-compile ,f)))
(cmd (concat "emacs --batch --eval='"
(prin1-to-string code) "'"))
(prc (start-process-shell-command (concat "async compilation: " f)
"async-compile-buffer"
cmd)))