feature/native-comp 142cfe9 10/12: * Introduce `load-no-native'

[Andrea Corallo]

branch: feature/native-comp
commit 142cfe942f9263efd6adab5f51f2feab4740735f
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 c5bec06..521da4e 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");