vm/mterp/mips/OP_IPUT_JUMBO.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      * Jumbo 32-bit instance field put.
   9      *
  10      * for: iput/jumbo, iput-boolean/jumbo, iput-byte/jumbo, iput-char/jumbo,
  11      *      iput-short/jumbo
  12      */
  13     /* exop vBBBB, vCCCC, field@AAAAAAAA */
  14     FETCH(a1, 1)                           # a1<- aaaa (lo)
  15     FETCH(a2, 2)                           # a2<- AAAA (hi)
  16     FETCH(a0, 4)                           # a0<- CCCC
  17     LOAD_rSELF_methodClassDex(a3)          #  a3 <- DvmDex
  18     sll       a2,a2,16
  19     or        a1, a1, a2                   #  a1<- AAAAaaaa
  20     LOAD_base_offDvmDex_pResFields(a2, a3) #  a2 <- pDvmDex->pResFields
  21     GET_VREG(rOBJ, a0)                     #  rOBJ <- fp[B], the object pointer
  22     LOAD_eas2(a0, a2, a1)                  #  a0 <- resolved InstField ptr
  23     # is resolved entry null?
  24     bnez      a0, .L${opcode}_finish       #  no, already resolved
  25     LOAD_rSELF_method(a2)                  #  a2 <- current method
  26     EXPORT_PC()                            #  resolve() could throw
  27     LOAD_base_offMethod_clazz(a0, a2)      #  a0 <- method->clazz
  28     JAL(dvmResolveInstField)               #  v0 <- resolved InstField ptr
  29     b       .L${opcode}_resolved           # resolved, continue
  30
  31 %break
  32
  33 .L${opcode}_resolved:
  34     move      a0, v0
  35     beqz      a0, common_exceptionThrown
  36     # fall through to ${opcode}_finish
  37
  38
  39     /*
  40      * Currently:
  41      *  a0 holds resolved field
  42      *  rOBJ holds object
  43      */
  44 .L${opcode}_finish:
  45     #BAL(common_squeak${sqnum})
  46     LOAD_base_offInstField_byteOffset(a3, a0) #  a3 <- byte offset of field
  47     FETCH(a1, 3)                           # a1<- BBBB
  48     GET_VREG(a0, a1)                       #  a0 <- fp[BBBB]
  49     # check object for null
  50     beqz      rOBJ, common_errNullObject   #  object was null
  51     FETCH_ADVANCE_INST(5)                  #  advance rPC, load rINST
  52     GET_INST_OPCODE(t0)                    #  extract opcode from rINST
  53     addu      rOBJ, rOBJ, a3               #  form address
  54     $prebarrier                            #  releasing store
  55     $store a0, (rOBJ)                      #  obj.field (8/16/32 bits) <- a0
  56     $postbarrier
  57     GOTO_OPCODE(t0)                        #  jump to next instruction