From: Andrea Corallo <akrl@sdf.org>
Date: Thu, 10 Feb 2022 08:46:31 +0000 (+0100)
Subject: * lisp/startup.el (normal-top-level): Disable native-comp if not available
X-Git-Tag: emacs-28.0.92~57
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=202d3be8734343e6e4fb3eafeb5e2521365dd204;p=emacs.git

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

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