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

+ added fpc_exp_real for i8086

Browse Source 
git-svn-id: branches/i8086@23841 -
This commit is contained in:
nickysn 2013-03-15 01:21:32 +00:00
parent a66f7b61c6
commit ca1fad8a73
1 changed files with 27 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
rtl/i8086/math.inc
View File

@ -76,6 +76,33 @@
result:=0;
end;
{$define FPC_SYSTEM_HAS_EXP}
function fpc_exp_real(d : ValReal) : ValReal;assembler;compilerproc;
var
cw1,cw2: word;
asm
// comes from DJ GPP
fld tbyte[d]
fldl2e
fmulp st1, st
fstcw CW1
fstcw CW2
fwait
and CW2, $f3ff
orw CW2, $0400
fldcw CW2
fld st0
frndint
fldcw CW1
fxch st1
fsub st, st1
f2xm1
fld1
faddp st1, st
fscale
fstp st1
end;
{$define FPC_SYSTEM_HAS_INT}
function fpc_int_real(d : ValReal) : ValReal;assembler;compilerproc;
asm