1%default {"preinstr":""}
2    /*
3     * Generic 64-bit unary operation.  Provide an "instr" line that
4     * specifies an instruction that performs "result = op r0/r1".
5     * This could be an ARM instruction or a function call.
6     *
7     * For: neg-long, not-long, neg-double, long-to-double, double-to-long
8     */
9    /* unop vA, vB */
10    mov     r3, rINST, lsr #12          @ r3<- B
11    ubfx    rINST, rINST, #8, #4        @ rINST<- A
12    VREG_INDEX_TO_ADDR r3, r3           @ r3<- &fp[B]
13    VREG_INDEX_TO_ADDR r9, rINST        @ r9<- &fp[A]
14    ldmia   r3, {r0-r1}                 @ r0/r1<- vAA
15    CLEAR_SHADOW_PAIR rINST, ip, lr     @ Zero shadow regs
16    FETCH_ADVANCE_INST 1                @ advance rPC, load rINST
17    $preinstr                           @ optional op; may set condition codes
18    $instr                              @ r0/r1<- op, r2-r3 changed
19    GET_INST_OPCODE ip                  @ extract opcode from rINST
20    stmia   r9, {r0-r1}                 @ vAA<- r0/r1
21    GOTO_OPCODE ip                      @ jump to next instruction
22    /* 10-11 instructions */
23