emacs-diffs
[Top][All Lists]
Advanced

[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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]