Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
8476cfaf
Commit
8476cfaf
authored
Aug 26, 2009
by
Stefan Monnier
Browse files
(byte-compile-lapcode): Signal overflow.
parent
78176e69
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
7 additions
and
1 deletion
+7
-1
lisp/ChangeLog
lisp/ChangeLog
+4
-0
lisp/emacs-lisp/bytecomp.el
lisp/emacs-lisp/bytecomp.el
+3
-1
No files found.
lisp/ChangeLog
View file @
8476cfaf
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.
...
...
lisp/emacs-lisp/bytecomp.el
View file @
8476cfaf
...
...
@@ -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
))
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment