* lisp/startup.el (normal-top-level): Disable native-comp if not available

diff --git a/lisp/startup.el b/lisp/startup.el
index 71e492e3b4ac9e639d81e13f835e8d15ba18ae16..59fe5428b7ef10ad5d70789cc03ad8e6156a9f7d 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -537,6 +537,13 @@ It is the default value of the variable `top-level'."
     (setq user-emacs-directory
          (startup--xdg-or-homedot startup--xdg-config-home-emacs nil))
 
+    (unless (native-comp-available-p)
+      ;; Disable deferred async compilation and trampoline synthesis
+      ;; in this session.  This is necessary if libgccjit is not
+      ;; available on MS-Windows.
+      (setq native-comp-deferred-compilation nil
+            comp-enable-subr-trampolines nil))
+
     (when (featurep 'native-compile)
       ;; Form `native-comp-eln-load-path'.
       (let ((path-env (getenv "EMACSNATIVELOADPATH")))