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