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

Correct exceoption mask elements

Browse Source 
git-svn-id: trunk@22325 -
This commit is contained in:
pierre 2012-09-05 12:24:15 +00:00
parent cecc6b778c
commit fe97069b12
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/sparc/mathu.inc
View File

@ -79,11 +79,11 @@ function GetExceptionMask: TFPUExceptionMask;
{ zero divide: bit 24 } { zero divide: bit 24 }
if (fsr and (1 shl 24))=0 then if (fsr and (1 shl 24))=0 then
include(result,exInvalidOp); include(result,exZeroDivide);
{ overflow: bit 26 } { overflow: bit 26 }
if (fsr and (1 shl 26))=0 then if (fsr and (1 shl 26))=0 then
include(result,exInvalidOp); include(result,exOverflow);
{ underflow: bit 25 } { underflow: bit 25 }
if (fsr and (1 shl 25))=0 then if (fsr and (1 shl 25))=0 then