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

[Andrea Corallo]

branch: emacs-28
commit 202d3be8734343e6e4fb3eafeb5e2521365dd204
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>

    * lisp/startup.el (normal-top-level): Disable native-comp if not available
---
 lisp/startup.el | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/lisp/startup.el b/lisp/startup.el
index 71e492e3b4..59fe5428b7 100644
--- 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")))