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

* add fclex for fpu exceptions to round/trunc

Browse Source
This commit is contained in:
peter 2004-07-09 23:06:11 +00:00
parent 65591edebc
commit 783f8068a5
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/i386/math.inc
View File

@ -148,6 +148,7 @@
fistpq res fistpq res
movl res,%eax movl res,%eax
movl res+4,%edx movl res+4,%edx
fclex
fldcw oldcw fldcw oldcw
end; end;
@ -168,12 +169,14 @@
fnstcw oldcw fnstcw oldcw
fwait fwait
movw $0x1372,newcw movw $0x1372,newcw
fclex
fldcw newcw fldcw newcw
fwait fwait
fldt d fldt d
fistpq res fistpq res
movl res,%eax movl res,%eax
movl res+4,%edx movl res+4,%edx
fclex
fldcw oldcw fldcw oldcw
end; end;
@ -207,7 +210,10 @@
{ {
$Log$ $Log$
Revision 1.18 2003-11-29 16:40:12 jonas Revision 1.19 2004-07-09 23:06:11 peter
* add fclex for fpu exceptions to round/trunc
Revision 1.18 2003/11/29 16:40:12 jonas
* fix power() for negative base * fix power() for negative base
Revision 1.17 2003/11/24 21:57:43 michael Revision 1.17 2003/11/24 21:57:43 michael