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 rINST_HI,%ecx # ecx<- A+ 9 andb $$0xf,%cl # ecx<- A 10 $load (rFP,%ecx,4) # vAA to fp stack 11 sarl $$12,rINST_FULL # rINST_FULL<- B 12 $instr (rFP,rINST_FULL,4) # ex: faddp 13 FETCH_INST_WORD(1) 14 ADVANCE_PC(1) 15 $store (rFP,%ecx,4) # %st to vA 16 GOTO_NEXT 17