[Emacs-diffs] emacs/lisp ChangeLog emacs-lisp/bytecomp.el

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/08/26 02:56:08

Modified files:
        lisp           : ChangeLog 
        lisp/emacs-lisp: bytecomp.el 

Log message:
        (byte-compile-lapcode): Signal overflow.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16010&r2=1.16011
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/emacs-lisp/bytecomp.el?cvsroot=emacs&r1=2.251&r2=2.252

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16010
retrieving revision 1.16011
diff -u -b -r1.16010 -r1.16011
--- ChangeLog   25 Aug 2009 10:26:16 -0000      1.16010
+++ ChangeLog   26 Aug 2009 02:56:05 -0000      1.16011
@@ -1,3 +1,7 @@
+2009-08-26  Andreas Schwab  <address@hidden>
+
+       * emacs-lisp/bytecomp.el (byte-compile-lapcode): Signal overflow.
+
 2009-08-25  Michael Albinus  <address@hidden>
 
        * simple.el (process-file-side-effects): New defvar.

Index: emacs-lisp/bytecomp.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/bytecomp.el,v
retrieving revision 2.251
retrieving revision 2.252
diff -u -b -r2.251 -r2.252
--- emacs-lisp/bytecomp.el      25 Aug 2009 07:36:49 -0000      2.251
+++ emacs-lisp/bytecomp.el      26 Aug 2009 02:56:08 -0000      2.252
@@ -854,7 +854,9 @@
              (t                        ; Absolute jump
               (setq pc (car (cdr (car bytes))))        ; Pick PC from tag
               (setcar (cdr bytes) (logand pc 255))
-              (setcar bytes (lsh pc -8))))
+              (setcar bytes (lsh pc -8))
+               ;; FIXME: Replace this by some workaround.
+               (if (> (car bytes) 255) (error "Bytecode overflow"))))))
        (setq patchlist (cdr patchlist))))
     (apply 'unibyte-string (nreverse bytes))))