From: Mattias Engdegård <mattiase@acm.org>
Date: Mon, 7 Feb 2022 16:36:11 +0000 (+0100)
Subject: Pin lazily read bytecode (bug#53809)
X-Git-Tag: emacs-29.0.90~2452
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6f3c62ff07e671dff1741ae580b9a761a3bfd361;p=emacs.git

Pin lazily read bytecode (bug#53809)

* src/eval.c (Ffetch_bytecode): Bytecode strings read lazily weren't
pinned as they must be.  Do so.

Bug reported by Gregor Zattler.
---

diff --git a/src/eval.c b/src/eval.c
index c87b1bc704c..ae9b18da0bd 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -3495,6 +3495,7 @@ DEFUN ("fetch-bytecode", Ffetch_bytecode, Sfetch_bytecode,
 	      bytecode = Fstring_as_unibyte (bytecode);
 	    }
 
+	  pin_string (bytecode);
 	  ASET (object, COMPILED_BYTECODE, bytecode);
 	  ASET (object, COMPILED_CONSTANTS, XCDR (tem));
 	}