diff options
Diffstat (limited to 'vm/mterp/armv5te/OP_SPUT_OBJECT.S')
-rw-r--r-- | vm/mterp/armv5te/OP_SPUT_OBJECT.S | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/vm/mterp/armv5te/OP_SPUT_OBJECT.S b/vm/mterp/armv5te/OP_SPUT_OBJECT.S new file mode 100644 index 0000000..fe9fa4c --- /dev/null +++ b/vm/mterp/armv5te/OP_SPUT_OBJECT.S @@ -0,0 +1,38 @@ +%default { "barrier":"@ no-op " } +%verify "executed" +%verify "field already resolved" +%verify "field not yet resolved" +%verify "field cannot be resolved" + /* + * 32-bit SPUT handler for objects + * + * for: sput-object, sput-object-volatile + */ + /* op vAA, field@BBBB */ + ldr r2, [rGLUE, #offGlue_methodClassDex] @ r2<- DvmDex + FETCH(r1, 1) @ r1<- field ref BBBB + ldr r2, [r2, #offDvmDex_pResFields] @ r2<- dvmDex->pResFields + ldr r0, [r2, r1, lsl #2] @ r0<- resolved StaticField ptr + cmp r0, #0 @ is resolved entry null? + bne .L${opcode}_finish @ no, continue + ldr r9, [rGLUE, #offGlue_method] @ r9<- current method + EXPORT_PC() @ resolve() could throw, so export now + ldr r0, [r9, #offMethod_clazz] @ r0<- method->clazz + bl dvmResolveStaticField @ r0<- resolved StaticField ptr + cmp r0, #0 @ success? + bne .L${opcode}_finish @ yes, finish + b common_exceptionThrown @ no, handle exception + +%break +.L${opcode}_finish: @ field ptr in r0 + mov r2, rINST, lsr #8 @ r2<- AA + FETCH_ADVANCE_INST(2) @ advance rPC, load rINST + GET_VREG(r1, r2) @ r1<- fp[AA] + ldr r2, [rGLUE, #offGlue_cardTable] @ r2<- card table base + ldr r9, [r0, #offField_clazz] @ r9<- field->clazz + GET_INST_OPCODE(ip) @ extract opcode from rINST + $barrier @ releasing store + str r1, [r0, #offStaticField_value] @ field<- vAA + cmp r1, #0 @ stored a null object? + strneb r2, [r2, r9, lsr #GC_CARD_SHIFT] @ mark card based on obj head + GOTO_OPCODE(ip) @ jump to next instruction |