From: Andrea Corallo <acorallo@gnu.org>
Date: Thu, 16 May 2024 05:42:14 +0000 (+0200)
Subject: * Fix bootstrap with checking enabled
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7b946b71f593eba07aa8ace5b930335ad9678f3c;p=emacs.git

* Fix bootstrap with checking enabled

* lisp/emacs-lisp/comp.el (comp--limplify-top-level): Set function
safety.

(cherry picked from commit 1b622ff66e32e09fb679b4d371c3be951bf7f000)
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 83ca480616f..4c76f95a0e9 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -1669,7 +1669,8 @@ into the C code forwarding the compilation unit."
                                  ;; the last function being
                                  ;; registered.
                                  :frame-size 2
-                                 :speed (comp-ctxt-speed comp-ctxt)))
+                                 :speed (comp-ctxt-speed comp-ctxt)
+                                 :safety (comp-ctxt-safety comp-ctxt)))
          (comp-func func)
          (comp-pass (make-comp-limplify
                      :curr-block (make--comp-block-lap -1 0 'top-level)