1    /*
2     * Generic 32-bit binary float operation.
3     *
4     * For: add-fp, sub-fp, mul-fp, div-fp
5     */
6
7    /* binop/2addr vA, vB */
8    movzx   rINSTbl,%ecx           # ecx<- A+
9    andb    $$0xf,%cl              # ecx<- A
10    $load    (rFP,%ecx,4)          # vAA to fp stack
11    sarl    $$4,rINST             # rINST<- B
12    $instr   (rFP,rINST,4)         # ex: faddp
13    FETCH_INST_OPCODE 1 %eax
14    ADVANCE_PC 1
15    $store    (rFP,%ecx,4)         # %st to vA
16    GOTO_NEXT_R %eax
17