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

* GetExceptionMask returned inverted result for exInvalidOp

Browse Source 
git-svn-id: trunk@3148 -
This commit is contained in:
Jonas Maebe 2006-04-05 07:46:18 +00:00
parent 82b6546997
commit 35fe1b27cd
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/powerpc/mathu.inc
View File

@ -81,7 +81,7 @@ end;
function GetExceptionMask: TFPUExceptionMask;
begin
result := [];
if ((getFPSCR and InvalidOperationMask) <> 0) then
if ((getFPSCR and InvalidOperationMask) = 0) then
result := result + [exInvalidOp];
if ((getFPSCR and OverflowMask) = 0) then
result := result + [exOverflow];