Avoid native compiler setting user-init-file to warnings.el (bug#59358)

* src/lread.c (maybe_swap_for_eln): Use a delayed warning
instead of `display-warning' to avoid a recursive call to
Fload while loading the init file that sets `user-init-file'
to a bogus value.

1 files changed, 9 insertions, 6 deletions

diff --git a/src/lread.c b/src/lread.c
index c28324dc35b..2a57f721943 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -1741,12 +1741,15 @@ maybe_swap_for_eln (bool no_native, Lisp_Object *filename, int *fd,
                                                Vload_path,
                                                Qnil, Qnil)))
                 return;
-              call2 (intern_c_string ("display-warning"),
-                     Qcomp,
-                     CALLN (Fformat,
-                            build_string ("Cannot look up eln file as "
-                                          "no source file was found for %s"),
-                            *filename));
+              Vdelayed_warnings_list
+                = Fcons (list2
+                         (Qcomp,
+                          CALLN (Fformat,
+                                 build_string ("Cannot look up eln "
+                                               "file as no source file "
+                                               "was found for %s"),
+                                 *filename)),
+                         Vdelayed_warnings_list);
               return;
             }
         }