SinCos Optimization



Hi

procedure SinCosDKC(const Theta: Extended; var Sin, Cos: Extended);
overload;
asm
FLD Theta
FSINCOS
FSTP tbyte ptr [edx] // Cos
FSTP tbyte ptr [eax] // Sin
FWAIT
end;

procedure SinCosDKC(const Theta: Double; var Sin, Cos: Double); overload;
asm
FLD Theta
FSINCOS
FSTP qword ptr [edx] // Cos
FSTP qword ptr [eax] // Sin
FWAIT
end;

procedure SinCosDKC(const Theta: Single; var Sin, Cos: Single); overload;
asm
FLD Theta
FSINCOS
FSTP dword ptr [edx] // Cos
FSTP dword ptr [eax] // Sin
FWAIT
end;

Perhaps I should create some QC reports?

Best regards
Dennis Kjaer Christensen


.



Relevant Pages