[armedbear-cvs] r11518 - trunk/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Tue Dec 30 20:42:57 2008
New Revision: 11518

Log:
Eliminate dead code.

Modified:
   trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp
   trunk/abcl/src/org/armedbear/lisp/opcodes.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	Tue Dec 30 20:42:57 2008
@@ -1213,9 +1213,6 @@
     (setf *code* nil)
     (dolist (instruction code)
       (case (instruction-opcode instruction)
-        (206 ; VAR-REF
-         ;; obsolete
-         (aver nil))
         (207 ; VAR-SET
          (let ((variable (car (instruction-args instruction))))
            (aver (variable-p variable))

Modified: trunk/abcl/src/org/armedbear/lisp/opcodes.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/opcodes.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/opcodes.lisp	Tue Dec 30 20:42:57 2008
@@ -258,7 +258,7 @@
 ;; (define-opcode push-value 203 nil 1)
 ;; (define-opcode store-value 204 nil -1)
 (define-opcode clear-values 205 0 0)
-(define-opcode var-ref 206 0 0)
+;;(define-opcode var-ref 206 0 0)
 (define-opcode var-set 207 0 0)
 
 (defparameter *last-opcode* 207)