diff options
| author | Andreas Schwab <schwab@linux-m68k.org> | 2011-09-17 11:29:01 +0200 |
|---|---|---|
| committer | Andreas Schwab <schwab@linux-m68k.org> | 2011-09-17 11:29:01 +0200 |
| commit | d9bbf40098801a859f4625c4aa7a8cbe99949705 (patch) | |
| tree | bcdd468e0b5f9ea3afac0268cf87b770070b9fb7 /lisp/emacs-lisp/bytecomp.el | |
| parent | eddf142cfa8542133221d4f184eed1a5d627f5d5 (diff) | |
| download | emacs-d9bbf40098801a859f4625c4aa7a8cbe99949705.tar.gz | |
* lisp/emacs-lisp/bytecomp.el (byte-compile-lapcode): Fix overflow
check. (Bug#4251)
Diffstat (limited to 'lisp/emacs-lisp/bytecomp.el')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 127f93c6858..fae402d4215 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -834,7 +834,7 @@ CONST2 may be evaulated multiple times." (setcar (cdr bytes-tail) (logand pc 255)) (setcar bytes-tail (lsh pc -8)) ;; FIXME: Replace this by some workaround. - (if (> (car bytes) 255) (error "Bytecode overflow"))) + (if (> (car bytes-tail) 255) (error "Bytecode overflow"))) (apply 'unibyte-string (nreverse bytes)))) |