From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sun, 4 Feb 2024 18:51:13 +0000 (-0500)
Subject: * src/lread.c (bytecode_from_rev_list): Fix assertion failure
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=89a598a37162a7a3ef6ed4cf4bdbf9602f6ea671;p=emacs.git

* src/lread.c (bytecode_from_rev_list): Fix assertion failure

The assertion failure was raised at lread.c:411 during the
`lread-invalid-bytecodes` test in `test/src/lread-tests.el`.
I suspect we could remove the assertion instead.

(cherry picked from commit 7d3c3cad9392d3f8e59f85522053c249aff062e5)
---

diff --git a/src/lread.c b/src/lread.c
index b1b109315f9..b5eeb55bb70 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -3496,7 +3496,7 @@ bytecode_from_rev_list (Lisp_Object elems, Lisp_Object readcharfun)
   Lisp_Object *vec = XVECTOR (obj)->contents;
   ptrdiff_t size = ASIZE (obj);
 
-  if (size >= COMPILED_CONSTANTS)
+  if (infile && size >= COMPILED_CONSTANTS)
     {
       /* Always read 'lazily-loaded' bytecode (generated by the
          `byte-compile-dynamic' feature prior to Emacs 30) eagerly, to