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

* compilation of fpc_exp_real fixed

Browse Source 
git-svn-id: branches/i8086@23843 -
This commit is contained in:
nickysn 2013-03-15 12:53:49 +00:00
parent ca1fad8a73
commit 5215bd33c2
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/i8086/math.inc
View File

@ -84,23 +84,23 @@
// comes from DJ GPP
fld tbyte[d]
fldl2e
fmulp st1, st
fmulp st(1), st
fstcw CW1
fstcw CW2
fwait
and CW2, $f3ff
orw CW2, $0400
or CW2, $0400
fldcw CW2
fld st0
fld st(0)
frndint
fldcw CW1
fxch st1
fsub st, st1
fxch st(1)
fsub st, st(1)
f2xm1
fld1
faddp st1, st
faddp st(1), st
fscale
fstp st1
fstp st(1)
end;
{$define FPC_SYSTEM_HAS_INT}