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

* Fix native-compile-async for bug#40602.

Browse source 
* lisp/emacs-lisp/comp.el (native-compile-async): Relax coherency condition.
This commit is contained in:
Andrea Corallo 2020-04-13 20:39:15 +01:00
parent 517c123fd4
commit 9f42f35418
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

@ -2311,9 +2311,13 @@ LOAD can be nil t or 'late."
(list "Path not a file nor directory" path)))))
(dolist (file files)
(if-let ((entry (cl-find file comp-files-queue :key #'car :test #'string=)))
(cl-assert (eq load (cdr entry))
nil "Incoherent load kind in compilation queue for %s"
file)
(when load
;; When no load is specified (plain async compilation) we
;; consider valid the one previously queued, otherwise we
;; check for coherence (bug#40602).
(cl-assert (eq load (cdr entry))
nil "Incoherent load kind in compilation queue for %s"
file))
(setf comp-files-queue (append comp-files-queue `((,file . ,load))))))
(when (zerop (comp-async-runnings))
(comp-run-async-workers)