Changeset 11508


Ignore:
Timestamp:
12/29/08 21:26:28 (12 years ago)
Author:
ehuelsmann
Message:

Cleanup: `, -> (nothing); (EMIT 'LABEL ...) -> (LABEL ...)

File:
1 edited

Legend:

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

    r11507 r11508  
    569569    (emit 'arraylength)
    570570    (emit-push-constant-int arity)
    571     (emit 'if_icmpeq `,label1)
     571    (emit 'if_icmpeq label1)
    572572    (aload 0) ; this
    573573    (emit-invokevirtual *this-class* "argCountError" nil nil)
    574     (emit 'label `,label1)))
     574    (label label1)))
    575575
    576576(defun maybe-generate-interrupt-check ()
     
    578578    (let ((label1 (gensym)))
    579579      (emit 'getstatic +lisp-class+ "interrupted" "Z")
    580       (emit 'ifeq `,label1)
     580      (emit 'ifeq label1)
    581581      (emit-invokestatic +lisp-class+ "handleInterrupt" nil nil)
    582       (emit 'label `,label1))))
     582      (label label1))))
    583583
    584584(defknown single-valued-p (t) t)
     
    24122412     (let ((LABEL1 (gensym))
    24132413           (LABEL2 (gensym)))
    2414        (emit (if (eq op 'EQ) 'if_acmpne 'if_acmpeq) `,LABEL1)
     2414       (emit (if (eq op 'EQ) 'if_acmpne 'if_acmpeq) LABEL1)
    24152415       (emit-push-true representation)
    2416        (emit 'goto `,LABEL2)
    2417        (label `,LABEL1)
     2416       (emit 'goto LABEL2)
     2417       (label LABEL1)
    24182418       (emit-push-false representation)
    2419        (label `,LABEL2))
     2419       (label LABEL2))
    24202420     (emit-move-from-stack target representation))
    24212421   t)
     
    24312431       (emit-push-nil)
    24322432       (emit 'goto label2)
    2433        (emit 'label label1)
     2433       (label label1)
    24342434       (emit-push-t)
    2435        (emit 'label label2)))))
     2435       (label label2)))))
    24362436
    24372437(defknown p2-eql (t t t) t)
     
    24512451           (let ((label1 (gensym))
    24522452                 (label2 (gensym)))
    2453              (emit 'if_icmpeq `,label1)
     2453             (emit 'if_icmpeq label1)
    24542454             (emit-push-false representation)
    2455              (emit 'goto `,label2)
    2456              (emit 'label `,label1)
     2455             (emit 'goto label2)
     2456             (label label1)
    24572457             (emit-push-true representation)
    2458              (emit 'label `,label2)))
     2458             (label label2)))
    24592459          ((fixnum-type-p type2)
    24602460     (compile-forms-and-maybe-emit-clear-values arg1 'stack nil
     
    73227322             (emit-push-true representation)
    73237323             (emit 'goto LABEL2)
    7324              (emit 'label LABEL1)
     7324             (label LABEL1)
    73257325             (emit-push-false representation)
    7326              (emit 'label LABEL2)))
     7326             (label LABEL2)))
    73277327          ((eq representation :boolean)
    73287328     (compile-forms-and-maybe-emit-clear-values arg 'stack :boolean)
     
    73367336             (emit-push-nil)
    73377337             (emit 'goto LABEL2)
    7338              (emit 'label LABEL1)
     7338             (label LABEL1)
    73397339             (emit-push-t)
    7340              (emit 'label LABEL2)))
     7340             (label LABEL2)))
    73417341          (t
    73427342     (compile-forms-and-maybe-emit-clear-values arg 'stack nil)
     
    73477347             (emit-push-nil)
    73487348             (emit 'goto LABEL2)
    7349              (emit 'label LABEL1)
     7349             (label LABEL1)
    73507350             (emit-push-t)
    7351              (emit 'label LABEL2)))))
     7351             (label LABEL2)))))
    73527352  (emit-move-from-stack target representation))
    73537353
     
    74247424         (compile-form arg2 'stack representation)
    74257425         (emit 'goto LABEL2)
    7426          (emit 'label LABEL1)
     7426         (label LABEL1)
    74277427         (fix-boxing representation nil) ; FIXME use derived result type
    7428          (emit 'label LABEL2)
     7428         (label LABEL2)
    74297429         (emit-move-from-stack target representation)))
    74307430      (t
Note: See TracChangeset for help on using the changeset viewer.