[Emacs-diffs] /srv/bzr/emacs/trunk r105803: * lisp/emacs-lisp/bytecomp.el (byte-compile-lapcode): Fix overflow

[Andreas Schwab]

------------------------------------------------------------
revno: 105803
committer: Andreas Schwab <address@hidden>
branch nick: emacs
timestamp: Sat 2011-09-17 11:29:01 +0200
message:
  * lisp/emacs-lisp/bytecomp.el (byte-compile-lapcode): Fix overflow
  check.  (Bug#4251)
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/bytecomp.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-09-17 00:46:59 +0000
+++ b/lisp/ChangeLog    2011-09-17 09:29:01 +0000
@@ -1,3 +1,8 @@
+2011-09-17  Andreas Schwab  <address@hidden>
+
+       * emacs-lisp/bytecomp.el (byte-compile-lapcode): Fix overflow
+       check.  (Bug#4251)
+
 2011-09-17  Juri Linkov  <address@hidden>
 
        * window.el (window-safe-min-height, window-safe-min-width):

=== modified file 'lisp/emacs-lisp/bytecomp.el'
--- a/lisp/emacs-lisp/bytecomp.el       2011-07-13 22:00:48 +0000
+++ b/lisp/emacs-lisp/bytecomp.el       2011-09-17 09:29:01 +0000
@@ -834,7 +834,7 @@
       (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))))