1    /*
2     * Generic 32bit-to-64bit floating point unary operation.  Provide an
3     * "instr" line that specifies an instruction that performs "d0 = op s0".
4     *
5     * For: int-to-double, float-to-double
6     */
7    /* unop vA, vB */
8    mov     r3, rINST, lsr #12          @ r3<- B
9    VREG_INDEX_TO_ADDR r3, r3           @ r3<- &vB
10    flds    s0, [r3]                    @ s0<- vB
11    ubfx    r9, rINST, #8, #4           @ r9<- A
12    FETCH_ADVANCE_INST 1                @ advance rPC, load rINST
13    $instr                              @ d0<- op
14    CLEAR_SHADOW_PAIR r9, ip, lr        @ Zero shadow regs
15    GET_INST_OPCODE ip                  @ extract opcode from rINST
16    VREG_INDEX_TO_ADDR r9, r9           @ r9<- &vA
17    fstd    d0, [r9]                    @ vA<- d0
18    GOTO_OPCODE ip                      @ jump to next instruction
19