paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 17:10:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ sincos implemenation for x86-64

Browse Source 
git-svn-id: trunk@22142 -
This commit is contained in:
florian 2012-08-19 22:36:59 +00:00
parent 1beea17ed2
commit 7201bd8526
1 changed files with 55 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

55
rtl/x86_64/mathu.inc
View File

@ -25,6 +25,61 @@ function arctan2(y,x : float) : float;assembler;
end;
{$endif FPC_HAS_TYPE_EXTENDED}
{$define FPC_MATH_HAS_SINCOS}
{$ifdef FPC_HAS_TYPE_EXTENDED}
procedure sincos(theta : extended;out sinus,cosinus : extended);assembler;
asm
fldt theta
fsincos
{$ifdef WIN64}
fstpt (%r8)
fstpt (%rdx)
{$else WIN64}
fstpt (%rsi)
fstpt (%rdi)
{$endif WIN64}
fwait
end;
{$endif FPC_HAS_TYPE_EXTENDED}
procedure sincos(theta : double;out sinus,cosinus : double);assembler;
var
t : double;
asm
movd %xmm0,t
fldl t
fsincos
{$ifdef WIN64}
fstpl (%r8)
fstpl (%rdx)
{$else WIN64}
fstpl (%rsi)
fstpl (%rdi)
{$endif WIN64}
fwait
end;
procedure sincos(theta : single;out sinus,cosinus : single);assembler;
var
t : single;
asm
movss %xmm0,t
flds t
fsincos
{$ifdef WIN64}
fstps (%r8)
fstps (%rdx)
{$else WIN64}
fstps (%rsi)
fstps (%rdi)
{$endif WIN64}
fwait
end;
function GetRoundMode: TFPURoundingMode;
begin
{$ifndef FPC_HAS_TYPE_EXTENDED}