1 %default { "barrier":"@ no-op " } 2 %verify "executed" 3 %verify "field already resolved" 4 %verify "field not yet resolved" 5 %verify "field cannot be resolved" 6 /* 7 * 32-bit SPUT handler for objects 8 * 9 * for: sput-object, sput-object-volatile 10 */ 11 /* op vAA, field@BBBB */ 12 ldr r2, [rGLUE, #offGlue_methodClassDex] @ r2<- DvmDex 13 FETCH(r1, 1) @ r1<- field ref BBBB 14 ldr r2, [r2, #offDvmDex_pResFields] @ r2<- dvmDex->pResFields 15 ldr r0, [r2, r1, lsl #2] @ r0<- resolved StaticField ptr 16 cmp r0, #0 @ is resolved entry null? 17 bne .L${opcode}_finish @ no, continue 18 ldr r9, [rGLUE, #offGlue_method] @ r9<- current method 19 EXPORT_PC() @ resolve() could throw, so export now 20 ldr r0, [r9, #offMethod_clazz] @ r0<- method->clazz 21 bl dvmResolveStaticField @ r0<- resolved StaticField ptr 22 cmp r0, #0 @ success? 23 bne .L${opcode}_finish @ yes, finish 24 b common_exceptionThrown @ no, handle exception 25 26 %break 27 .L${opcode}_finish: @ field ptr in r0 28 mov r2, rINST, lsr #8 @ r2<- AA 29 FETCH_ADVANCE_INST(2) @ advance rPC, load rINST 30 GET_VREG(r1, r2) @ r1<- fp[AA] 31 ldr r2, [rGLUE, #offGlue_cardTable] @ r2<- card table base 32 ldr r9, [r0, #offField_clazz] @ r9<- field->clazz 33 GET_INST_OPCODE(ip) @ extract opcode from rINST 34 $barrier @ releasing store 35 str r1, [r0, #offStaticField_value] @ field<- vAA 36 cmp r1, #0 @ stored a null object? 37 strneb r2, [r2, r9, lsr #GC_CARD_SHIFT] @ mark card based on obj head 38 GOTO_OPCODE(ip) @ jump to next instruction 39
