OP_IPUT_WIDE.S revision 89c1feb0a69a7707b271086e749975b3f7acacf7 
1%verify "executed"
2%verify "null object"
3%verify "field already resolved"
4%verify "field not yet resolved"
5%verify "field cannot be resolved"
6    /* iput-wide vA, vB, field@CCCC */
7    mov     r0, rINST, lsr #12          @ r0<- B
8    ldr     r3, [rGLUE, #offGlue_methodClassDex]    @ r3<- DvmDex
9    FETCH(r1, 1)                        @ r1<- field ref CCCC
10    ldr     r2, [r3, #offDvmDex_pResFields] @ r2<- pResFields
11    GET_VREG(r9, r0)                    @ r9<- fp[B], the object pointer
12    ldr     r0, [r2, r1, lsl #2]        @ r0<- resolved InstField ptr
13    cmp     r0, #0                      @ is resolved entry null?
14    bne     .L${opcode}_finish          @ no, already resolved
158:  ldr     r2, [rGLUE, #offGlue_method] @ r2<- current method
16    EXPORT_PC()                         @ resolve() could throw
17    ldr     r0, [r2, #offMethod_clazz]  @ r0<- method->clazz
18    bl      dvmResolveInstField         @ r0<- resolved InstField ptr
19    cmp     r0, #0                      @ success?
20    bne     .L${opcode}_finish          @ yes, finish up
21    b       common_exceptionThrown
22%break
23
24    /*
25     * Currently:
26     *  r0 holds resolved field
27     *  r9 holds object
28     */
29.L${opcode}_finish:
30    mov     r2, rINST, lsr #8           @ r2<- A+
31    cmp     r9, #0                      @ check object for null
32    and     r2, r2, #15                 @ r2<- A
33    ldr     r3, [r0, #offInstField_byteOffset]  @ r3<- byte offset of field
34    add     r2, rFP, r2, lsl #2         @ r3<- &fp[A]
35    beq     common_errNullObject        @ object was null
36    FETCH_ADVANCE_INST(2)               @ advance rPC, load rINST
37    ldmia   r2, {r0-r1}                 @ r0/r1<- fp[A]
38    GET_INST_OPCODE(ip)                 @ extract opcode from rINST
39    strd    r0, [r9, r3]                @ obj.field (64 bits, aligned)<- r0
40    GOTO_OPCODE(ip)                     @ jump to next instruction
41
42