diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-05-15 05:49:05 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-05-15 05:49:05 +0000 |
| commit | 6ebe9f826fcecf32e220df0d0830e4742e20b6d8 (patch) | |
| tree | a63dc148e80b77b643404e4ef0fd36a0e0538aec /lisp/emacs-lisp | |
| parent | 5a36f62bee8725e53d918d18657a95ad34e7fc75 (diff) | |
| download | emacs-6ebe9f826fcecf32e220df0d0830e4742e20b6d8.tar.gz emacs-6ebe9f826fcecf32e220df0d0830e4742e20b6d8.tar.bz2 emacs-6ebe9f826fcecf32e220df0d0830e4742e20b6d8.zip | |
(byte-decompile-bytecode-1):
Cope with an out-of-range constvec index.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 4 |
1 files changed, 3 insertions, 1 deletions
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) |