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

* synched with i386

Browse Source 
git-svn-id: trunk@1373 -
This commit is contained in:
florian 2005-10-13 20:59:00 +00:00
parent 2dd7c144c4
commit 78abb1603d
1 changed files with 16 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
rtl/x86_64/math.inc
View File

@ -190,7 +190,7 @@ FPC_ABSMASK_DOUBLE:
fwait
fldt d
frndint
fnclex
fwait
fldcw -4(%rbp)
end;
@ -203,39 +203,29 @@ FPC_ABSMASK_DOUBLE:
newcw : word;
res : int64;
asm
fnstcw oldcw
fwait
movw oldcw,%cx
orw $0x0c3f,%cx
movw %cx,newcw
fldcw newcw
fwait
fldt d
fistpq res
movq res,%rax
fnclex
fldcw oldcw
fnstcw oldcw
fwait
movw oldcw,%cx
orw $0x0c3f,%cx
movw %cx,newcw
fldcw newcw
fldt d
fistpq res
fwait
movq res,%rax
fldcw oldcw
end;
{$define FPC_SYSTEM_HAS_ROUND}
function fpc_round_real(d : ValReal) : int64;assembler;compilerproc;
var
oldcw,
newcw : word;
res : int64;
asm
fnstcw oldcw
fwait
movw $0x1372,newcw
fnclex
fldcw newcw
fwait
fldt d
fistpq res
movq res,%rax
fnclex
fldcw oldcw
fldt d
fistpq res
fwait
movq res,%rax
end;