HCoop
/
bpt
/
emacs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
5a36f62
)
(byte-decompile-bytecode-1):
author
Richard M. Stallman
<rms@gnu.org>
Fri, 15 May 1998 05:49:05 +0000
(
05:49
+0000)
committer
Richard M. Stallman
<rms@gnu.org>
Fri, 15 May 1998 05:49:05 +0000
(
05:49
+0000)
Cope with an out-of-range constvec index.
lisp/emacs-lisp/byte-opt.el
patch
|
blob
|
blame
|
history
diff --git
a/lisp/emacs-lisp/byte-opt.el
b/lisp/emacs-lisp/byte-opt.el
index
86f7309
..
63ff71a
100644
(file)
--- 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)