diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/comp.c | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/src/comp.c b/src/comp.c index 3abcabc8933..28f10bed6d1 100644 --- a/src/comp.c +++ b/src/comp.c | |||
| @@ -4411,6 +4411,14 @@ dispose_comp_unit (struct Lisp_Native_Comp_Unit *comp_handle, bool delay) | |||
| 4411 | loaded the compiler and its dependencies. */ | 4411 | loaded the compiler and its dependencies. */ |
| 4412 | static Lisp_Object delayed_sources; | 4412 | static Lisp_Object delayed_sources; |
| 4413 | 4413 | ||
| 4414 | |||
| 4415 | /* Queue an asyncronous compilation for the source file defining | ||
| 4416 | FUNCTION_NAME and perform a late load. | ||
| 4417 | |||
| 4418 | NOTE: ideally would be nice to move its call simply into Fload but | ||
| 4419 | we need DEFINITION to guard against function redefinition while | ||
| 4420 | async compilation happen. */ | ||
| 4421 | |||
| 4414 | void | 4422 | void |
| 4415 | maybe_defer_native_compilation (Lisp_Object function_name, | 4423 | maybe_defer_native_compilation (Lisp_Object function_name, |
| 4416 | Lisp_Object definition) | 4424 | Lisp_Object definition) |
| @@ -4443,7 +4451,6 @@ maybe_defer_native_compilation (Lisp_Object function_name, | |||
| 4443 | || noninteractive | 4451 | || noninteractive |
| 4444 | || !NILP (Vpurify_flag) | 4452 | || !NILP (Vpurify_flag) |
| 4445 | || !COMPILEDP (definition) | 4453 | || !COMPILEDP (definition) |
| 4446 | || !FIXNUMP (AREF (definition, COMPILED_ARGLIST)) | ||
| 4447 | || !STRINGP (Vload_true_file_name) | 4454 | || !STRINGP (Vload_true_file_name) |
| 4448 | || !suffix_p (Vload_true_file_name, ".elc")) | 4455 | || !suffix_p (Vload_true_file_name, ".elc")) |
| 4449 | return; | 4456 | return; |