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

- disabled the i8086 math.arctan2 asm code, because it doesn't work on the 8087/80287

Browse Source 
git-svn-id: trunk@26243 -
This commit is contained in:
nickysn 2013-12-16 23:05:16 +00:00
parent 2a0a8cfc00
commit f23c521c50
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/i8086/mathu.inc
View File

@ -13,14 +13,19 @@
**********************************************************************} **********************************************************************}
{$ASMMODE intel} {$ASMMODE intel}
{$define FPC_MATH_HAS_ARCTAN2}
function arctan2(y,x : float) : float;assembler; {NOTE: the fpatan instruction on the 8087 and 80287 has the following restrictions:
0 <= ST(1) < ST(0) < +inf
so the following code requires a 387+ and is therefore disabled, so that we use the
generic implementation, until an asm optimized version, compatible with 8087/80287 is written }
{//$define FPC_MATH_HAS_ARCTAN2}
{function arctan2(y,x : float) : float;assembler;
asm asm
fld tbyte [y] fld tbyte [y]
fld tbyte [x] fld tbyte [x]
fpatan fpatan
fwait fwait
end; end;}
{//$define FPC_MATH_HAS_SINCOS} {//$define FPC_MATH_HAS_SINCOS}