Mercurial > emacs
changeset 22074:b52cdd6c996e
(byte-decompile-bytecode-1):
Cope with an out-of-range constvec index.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 15 May 1998 05:49:05 +0000 |
| parents | fd752226ef74 |
| children | 577e5b25f6d3 |
| files | lisp/emacs-lisp/byte-opt.el |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/byte-opt.el Fri May 15 05:48:02 1998 +0000 +++ b/lisp/emacs-lisp/byte-opt.el Fri May 15 05:49:05 1998 +0000 @@ -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)