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

[Erik Huelsmann]

Author: ehuelsmann
Date: Sun Feb  8 11:06:08 2009
New Revision: 11642

Log:
Remove commented-out code ("emit-unbox-*") which is superseeded by following FIX-BOXING.

Modified:
   trunk/abcl/src/org/armedbear/lisp/compiler-pass2.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	Sun Feb  8 11:06:08 2009
@@ -6750,8 +6750,6 @@
 	      (compile-forms-and-maybe-emit-clear-values arg1 'stack nil)
               (emit-push-int arg2)
               (emit-invokevirtual +lisp-object-class+ "multiplyBy" '("I") +lisp-object+)
-;;               (when (eq representation :int)
-;;                 (emit-unbox-fixnum))
               (fix-boxing representation result-type)
               (emit-move-from-stack target representation))
              (t
@@ -7097,8 +7095,6 @@
     (compile-form arg1 'stack nil)
     (compile-form arg2 'stack nil)
     (emit-invokevirtual +lisp-object-class+ "truncate" (lisp-object-arg-types 1) +lisp-object+)
-;;     (when (eq representation :int)
-;;       (emit-unbox-fixnum))
     (fix-boxing representation nil) ; FIXME use derived result type
     (emit-move-from-stack target representation)))
 
@@ -7109,8 +7105,6 @@
          (compile-form (second form) 'stack nil)
          (compile-form (third form) 'stack :int)
          (emit-invokevirtual +lisp-object-class+ "elt" '("I") +lisp-object+)
-;;          (when (eq representation :int)
-;;            (emit-unbox-fixnum))
          (fix-boxing representation nil) ; FIXME use derived result type
          (emit-move-from-stack target representation))
         (t
@@ -7507,8 +7501,6 @@
          (emit-push-current-thread)
          (emit-invokevirtual +lisp-symbol-class+ "symbolValue"
                              (list +lisp-thread+) +lisp-object+)))
-;;   (when (eq representation :int)
-;;     (emit-unbox-fixnum))
   (fix-boxing representation nil)
   (emit-move-from-stack target representation))
 
@@ -7710,8 +7702,6 @@
         (emit-push-current-thread)
         (emit-invokevirtual +lisp-symbol-class+ "symbolValue"
                             (list +lisp-thread+) +lisp-object+)
-;;         (when (eq representation :int)
-;;           (emit-unbox-fixnum))
         (fix-boxing representation nil)
         (emit-move-from-stack target representation)
         (return-from p2-symbol-value))))