Home | History | Annotate | Download | only in armv5te
      1 %default { "store":"str", "shift":"2" }
      2 %verify "executed"
      3     /*
      4      * Array put, 32 bits or less.  vBB[vCC] <- vAA.
      5      *
      6      * Note: using the usual FETCH/and/shift stuff, this fits in exactly 17
      7      * instructions.  We use a pair of FETCH_Bs instead.
      8      *
      9      * for: aput, aput-boolean, aput-byte, aput-char, aput-short
     10      */
     11     /* op vAA, vBB, vCC */
     12     FETCH_B(r2, 1, 0)                   @ r2<- BB
     13     mov     r9, rINST, lsr #8           @ r9<- AA
     14     FETCH_B(r3, 1, 1)                   @ r3<- CC
     15     GET_VREG(r0, r2)                    @ r0<- vBB (array object)
     16     GET_VREG(r1, r3)                    @ r1<- vCC (requested index)
     17     cmp     r0, #0                      @ null array object?
     18     beq     common_errNullObject        @ yes, bail
     19     ldr     r3, [r0, #offArrayObject_length]    @ r3<- arrayObj->length
     20     add     r0, r0, r1, lsl #$shift     @ r0<- arrayObj + index*width
     21     cmp     r1, r3                      @ compare unsigned index, length
     22     bcs     common_errArrayIndex        @ index >= length, bail
     23     FETCH_ADVANCE_INST(2)               @ advance rPC, load rINST
     24     GET_VREG(r2, r9)                    @ r2<- vAA
     25     GET_INST_OPCODE(ip)                 @ extract opcode from rINST
     26     $store  r2, [r0, #offArrayObject_contents]  @ vBB[vCC]<- r2
     27     GOTO_OPCODE(ip)                     @ jump to next instruction
     28