# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 895211345 0
# Node ID b52cdd6c996e58e99fc390172fbf58e6efbaf1ef
# Parent  fd752226ef7400ef530249c1a6cde8326870da1c
(byte-decompile-bytecode-1):
Cope with an out-of-range constvec index.

diff -r fd752226ef74 -r b52cdd6c996e lisp/emacs-lisp/byte-opt.el
--- a/lisp/emacs-lisp/byte-opt.el	Fri May 15 05:48:02 1998 +0000
+++ b/lisp/emacs-lisp/byte-opt.el	Fri May 15 05:49:05 1998 +0000
@@ -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)