29 lines
1.5 KiB
ArmAsm
29 lines
1.5 KiB
ArmAsm
%default { "load":"ldr", "shift":"2", "data_offset":"MIRROR_INT_ARRAY_DATA_OFFSET" }
|
|
/*
|
|
* Array get, 32 bits or less. vAA <- vBB[vCC].
|
|
*
|
|
* Note: using the usual FETCH/and/shift stuff, this fits in exactly 17
|
|
* instructions. We use a pair of FETCH_Bs instead.
|
|
*
|
|
* for: aget, aget-boolean, aget-byte, aget-char, aget-short
|
|
*
|
|
* NOTE: assumes data offset for arrays is the same for all non-wide types.
|
|
* If this changes, specialize.
|
|
*/
|
|
/* op vAA, vBB, vCC */
|
|
FETCH_B r2, 1, 0 @ r2<- BB
|
|
mov r9, rINST, lsr #8 @ r9<- AA
|
|
FETCH_B r3, 1, 1 @ r3<- CC
|
|
GET_VREG r0, r2 @ r0<- vBB (array object)
|
|
GET_VREG r1, r3 @ r1<- vCC (requested index)
|
|
cmp r0, #0 @ null array object?
|
|
beq common_errNullObject @ yes, bail
|
|
ldr r3, [r0, #MIRROR_ARRAY_LENGTH_OFFSET] @ r3<- arrayObj->length
|
|
add r0, r0, r1, lsl #$shift @ r0<- arrayObj + index*width
|
|
cmp r1, r3 @ compare unsigned index, length
|
|
bcs common_errArrayIndex @ index >= length, bail
|
|
FETCH_ADVANCE_INST 2 @ advance rPC, load rINST
|
|
$load r2, [r0, #$data_offset] @ r2<- vBB[vCC]
|
|
GET_INST_OPCODE ip @ extract opcode from rINST
|
|
SET_VREG r2, r9 @ vAA<- r2
|
|
GOTO_OPCODE ip @ jump to next instruction
|