[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r103956: * lisp/emacs-lisp/byte-opt.e
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r103956: * lisp/emacs-lisp/byte-opt.el (byte-decompile-bytecode-1): Remove dead code, |
Date: |
Wed, 20 Apr 2011 14:28:07 -0300 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
revno: 103956
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Wed 2011-04-20 14:28:07 -0300
message:
* lisp/emacs-lisp/byte-opt.el (byte-decompile-bytecode-1): Remove dead code,
add sanity check.
modified:
lisp/ChangeLog
lisp/emacs-lisp/byte-opt.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2011-04-20 17:18:34 +0000
+++ b/lisp/ChangeLog 2011-04-20 17:28:07 +0000
@@ -1,5 +1,8 @@
2011-04-20 Stefan Monnier <address@hidden>
+ * 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.
=== modified file 'lisp/emacs-lisp/byte-opt.el'
--- a/lisp/emacs-lisp/byte-opt.el 2011-04-01 15:16:50 +0000
+++ b/lisp/emacs-lisp/byte-opt.el 2011-04-20 17:28:07 +0000
@@ -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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r103956: * lisp/emacs-lisp/byte-opt.el (byte-decompile-bytecode-1): Remove dead code,,
Stefan Monnier <=