[Emacs-diffs] /srv/bzr/emacs/trunk r103956: * lisp/emacs-lisp/byte-opt.el (byte-decompile-bytecode-1): Remove dead code,

[Stefan Monnier]

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