paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 07:26:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* x86_64 non-Win64 targets: calculate tan() and cotan() using x87 "fptan" instruction.

Browse Source 
git-svn-id: trunk@25996 -
This commit is contained in:
sergei 2013-11-09 11:31:27 +00:00
parent 2b1e5f7014
commit 5ea99c84fd
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
rtl/x86_64/mathu.inc
View File

@ -23,6 +23,25 @@ function arctan2(y,x : float) : float;assembler;
fpatan fpatan
fwait fwait
end; end;
{$define FPC_MATH_HAS_TAN}
function tan(x : float) : float;assembler;
asm
fldt X
fptan
fstp %st
fwait
end;
{$define FPC_MATH_HAS_COTAN}
function cotan(x : float) : float;assembler;
asm
fldt X
fptan
fdivp %st,%st(1)
fwait
end;
{$endif FPC_HAS_TYPE_EXTENDED} {$endif FPC_HAS_TYPE_EXTENDED}