[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/native-comp 7565a4a 5/9: Command late load when deferring compil
From: |
Andrea Corallo |
Subject: |
feature/native-comp 7565a4a 5/9: Command late load when deferring compilation |
Date: |
Thu, 19 Mar 2020 14:41:52 -0400 (EDT) |
branch: feature/native-comp
commit 7565a4a1170bf36352ffd7283c18ac1843ae8123
Author: Andrea Corallo <address@hidden>
Commit: Andrea Corallo <address@hidden>
Command late load when deferring compilation
---
lisp/emacs-lisp/comp.el | 4 +++-
src/comp.c | 4 +++-
2 files changed, 6 insertions(+), 2 deletions(-)
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index f1e99c5..44de274 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -41,7 +41,9 @@
:group 'lisp)
(defcustom comp-deferred-compilation nil
- "If t compile asyncronously all lexically bound .elc files being loaded."
+ "If t compile asyncronously all lexically bound .elc files being loaded.
+Once compilation happened each function definition is updated to
+the native compiled one."
:type 'boolean
:group 'comp)
diff --git a/src/comp.c b/src/comp.c
index 3f2b45c..d645b59 100644
--- a/src/comp.c
+++ b/src/comp.c
@@ -3381,7 +3381,8 @@ maybe_defer_native_compilation (Lisp_Object function_name,
concat2 (CALL1I (file-name-sans-extension, Vload_file_name),
build_pure_c_string (".el"));
if (!NILP (Ffile_exists_p (src)))
- CALLN (Ffuncall, intern_c_string ("native-compile-async"), src, Qnil);
+ CALLN (Ffuncall, intern_c_string ("native-compile-async"), src, Qnil,
+ Qlate);
}
@@ -3639,6 +3640,7 @@ syms_of_comp (void)
/* Others. */
DEFSYM (Qfixnum, "fixnum");
DEFSYM (Qscratch, "scratch");
+ DEFSYM (Qlate, "late");
/* To be signaled by the compiler. */
DEFSYM (Qnative_compiler_error, "native-compiler-error");
- feature/native-comp updated (e57d5a7 -> 64a6709), Andrea Corallo, 2020/03/19
- feature/native-comp f2c4377 1/9: * comp.el: Have the compiler generates 'late_top_level_run', Andrea Corallo, 2020/03/19
- feature/native-comp b53fc68 3/9: Extend low level code for late load, Andrea Corallo, 2020/03/19
- feature/native-comp 034d9b3 2/9: * comp.el: late-load support optional as `native-compile' parameter, Andrea Corallo, 2020/03/19
- feature/native-comp 7565a4a 5/9: Command late load when deferring compilation,
Andrea Corallo <=
- feature/native-comp 64a6709 9/9: * comp.el (comp-async-jobs-number): Fix customize type., Andrea Corallo, 2020/03/19
- feature/native-comp 0179d95 6/9: * comp.c (native-elisp-load): Guard against misisng file., Andrea Corallo, 2020/03/19
- feature/native-comp c3e640b 4/9: * comp.el: Extend `native-compile-async' for load and late-load, Andrea Corallo, 2020/03/19
- feature/native-comp b070571 7/9: * comp.el (comp-run-async-workers): Load only if compilation succeed, Andrea Corallo, 2020/03/19
- feature/native-comp 981cc15 8/9: Merge remote-tracking branch 'savannah/master' into HEAD, Andrea Corallo, 2020/03/19