From d9bbf40098801a859f4625c4aa7a8cbe99949705 Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Sat, 17 Sep 2011 11:29:01 +0200 Subject: [PATCH] * lisp/emacs-lisp/bytecomp.el (byte-compile-lapcode): Fix overflow check. (Bug#4251) --- lisp/ChangeLog | 5 +++++ lisp/emacs-lisp/bytecomp.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6fa59a31f5d..5b4d2e8b660 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2011-09-17 Andreas Schwab + + * emacs-lisp/bytecomp.el (byte-compile-lapcode): Fix overflow + check. (Bug#4251) + 2011-09-17 Juri Linkov * window.el (window-safe-min-height, window-safe-min-width): 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)))) -- 2.39.2