mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-06 05:52:32 -08:00
Code Issues Projects Releases Wiki Activity

(byte-compile-lapcode): Signal overflow.

Browse source
This commit is contained in:
Stefan Monnier 2009-08-26 02:56:05 +00:00
parent 78176e6906
commit 8476cfaf3d
2 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
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.

4
lisp/emacs-lisp/bytecomp.el
View file

@ -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))))