|
@@ -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
|
peter