|
@@ -617,13 +617,13 @@ implementation
|
|
|
begin
|
|
|
case op of
|
|
|
A_F2XM1,A_FABS,A_FADD,A_FADDP,A_FBLD,A_FBSTP,A_FCHS,A_FCOM,A_FCOMP,
|
|
|
- A_FCOMPP,A_FDECSTP,A_FDISI,A_FDIV,A_FDIVP,A_FDIVR,A_FDIVRP,
|
|
|
- A_FENI,A_FFREE,A_FIADD,A_FICOM,A_FICOMP,A_FIDIV,A_FIDIVR,A_FILD,
|
|
|
+ A_FCOMPP,A_FDECSTP,A_FDIV,A_FDIVP,A_FDIVR,A_FDIVRP,
|
|
|
+ A_FFREE,A_FIADD,A_FICOM,A_FICOMP,A_FIDIV,A_FIDIVR,A_FILD,
|
|
|
A_FIMUL,A_FINCSTP,A_FIST,A_FISTP,A_FISUB,A_FISUBR,A_FLD,A_FLD1,
|
|
|
A_FLDCW,A_FLDENV,A_FLDL2E,A_FLDL2T,A_FLDLG2,A_FLDLN2,A_FLDPI,A_FLDZ,
|
|
|
A_FMUL,A_FMULP,A_FNOP,A_FPATAN,A_FPREM,A_FPTAN,A_FRNDINT,
|
|
|
- A_FRSTOR,A_FSAVE,A_FSCALE,A_FSQRT,A_FST,A_FSTCW,
|
|
|
- A_FSTENV,A_FSTP,A_FSTSW,A_FSUB,A_FSUBP,A_FSUBR,A_FSUBRP,A_FTST,
|
|
|
+ A_FRSTOR,A_FSCALE,A_FSQRT,A_FST,
|
|
|
+ A_FSTP,A_FSUB,A_FSUBP,A_FSUBR,A_FSUBRP,A_FTST,
|
|
|
A_FXAM,A_FXCH,A_FXTRACT,A_FYL2X,A_FYL2XP1:
|
|
|
result:=true;
|
|
|
else
|