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
332e62ab
Commit
332e62ab
authored
Apr 20, 2011
by
Stefan Monnier
Browse files
* lisp/emacs-lisp/byte-opt.el (byte-decompile-bytecode-1): Remove dead code,
add sanity check.
parent
bfab7d85
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
7 additions
and
5 deletions
+7
-5
lisp/ChangeLog
lisp/ChangeLog
+3
-0
lisp/emacs-lisp/byte-opt.el
lisp/emacs-lisp/byte-opt.el
+4
-5
No files found.
lisp/ChangeLog
View file @
332e62ab
2011-04-20 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/byte-opt.el (byte-decompile-bytecode-1): Remove dead code,
add sanity check.
* obsolete/erc-hecomplete.el: Make obsolete.
* obsolete/: Standardize obsolescence info in the header.
...
...
lisp/emacs-lisp/byte-opt.el
View file @
332e62ab
...
...
@@ -1364,8 +1364,7 @@
(
defun
byte-decompile-bytecode-1
(
bytes
constvec
&optional
make-spliceable
)
(
let
((
length
(
length
bytes
))
(
bytedecomp-ptr
0
)
optr
tags
bytedecomp-op
offset
lap tmp
endtag)
lap
tmp
)
(
while
(
not
(
=
bytedecomp-ptr
length
))
(
or
make-spliceable
(
push
bytedecomp-ptr
lap
))
...
...
@@ -1373,7 +1372,9 @@
optr
bytedecomp-ptr
;; This uses dynamic-scope magic.
offset
(
disassemble-offset
bytes
))
(setq bytedecomp-op (aref byte-code-vector bytedecomp-op))
(
let
((
opcode
(
aref
byte-code-vector
bytedecomp-op
)))
(
assert
opcode
)
(
setq
bytedecomp-op
opcode
))
(
cond
((
memq
bytedecomp-op
byte-goto-ops
)
;; It's a pc.
(
setq
offset
...
...
@@ -1417,8 +1418,6 @@
(
setq
rest
(
cdr
rest
))))
(
setq
rest
(
cdr
rest
))))
(
if
tags
(
error
"optimizer error: missed tags %s"
tags
))
(if endtag
(setq lap (cons (cons nil endtag) lap)))
;; Remove addrs, lap = ( [ (op . arg) | (TAG tagno) ]* )
(
mapcar
(
function
(
lambda
(
elt
)
(
if
(
numberp
elt
)
...
...
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