[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
scratch/native-comp-eln-caches aa644a7 1/2: * Introduce `load-no-native'
From: |
Andrea Corallo |
Subject: |
scratch/native-comp-eln-caches aa644a7 1/2: * Introduce `load-no-native' |
Date: |
Sun, 16 Aug 2020 15:36:51 -0400 (EDT) |
branch: scratch/native-comp-eln-caches
commit aa644a7e9e085ad9838fcdfc01950fdb55a952e7
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>
* Introduce `load-no-native'
Given load loads automatically a .eln in place of a .elc we need a way
to force the .elc load in the case we really want it.
* src/lread.c (syms_of_lread): Define `load-no-native'.
(maybe_swap_for_eln): Make use of.
---
src/lread.c | 8 +++++++-
1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/src/lread.c b/src/lread.c
index 3baf9dc..c602f3e 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -1615,7 +1615,8 @@ maybe_swap_for_eln (Lisp_Object *filename, int *fd,
struct timespec mtime)
#ifdef HAVE_NATIVE_COMP
struct stat eln_st;
- if (!suffix_p (*filename, ".elc"))
+ if (load_no_native
+ || !suffix_p (*filename, ".elc"))
return;
/* Search eln in the eln-cache directories. */
@@ -5156,6 +5157,11 @@ Note that if you customize this, obviously it will not
affect files
that are loaded before your customizations are read! */);
load_prefer_newer = 0;
+ DEFVAR_BOOL ("load-no-native", load_no_native,
+ doc: /* Do not try to load the a .eln file in place of
+ a .elc one. */);
+ load_no_native = false;
+
/* Vsource_directory was initialized in init_lread. */
DEFSYM (Qcurrent_load_list, "current-load-list");