From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 15 May 1998 05:49:05 +0000 (+0000)
Subject: (byte-decompile-bytecode-1):
X-Git-Tag: emacs-20.3~1003
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6ebe9f826fcecf32e220df0d0830e4742e20b6d8;p=emacs.git

(byte-decompile-bytecode-1):
Cope with an out-of-range constvec index.
---

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)