[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/native-comp 144e8f6 1/3: Prefix native compilation folders with
From: |
Andrea Corallo |
Subject: |
feature/native-comp 144e8f6 1/3: Prefix native compilation folders with "eln-" |
Date: |
Sat, 14 Mar 2020 11:15:40 -0400 (EDT) |
branch: feature/native-comp
commit 144e8f64b69e01a6c870574d04c92368f0056dd0
Author: Andrea Corallo <address@hidden>
Commit: Andrea Corallo <address@hidden>
Prefix native compilation folders with "eln-"
---
lisp/emacs-lisp/comp.el | 1 +
src/comp.c | 11 ++++++-----
2 files changed, 7 insertions(+), 5 deletions(-)
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 64eb46c..0779373 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -2126,6 +2126,7 @@ Return the compilation unit file name."
(if (symbolp input)
(make-temp-file (concat (symbol-name input) "-"))
(let ((exp-file (expand-file-name input)))
+ (cl-assert comp-native-path-postfix)
(concat
(file-name-as-directory
(concat
diff --git a/src/comp.c b/src/comp.c
index 8176ba2..b9ecef0 100644
--- a/src/comp.c
+++ b/src/comp.c
@@ -266,11 +266,12 @@ hash_native_abi (void)
/* If 10 characters are usually sufficient for git I guess 16 are
fine for us here. */
Vcomp_native_path_postfix =
- concat3 (Vsystem_configuration,
- make_string ("-", 1),
- Fsubstring_no_properties (Vcomp_abi_hash,
- make_fixnum (0),
- make_fixnum (16)));
+ concat3 (make_string ("eln-", 4),
+ Vsystem_configuration,
+ concat2 (make_string ("-", 1),
+ Fsubstring_no_properties (Vcomp_abi_hash,
+ make_fixnum (0),
+ make_fixnum (16))));
}
static void