blob: 797b692ee6dbf6429d34e925e8c8dc343da93d1c [file] [log] [blame]
%default { "reg":"%ecx", "store":"movl", "shift":"4" }
%verify "executed"
/*
* Array put, 32 bits or less. vBB[vCC] <- vAA
*
* for: aput, aput-object, aput-boolean, aput-byte, aput-char, aput-short
*/
/* op vAA, vBB, vCC */
movzbl 2(rPC),%eax # eax<- BB
movzbl 3(rPC),%ecx # ecx<- CC
GET_VREG_R %eax %eax # eax<- vBB (array object)
GET_VREG_R %ecx %ecx # ecs<- vCC (requested index)
testl %eax,%eax # null array object?
je common_errNullObject # bail if so
cmpl offArrayObject_length(%eax),%ecx
jae common_errArrayIndex # index >= length, bail. Expects:
# arrayObj in eax
# index in ecx
leal offArrayObject_contents(%eax,%ecx,$shift),%eax
.L${opcode}_finish:
GET_VREG_R %ecx rINST
FETCH_INST_OPCODE 2 %edx
$store $reg,(%eax)
ADVANCE_PC 2
GOTO_NEXT_R %edx