From: Gerd Möllmann <gerd@gnu.org>
Date: Fri, 29 Jul 2022 15:28:25 +0000 (+0200)
Subject: Adapt native compiler to change in narrow-to-region
X-Git-Tag: emacs-29.0.90~1447^2~665
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9ebd0455f344e6806400fef2ee0b410a33b68ad5;p=emacs.git

Adapt native compiler to change in narrow-to-region

* lisp/emacs-lisp/comp.el (comp-limplify-lap-inst): Add third
argument nil for narrow-to-region.
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 5ee10fcbca2..6e9132e4304 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -1918,7 +1918,8 @@ and the annotation emission."
       (byte-narrow-to-region
        (comp-emit-set-call (comp-call 'narrow-to-region
                                       (comp-slot)
-                                      (comp-slot+1))))
+                                      (comp-slot+1)
+                                      (make-comp-mvar :constant nil))))
       (byte-widen
        (comp-emit-set-call (comp-call 'widen)))
       (byte-end-of-line auto)