(byte-compile-lapcode): Signal overflow.

8476cfaf · Stefan Monnier · 78176e69 · 8476cfaf · 8476cfaf
Commit 8476cfaf authored Aug 26, 2009 by Stefan Monnier
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 1 deletion

lisp/ChangeLog lisp/ChangeLog +4 -0

lisp/emacs-lisp/bytecomp.el lisp/emacs-lisp/bytecomp.el +3 -1

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
+2009-08-26  Andreas Schwab  <schwab@linux-m68k.org>
+
+	* emacs-lisp/bytecomp.el (byte-compile-lapcode): Signal overflow.
+
 2009-08-25  Michael Albinus  <michael.albinus@gmx.de>

 	* simple.el (process-file-side-effects): New defvar.

--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -854,7 +854,9 @@ otherwise pop it")
 	      (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))))