1 %default { "postbarrier":"@ no-op ", "prebarrier":"@ no-op ", "sqnum":"0" } 2 %verify "executed" 3 %verify "null object" 4 %verify "field already resolved" 5 %verify "field not yet resolved" 6 %verify "field cannot be resolved" 7 /* 8 * Jumbo 32-bit instance field put. 9 */ 10 /* iput-object/jumbo vBBBB, vCCCC, field@AAAAAAAA */ 11 FETCH(r1, 1) @ r1<- aaaa (lo) 12 FETCH(r2, 2) @ r2<- AAAA (hi) 13 FETCH(r0, 4) @ r0<- CCCC 14 ldr r3, [rSELF, #offThread_methodClassDex] @ r3<- DvmDex 15 orr r1, r1, r2, lsl #16 @ r1<- AAAAaaaa 16 ldr r2, [r3, #offDvmDex_pResFields] @ r2<- pDvmDex->pResFields 17 GET_VREG(r9, r0) @ r9<- fp[CCCC], the object pointer 18 ldr r0, [r2, r1, lsl #2] @ r0<- resolved InstField ptr 19 cmp r0, #0 @ is resolved entry null? 20 bne .L${opcode}_finish @ no, already resolved 21 8: ldr r2, [rSELF, #offThread_method] @ r2<- current method 22 EXPORT_PC() @ resolve() could throw 23 ldr r0, [r2, #offMethod_clazz] @ r0<- method->clazz 24 bl dvmResolveInstField @ r0<- resolved InstField ptr 25 b .L${opcode}_resolved @ resolved, continue 26 %break 27 28 /* 29 * Currently: 30 * r0 holds resolved field 31 * r9 holds object 32 */ 33 .L${opcode}_resolved: 34 cmp r0, #0 @ resolution unsuccessful? 35 beq common_exceptionThrown @ yes, throw exception 36 @ fall through to ${opcode}_finish 37 38 /* 39 * Currently: 40 * r0 holds resolved field 41 * r9 holds object 42 */ 43 .L${opcode}_finish: 44 @bl common_squeak${sqnum} 45 ldr r3, [r0, #offInstField_byteOffset] @ r3<- byte offset of field 46 FETCH(r1, 3) @ r1<- BBBB 47 cmp r9, #0 @ check object for null 48 GET_VREG(r0, r1) @ r0<- fp[BBBB] 49 ldr r2, [rSELF, #offThread_cardTable] @ r2<- card table base 50 beq common_errNullObject @ object was null 51 FETCH_ADVANCE_INST(5) @ advance rPC, load rINST 52 GET_INST_OPCODE(ip) @ extract opcode from rINST 53 $prebarrier @ releasing store 54 str r0, [r9, r3] @ obj.field (32 bits)<- r0 55 $postbarrier 56 cmp r0, #0 @ stored a null reference? 57 strneb r2, [r2, r9, lsr #GC_CARD_SHIFT] @ mark card if not 58 GOTO_OPCODE(ip) @ jump to next instruction 59
