From: Andrea Corallo <akrl@sdf.org>
Date: Tue, 1 Feb 2022 16:58:47 +0000 (+0100)
Subject: * Improve 'maybe_defer_native_compilation'
X-Git-Tag: emacs-29.0.90~2594
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=02054d9cd1f5c6a5ca3555207235522532477e10;p=emacs.git

* Improve 'maybe_defer_native_compilation'

* src/comp.c (maybe_defer_native_compilation): Always store the
function name in Vcomp_deferred_pending_h if pending for deferred
compilation.
---

diff --git a/src/comp.c b/src/comp.c
index 5efe026b2b2..251613dc3d4 100644
--- a/src/comp.c
+++ b/src/comp.c
@@ -5127,13 +5127,14 @@ maybe_defer_native_compilation (Lisp_Object function_name,
 	return;
     }
 
+  Fputhash (function_name, definition, Vcomp_deferred_pending_h);
+
   /* This is so deferred compilation is able to compile comp
      dependencies breaking circularity.  */
   if (comp__compilable)
     {
       /* Startup is done, comp is usable.  */
       CALL0I (startup--require-comp-safely);
-      Fputhash (function_name, definition, Vcomp_deferred_pending_h);
       CALLN (Ffuncall, intern_c_string ("native--compile-async"),
 	     src, Qnil, Qlate);
     }