vm/mterp/mips/OP_IPUT_OBJECT.S

   1 %default { "store":"sw", "postbarrier":"    #  noop", "prebarrier":"    #  noop", "sqnum":"0" }
   2 %verify "executed"
   3 %verify "null object"
   4 %verify "field already resolved"
   5 %verify "field not yet resolved"
   6 %verify "field cannot be resolved"
   7     /*
   8      * 32-bit instance field put.
   9      *
  10      * for: iput-object, iput-object-volatile
  11      */
  12     # op vA, vB, field                     /* CCCC */
  13     GET_OPB(a0)                            #  a0 <- B
  14     LOAD_rSELF_methodClassDex(a3)          #  a3 <- DvmDex
  15     FETCH(a1, 1)                           #  a1 <- field ref CCCC
  16     LOAD_base_offDvmDex_pResFields(a2, a3) #  a2 <- pDvmDex->pResFields
  17     GET_VREG(rOBJ, a0)                     #  rOBJ <- fp[B], the object pointer
  18     LOAD_eas2(a0, a2, a1)                  #  a0 <- resolved InstField ptr
  19     # is resolved entry null?
  20     bnez      a0, .L${opcode}_finish       #  no, already resolved
  21     LOAD_rSELF_method(a2)                  #  a2 <- current method
  22     EXPORT_PC()                            #  resolve() could throw
  23     LOAD_base_offMethod_clazz(a0, a2)      #  a0 <- method->clazz
  24     JAL(dvmResolveInstField)               #  v0 <- resolved InstField ptr
  25     # success?
  26     move      a0, v0
  27     bnez      v0, .L${opcode}_finish       #  yes, finish up
  28     b         common_exceptionThrown
  29 %break
  30
  31     /*
  32      * Currently:
  33      *  a0 holds resolved field
  34      *  rOBJ holds object
  35      */
  36 .L${opcode}_finish:
  37     #BAL(common_squeak${sqnum})
  38     GET_OPA4(a1)                           #  a1 <- A+
  39     LOAD_base_offInstField_byteOffset(a3, a0) #  a3 <- byte offset of field
  40     GET_VREG(a0, a1)                       #  a0 <- fp[A]
  41     lw        a2, offThread_cardTable(rSELF) #  a2 <- card table base
  42     # check object for null
  43     beqz      rOBJ, common_errNullObject   #  object was null
  44     FETCH_ADVANCE_INST(2)                  #  advance rPC, load rINST
  45     GET_INST_OPCODE(t0)                    #  extract opcode from rINST
  46     addu      t2, rOBJ, a3                 #  form address
  47     $prebarrier                            #  releasing store
  48     $store a0, (t2)                        #  obj.field (32 bits) <- a0
  49     $postbarrier
  50     beqz      a0, 1f                       #  stored a null reference?
  51     srl       t1, rOBJ, GC_CARD_SHIFT
  52     addu      t2, a2, t1
  53     sb        a2, (t2)                     #  mark card if not
  54 1:
  55     GOTO_OPCODE(t0)                        #  jump to next instruction