procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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