1a5069fb7eb2da846ff1fc2c903ebd8ce9fa3647fAndy McFadden%default { "store":"str", "sqnum":"0" }
2a5069fb7eb2da846ff1fc2c903ebd8ce9fa3647fAndy McFadden%verify "executed"
3a5069fb7eb2da846ff1fc2c903ebd8ce9fa3647fAndy McFadden%verify "null object"
4a5069fb7eb2da846ff1fc2c903ebd8ce9fa3647fAndy McFadden%verify "field already resolved"
5a5069fb7eb2da846ff1fc2c903ebd8ce9fa3647fAndy McFadden%verify "field not yet resolved"
6a5069fb7eb2da846ff1fc2c903ebd8ce9fa3647fAndy McFadden%verify "field cannot be resolved"
7a5069fb7eb2da846ff1fc2c903ebd8ce9fa3647fAndy McFadden    /*
8a5069fb7eb2da846ff1fc2c903ebd8ce9fa3647fAndy McFadden     * General 32-bit instance field put.
9a5069fb7eb2da846ff1fc2c903ebd8ce9fa3647fAndy McFadden     *
10a5069fb7eb2da846ff1fc2c903ebd8ce9fa3647fAndy McFadden     * for: iput, iput-object, iput-boolean, iput-byte, iput-char, iput-short
11a5069fb7eb2da846ff1fc2c903ebd8ce9fa3647fAndy McFadden     */
12a5069fb7eb2da846ff1fc2c903ebd8ce9fa3647fAndy McFadden    /* op vA, vB, field@CCCC */
13a5069fb7eb2da846ff1fc2c903ebd8ce9fa3647fAndy McFadden    mov     r0, rINST, lsr #12          @ r0<- B
149f601a917c8878204482c37aec7005054b6776fabuzbee    ldr     r3, [rSELF, #offThread_methodClassDex]    @ r3<- DvmDex
15a5069fb7eb2da846ff1fc2c903ebd8ce9fa3647fAndy McFadden    FETCH(r1, 1)                        @ r1<- field ref CCCC
16a5069fb7eb2da846ff1fc2c903ebd8ce9fa3647fAndy McFadden    ldr     r2, [r3, #offDvmDex_pResFields] @ r2<- pDvmDex->pResFields
17a5069fb7eb2da846ff1fc2c903ebd8ce9fa3647fAndy McFadden    GET_VREG(r9, r0)                    @ r9<- fp[B], the object pointer
18a5069fb7eb2da846ff1fc2c903ebd8ce9fa3647fAndy McFadden    ldr     r0, [r2, r1, lsl #2]        @ r0<- resolved InstField ptr
19a5069fb7eb2da846ff1fc2c903ebd8ce9fa3647fAndy McFadden    cmp     r0, #0                      @ is resolved entry null?
20a5069fb7eb2da846ff1fc2c903ebd8ce9fa3647fAndy McFadden    bne     .L${opcode}_finish          @ no, already resolved
219f601a917c8878204482c37aec7005054b6776fabuzbee8:  ldr     r2, [rSELF, #offThread_method]    @ r2<- current method
22a5069fb7eb2da846ff1fc2c903ebd8ce9fa3647fAndy McFadden    EXPORT_PC()                         @ resolve() could throw
23a5069fb7eb2da846ff1fc2c903ebd8ce9fa3647fAndy McFadden    ldr     r0, [r2, #offMethod_clazz]  @ r0<- method->clazz
24a5069fb7eb2da846ff1fc2c903ebd8ce9fa3647fAndy McFadden    bl      dvmResolveInstField         @ r0<- resolved InstField ptr
25a5069fb7eb2da846ff1fc2c903ebd8ce9fa3647fAndy McFadden    cmp     r0, #0                      @ success?
26a5069fb7eb2da846ff1fc2c903ebd8ce9fa3647fAndy McFadden    bne     .L${opcode}_finish          @ yes, finish up
27a5069fb7eb2da846ff1fc2c903ebd8ce9fa3647fAndy McFadden    b       common_exceptionThrown
28a5069fb7eb2da846ff1fc2c903ebd8ce9fa3647fAndy McFadden%break
29a5069fb7eb2da846ff1fc2c903ebd8ce9fa3647fAndy McFadden
30a5069fb7eb2da846ff1fc2c903ebd8ce9fa3647fAndy McFadden    /*
31a5069fb7eb2da846ff1fc2c903ebd8ce9fa3647fAndy McFadden     * Currently:
32a5069fb7eb2da846ff1fc2c903ebd8ce9fa3647fAndy McFadden     *  r0 holds resolved field
33a5069fb7eb2da846ff1fc2c903ebd8ce9fa3647fAndy McFadden     *  r9 holds object
34a5069fb7eb2da846ff1fc2c903ebd8ce9fa3647fAndy McFadden     */
35a5069fb7eb2da846ff1fc2c903ebd8ce9fa3647fAndy McFadden.L${opcode}_finish:
36a5069fb7eb2da846ff1fc2c903ebd8ce9fa3647fAndy McFadden    @bl      common_squeak${sqnum}
37a5069fb7eb2da846ff1fc2c903ebd8ce9fa3647fAndy McFadden    ldr     r3, [r0, #offInstField_byteOffset]  @ r3<- byte offset of field
38a5069fb7eb2da846ff1fc2c903ebd8ce9fa3647fAndy McFadden    ubfx    r1, rINST, #8, #4           @ r1<- A
39a5069fb7eb2da846ff1fc2c903ebd8ce9fa3647fAndy McFadden    cmp     r9, #0                      @ check object for null
40a5069fb7eb2da846ff1fc2c903ebd8ce9fa3647fAndy McFadden    GET_VREG(r0, r1)                    @ r0<- fp[A]
41a5069fb7eb2da846ff1fc2c903ebd8ce9fa3647fAndy McFadden    beq     common_errNullObject        @ object was null
42a5069fb7eb2da846ff1fc2c903ebd8ce9fa3647fAndy McFadden    FETCH_ADVANCE_INST(2)               @ advance rPC, load rINST
43a5069fb7eb2da846ff1fc2c903ebd8ce9fa3647fAndy McFadden    GET_INST_OPCODE(ip)                 @ extract opcode from rINST
44a5069fb7eb2da846ff1fc2c903ebd8ce9fa3647fAndy McFadden    $store  r0, [r9, r3]                @ obj.field (8/16/32 bits)<- r0
45a5069fb7eb2da846ff1fc2c903ebd8ce9fa3647fAndy McFadden    GOTO_OPCODE(ip)                     @ jump to next instruction
46