mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-26 19:18:50 +00:00
Code Issues Releases Activity

(byte-decompile-bytecode-1):

Browse Source 
Cope with an out-of-range constvec index.
This commit is contained in:
Richard M. Stallman 1998-05-15 05:49:05 +00:00
parent 5a36f62bee
commit 6ebe9f826f
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/emacs-lisp/byte-opt.el
View File

@ -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)