Changeset 11642


Ignore:
Timestamp:
02/08/09 11:06:08 (12 years ago)
Author:
ehuelsmann
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

    r11641 r11642  
    67516751              (emit-push-int arg2)
    67526752              (emit-invokevirtual +lisp-object-class+ "multiplyBy" '("I") +lisp-object+)
    6753 ;;               (when (eq representation :int)
    6754 ;;                 (emit-unbox-fixnum))
    67556753              (fix-boxing representation result-type)
    67566754              (emit-move-from-stack target representation))
     
    70987096    (compile-form arg2 'stack nil)
    70997097    (emit-invokevirtual +lisp-object-class+ "truncate" (lisp-object-arg-types 1) +lisp-object+)
    7100 ;;     (when (eq representation :int)
    7101 ;;       (emit-unbox-fixnum))
    71027098    (fix-boxing representation nil) ; FIXME use derived result type
    71037099    (emit-move-from-stack target representation)))
     
    71107106         (compile-form (third form) 'stack :int)
    71117107         (emit-invokevirtual +lisp-object-class+ "elt" '("I") +lisp-object+)
    7112 ;;          (when (eq representation :int)
    7113 ;;            (emit-unbox-fixnum))
    71147108         (fix-boxing representation nil) ; FIXME use derived result type
    71157109         (emit-move-from-stack target representation))
     
    75087502         (emit-invokevirtual +lisp-symbol-class+ "symbolValue"
    75097503                             (list +lisp-thread+) +lisp-object+)))
    7510 ;;   (when (eq representation :int)
    7511 ;;     (emit-unbox-fixnum))
    75127504  (fix-boxing representation nil)
    75137505  (emit-move-from-stack target representation))
     
    77117703        (emit-invokevirtual +lisp-symbol-class+ "symbolValue"
    77127704                            (list +lisp-thread+) +lisp-object+)
    7713 ;;         (when (eq representation :int)
    7714 ;;           (emit-unbox-fixnum))
    77157705        (fix-boxing representation nil)
    77167706        (emit-move-from-stack target representation)
Note: See TracChangeset for help on using the changeset viewer.