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

Add system-configuration in the compilation output path

Browse source
This commit is contained in:
AndreaCorallo 2020-02-06 20:23:14 +00:00
parent 0da62d94e2
commit 2dae7e1b69
1 changed files with 17 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -2014,9 +2014,12 @@ Update all insn accordingly."
(defun comp-compile-ctxt-to-file (name)
"Compile as native code the current context naming it NAME.
Prepare every function for final compilation and drive the C back-end."
(comp-finalize-relocs)
(unless comp-dry-run
(comp--compile-ctxt-to-file name)))
(let ((dir (file-name-directory name)))
(comp-finalize-relocs)
(unless (file-exists-p dir)
(make-directory dir))
(unless comp-dry-run
(comp--compile-ctxt-to-file name))))
(defun comp-final (_)
"Final pass driving the C back-end for code emission."
@ -2118,9 +2121,17 @@ Return the compilation unit file name."
(let ((data input)
(comp-native-compiling t)
(comp-ctxt (make-comp-ctxt
:output (if (symbolp input)
(make-temp-file (concat (symbol-name input) "-"))
(file-name-sans-extension (expand-file-name input))))))
:output
(if (symbolp input)
(make-temp-file (concat (symbol-name input) "-"))
(let ((exp-file (expand-file-name input)))
(concat
(file-name-as-directory
(concat
(file-name-directory exp-file)
system-configuration))
(file-name-sans-extension
(file-name-nondirectory exp-file))))))))
(comp-log "\n \n" 1)
(condition-case err
(mapc (lambda (pass)