From: Gerd Möllmann <gerd@gnu.org>
Date: Sat, 30 Jul 2022 15:32:04 +0000 (+0200)
Subject: Fix native compiler handling of narrow-to-region
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~16^2~1886^2~635
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=9e6eee36b5af2e2b719bca0279a063cfbeef2042;p=emacs.git

Fix native compiler handling of narrow-to-region

* lisp/emacs-lisp/comp.el (comp-limplify-lap-inst): Use auto for
byte-narrow-to-region.
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 6e9132e4304..4354ea03a4e 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -1915,11 +1915,7 @@ and the annotation emission."
       (byte-char-syntax auto)
       (byte-buffer-substring auto)
       (byte-delete-region auto)
-      (byte-narrow-to-region
-       (comp-emit-set-call (comp-call 'narrow-to-region
-                                      (comp-slot)
-                                      (comp-slot+1)
-                                      (make-comp-mvar :constant nil))))
+      (byte-narrow-to-region auto)
       (byte-widen
        (comp-emit-set-call (comp-call 'widen)))
       (byte-end-of-line auto)