(byte-decompile-bytecode-1):

Cope with an out-of-range constvec index.

1 files changed, 3 insertions, 1 deletions

diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index 86f7309d1b7..63ff71ada15 100644
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -1261,7 +1261,9 @@
                                              tags)))))))
             ((cond ((eq op 'byte-constant2) (setq op 'byte-constant) t)
                    ((memq op byte-constref-ops)))
-             (setq tmp (aref constvec offset)
+             (setq tmp (if (>= offset (length constvec))
+                           (list 'out-of-range offset)
+                         (aref constvec offset))
                    offset (if (eq op 'byte-constant)
                               (byte-compile-get-constant tmp)
                             (or (assq tmp byte-compile-variables)