Commit 8476cfaf authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(byte-compile-lapcode): Signal overflow.

parent 78176e69
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.
......
......@@ -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))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment