paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 19:39:20 +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 // comes from DJ GPP
fld tbyte[d] fld tbyte[d]
fldl2e fldl2e
fmulp st1, st fmulp st(1), st
fstcw CW1 fstcw CW1
fstcw CW2 fstcw CW2
fwait fwait
and CW2, $f3ff and CW2, $f3ff
orw CW2, $0400 or CW2, $0400
fldcw CW2 fldcw CW2
fld st0 fld st(0)
frndint frndint
fldcw CW1 fldcw CW1
fxch st1 fxch st(1)
fsub st, st1 fsub st, st(1)
f2xm1 f2xm1
fld1 fld1
faddp st1, st faddp st(1), st
fscale fscale
fstp st1 fstp st(1)
end; end;
{$define FPC_SYSTEM_HAS_INT} {$define FPC_SYSTEM_HAS_INT}