Browse Source

Fix ARM FPU Exceptions for WinCE

r21952 introduced wrong code (through copy&waste) for the wince
exception-setup routines.

This patch hopefully fixes the code again.

git-svn-id: trunk@21961 -
masta 13 years ago
parent
commit
f354651180
1 changed files with 6 additions and 6 deletions
  1. 6 6
      rtl/arm/mathu.inc

+ 6 - 6
rtl/arm/mathu.inc

@@ -157,17 +157,17 @@ var
 begin
 begin
   c:=0;
   c:=0;
   if not(exInvalidOp in Mask) then
   if not(exInvalidOp in Mask) then
-    cw:=cw or _VFP_ENABLE_IM;
+    c:=c or _EM_INVALID;
   if not(exDenormalized in Mask) then
   if not(exDenormalized in Mask) then
-    cw:=cw or _VFP_ENABLE_DM;
+    c:=c or _EM_DENORMAL;
   if not(exZeroDivide in Mask) then
   if not(exZeroDivide in Mask) then
-    cw:=cw or _VFP_ENABLE_ZM;
+    c:=c or _EM_ZERODIVIDE;
   if not(exOverflow in Mask) then
   if not(exOverflow in Mask) then
-    cw:=cw or _VFP_ENABLE_OM;
+    c:=c or _EM_OVERFLOW;
   if not(exUnderflow in Mask) then
   if not(exUnderflow in Mask) then
-    cw:=cw or _VFP_ENABLE_UM;
+    c:=c or _EM_UNDERFLOW;
   if not(exPrecision in Mask) then
   if not(exPrecision in Mask) then
-    cw:=cw or _VFP_ENABLE_PM;
+    c:=c or _EM_INEXACT;
   c:=_controlfp(c, _MCW_EM);
   c:=_controlfp(c, _MCW_EM);
   Result:=ConvertExceptionMask(c);
   Result:=ConvertExceptionMask(c);
   softfloat_exception_mask:=FPUExceptionMaskToSoftFloatMask(mask);
   softfloat_exception_mask:=FPUExceptionMaskToSoftFloatMask(mask);