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

Fix ARM FPU Exceptions for WinCE

Browse Source 
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 -
This commit is contained in:
masta 2012-07-23 22:58:02 +00:00
parent dde026f5d1
commit f354651180
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/arm/mathu.inc
View File

@ -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);