You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
201 lines
6.4 KiB
201 lines
6.4 KiB
%def bincmp(condition=""):
|
|
/*
|
|
* Generic two-operand compare-and-branch operation. Provide a "condition"
|
|
* fragment that specifies the comparison to perform.
|
|
*
|
|
* For: if-eq, if-ne, if-lt, if-ge, if-gt, if-le
|
|
*/
|
|
/* if-cmp vA, vB, +CCCC */
|
|
mov r1, rINST, lsr #12 @ r1<- B
|
|
ubfx r0, rINST, #8, #4 @ r0<- A
|
|
GET_VREG r3, r1 @ r3<- vB
|
|
GET_VREG r0, r0 @ r0<- vA
|
|
FETCH_S rINST, 1 @ rINST<- branch offset, in code units
|
|
cmp r0, r3 @ compare (vA, vB)
|
|
b${condition} MterpCommonTakenBranchNoFlags
|
|
cmp rPROFILE, #JIT_CHECK_OSR @ possible OSR re-entry?
|
|
beq .L_check_not_taken_osr
|
|
FETCH_ADVANCE_INST 2
|
|
GET_INST_OPCODE ip @ extract opcode from rINST
|
|
GOTO_OPCODE ip @ jump to next instruction
|
|
|
|
%def zcmp(condition=""):
|
|
/*
|
|
* Generic one-operand compare-and-branch operation. Provide a "condition"
|
|
* fragment that specifies the comparison to perform.
|
|
*
|
|
* for: if-eqz, if-nez, if-ltz, if-gez, if-gtz, if-lez
|
|
*/
|
|
/* if-cmp vAA, +BBBB */
|
|
mov r0, rINST, lsr #8 @ r0<- AA
|
|
GET_VREG r0, r0 @ r0<- vAA
|
|
FETCH_S rINST, 1 @ rINST<- branch offset, in code units
|
|
cmp r0, #0 @ compare (vA, 0)
|
|
b${condition} MterpCommonTakenBranchNoFlags
|
|
cmp rPROFILE, #JIT_CHECK_OSR @ possible OSR re-entry?
|
|
beq .L_check_not_taken_osr
|
|
FETCH_ADVANCE_INST 2
|
|
GET_INST_OPCODE ip @ extract opcode from rINST
|
|
GOTO_OPCODE ip @ jump to next instruction
|
|
|
|
%def op_goto():
|
|
/*
|
|
* Unconditional branch, 8-bit offset.
|
|
*
|
|
* The branch distance is a signed code-unit offset, which we need to
|
|
* double to get a byte offset.
|
|
*/
|
|
/* goto +AA */
|
|
sbfx rINST, rINST, #8, #8 @ rINST<- ssssssAA (sign-extended)
|
|
b MterpCommonTakenBranchNoFlags
|
|
|
|
%def op_goto_16():
|
|
/*
|
|
* Unconditional branch, 16-bit offset.
|
|
*
|
|
* The branch distance is a signed code-unit offset, which we need to
|
|
* double to get a byte offset.
|
|
*/
|
|
/* goto/16 +AAAA */
|
|
FETCH_S rINST, 1 @ rINST<- ssssAAAA (sign-extended)
|
|
b MterpCommonTakenBranchNoFlags
|
|
|
|
%def op_goto_32():
|
|
/*
|
|
* Unconditional branch, 32-bit offset.
|
|
*
|
|
* The branch distance is a signed code-unit offset, which we need to
|
|
* double to get a byte offset.
|
|
*
|
|
* Unlike most opcodes, this one is allowed to branch to itself, so
|
|
* our "backward branch" test must be "<=0" instead of "<0". Because
|
|
* we need the V bit set, we'll use an adds to convert from Dalvik
|
|
* offset to byte offset.
|
|
*/
|
|
/* goto/32 +AAAAAAAA */
|
|
FETCH r0, 1 @ r0<- aaaa (lo)
|
|
FETCH r3, 2 @ r1<- AAAA (hi)
|
|
orrs rINST, r0, r3, lsl #16 @ rINST<- AAAAaaaa
|
|
b MterpCommonTakenBranch
|
|
|
|
%def op_if_eq():
|
|
% bincmp(condition="eq")
|
|
|
|
%def op_if_eqz():
|
|
% zcmp(condition="eq")
|
|
|
|
%def op_if_ge():
|
|
% bincmp(condition="ge")
|
|
|
|
%def op_if_gez():
|
|
% zcmp(condition="ge")
|
|
|
|
%def op_if_gt():
|
|
% bincmp(condition="gt")
|
|
|
|
%def op_if_gtz():
|
|
% zcmp(condition="gt")
|
|
|
|
%def op_if_le():
|
|
% bincmp(condition="le")
|
|
|
|
%def op_if_lez():
|
|
% zcmp(condition="le")
|
|
|
|
%def op_if_lt():
|
|
% bincmp(condition="lt")
|
|
|
|
%def op_if_ltz():
|
|
% zcmp(condition="lt")
|
|
|
|
%def op_if_ne():
|
|
% bincmp(condition="ne")
|
|
|
|
%def op_if_nez():
|
|
% zcmp(condition="ne")
|
|
|
|
%def op_packed_switch(func="MterpDoPackedSwitch"):
|
|
/*
|
|
* Handle a packed-switch or sparse-switch instruction. In both cases
|
|
* we decode it and hand it off to a helper function.
|
|
*
|
|
* We don't really expect backward branches in a switch statement, but
|
|
* they're perfectly legal, so we check for them here.
|
|
*
|
|
* for: packed-switch, sparse-switch
|
|
*/
|
|
/* op vAA, +BBBB */
|
|
FETCH r0, 1 @ r0<- bbbb (lo)
|
|
FETCH r1, 2 @ r1<- BBBB (hi)
|
|
mov r3, rINST, lsr #8 @ r3<- AA
|
|
orr r0, r0, r1, lsl #16 @ r0<- BBBBbbbb
|
|
GET_VREG r1, r3 @ r1<- vAA
|
|
add r0, rPC, r0, lsl #1 @ r0<- PC + BBBBbbbb*2
|
|
bl $func @ r0<- code-unit branch offset
|
|
movs rINST, r0
|
|
b MterpCommonTakenBranch
|
|
|
|
%def op_return():
|
|
/*
|
|
* Return a 32-bit value.
|
|
*
|
|
* for: return, return-object
|
|
*/
|
|
/* op vAA */
|
|
.extern MterpThreadFenceForConstructor
|
|
bl MterpThreadFenceForConstructor
|
|
ldr lr, [rSELF, #THREAD_FLAGS_OFFSET]
|
|
mov r0, rSELF
|
|
ands lr, #THREAD_SUSPEND_OR_CHECKPOINT_REQUEST
|
|
blne MterpSuspendCheck @ (self)
|
|
mov r2, rINST, lsr #8 @ r2<- AA
|
|
GET_VREG r0, r2 @ r0<- vAA
|
|
mov r1, #0
|
|
b MterpReturn
|
|
|
|
%def op_return_object():
|
|
% op_return()
|
|
|
|
%def op_return_void():
|
|
.extern MterpThreadFenceForConstructor
|
|
bl MterpThreadFenceForConstructor
|
|
ldr lr, [rSELF, #THREAD_FLAGS_OFFSET]
|
|
mov r0, rSELF
|
|
ands lr, #THREAD_SUSPEND_OR_CHECKPOINT_REQUEST
|
|
blne MterpSuspendCheck @ (self)
|
|
mov r0, #0
|
|
mov r1, #0
|
|
b MterpReturn
|
|
|
|
%def op_return_wide():
|
|
/*
|
|
* Return a 64-bit value.
|
|
*/
|
|
/* return-wide vAA */
|
|
.extern MterpThreadFenceForConstructor
|
|
bl MterpThreadFenceForConstructor
|
|
ldr lr, [rSELF, #THREAD_FLAGS_OFFSET]
|
|
mov r0, rSELF
|
|
ands lr, #THREAD_SUSPEND_OR_CHECKPOINT_REQUEST
|
|
blne MterpSuspendCheck @ (self)
|
|
mov r2, rINST, lsr #8 @ r2<- AA
|
|
VREG_INDEX_TO_ADDR r2, r2 @ r2<- &fp[AA]
|
|
GET_VREG_WIDE_BY_ADDR r0, r1, r2 @ r0/r1 <- vAA/vAA+1
|
|
b MterpReturn
|
|
|
|
%def op_sparse_switch():
|
|
% op_packed_switch(func="MterpDoSparseSwitch")
|
|
|
|
%def op_throw():
|
|
/*
|
|
* Throw an exception object in the current thread.
|
|
*/
|
|
/* throw vAA */
|
|
EXPORT_PC
|
|
mov r2, rINST, lsr #8 @ r2<- AA
|
|
GET_VREG r1, r2 @ r1<- vAA (exception object)
|
|
cmp r1, #0 @ null object?
|
|
beq common_errNullObject @ yes, throw an NPE instead
|
|
str r1, [rSELF, #THREAD_EXCEPTION_OFFSET] @ thread->exception<- obj
|
|
b MterpException
|