1 %verify "executed" 2 /* 3 * Array put, 64 bits. vBB[vCC] <- vAA. 4 */ 5 /* aput-wide vAA, vBB, vCC */ 6 FETCH(r0, 1) @ r0<- CCBB 7 mov r9, rINST, lsr #8 @ r9<- AA 8 and r2, r0, #255 @ r2<- BB 9 mov r3, r0, lsr #8 @ r3<- CC 10 GET_VREG(r0, r2) @ r0<- vBB (array object) 11 GET_VREG(r1, r3) @ r1<- vCC (requested index) 12 cmp r0, #0 @ null array object? 13 beq common_errNullObject @ yes, bail 14 ldr r3, [r0, #offArrayObject_length] @ r3<- arrayObj->length 15 add r0, r0, r1, lsl #3 @ r0<- arrayObj + index*width 16 cmp r1, r3 @ compare unsigned index, length 17 add r9, rFP, r9, lsl #2 @ r9<- &fp[AA] 18 bcc .L${opcode}_finish @ okay, continue below 19 b common_errArrayIndex @ index >= length, bail 20 @ May want to swap the order of these two branches depending on how the 21 @ branch prediction (if any) handles conditional forward branches vs. 22 @ unconditional forward branches. 23 %break 24 25 .L${opcode}_finish: 26 FETCH_ADVANCE_INST(2) @ advance rPC, load rINST 27 ldmia r9, {r2-r3} @ r2/r3<- vAA/vAA+1 28 GET_INST_OPCODE(ip) @ extract opcode from rINST 29 add r0, #offArrayObject_contents 30 stmia r0, {r2-r3} @ vBB[vCC] <- r2/r3 31 GOTO_OPCODE(ip) @ jump to next instruction 32
