Changeset 11517


Ignore:
Timestamp:
12/30/08 20:31:30 (12 years ago)
Author:
ehuelsmann
Message:

Replace Java type indicator with pre-existing constant with the same purpose.

File:
1 edited

Legend:

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

    r11509 r11517  
    10991099                   (inst 'aconst_null)
    11001100                   (inst 'putfield (list +lisp-thread-class+ "_values"
    1101                                          "[Lorg/armedbear/lisp/LispObject;")))))
     1101                                         +lisp-object-array+)))))
    11021102             (dolist (instruction instructions)
    11031103               (vector-push-extend (resolve-instruction instruction) vector))))
     
    37103710    ;; Save multiple values returned by first subform.
    37113711    (emit-push-current-thread)
    3712     (emit 'getfield +lisp-thread-class+ "_values" "[Lorg/armedbear/lisp/LispObject;")
     3712    (emit 'getfield +lisp-thread-class+ "_values" +lisp-object-array+)
    37133713    (astore values-register)
    37143714    (dolist (subform subforms)
     
    37173717    (emit-push-current-thread)
    37183718    (aload values-register)
    3719     (emit 'putfield +lisp-thread-class+ "_values" "[Lorg/armedbear/lisp/LispObject;")
     3719    (emit 'putfield +lisp-thread-class+ "_values" +lisp-object-array+)
    37203720    ;; Result.
    37213721    (aload result-register)
     
    38743874             ;; Store values from values form in values register.
    38753875             (emit-push-current-thread)
    3876              (emit 'getfield +lisp-thread-class+ "_values" "[Lorg/armedbear/lisp/LispObject;")
     3876             (emit 'getfield +lisp-thread-class+ "_values" +lisp-object-array+)
    38773877             (emit-move-from-stack values-register)
    38783878             ;; Did we get just one value?
     
    81158115        (compile-form protected-form result-register nil)
    81168116        (emit-push-current-thread)
    8117         (emit 'getfield +lisp-thread-class+ "_values" "[Lorg/armedbear/lisp/LispObject;")
     8117        (emit 'getfield +lisp-thread-class+ "_values" +lisp-object-array+)
    81188118        (astore values-register)
    81198119        (label END-PROTECTED-RANGE))
     
    81378137      (emit-push-current-thread)
    81388138      (aload values-register)
    8139       (emit 'putfield +lisp-thread-class+ "_values" "[Lorg/armedbear/lisp/LispObject;")
     8139      (emit 'putfield +lisp-thread-class+ "_values" +lisp-object-array+)
    81408140      ;; Result.
    81418141      (aload result-register)
Note: See TracChangeset for help on using the changeset viewer.