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

* fixed ClearExceptions (clear pending exceptions instead of all config

Browse Source 
bits)

git-svn-id: trunk@11244 -
This commit is contained in:
Jonas Maebe 2008-06-18 18:51:09 +00:00
parent 1150f7e9dc
commit 65aa64d4ed
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/powerpc/mathu.inc
View File

@ -117,6 +117,6 @@ end;
procedure ClearExceptions(RaisePending: Boolean = true); procedure ClearExceptions(RaisePending: Boolean = true);
begin begin
{ RaisePending has no effect on PPC, always raises them at the correct location } { RaisePending has no effect on PPC, always raises them at the correct location }
setFPSCR(getFPSCR and (not AllConfigBits)); setFPSCR(getFPSCR and (not ExceptionsPendingMask));
end; end;

2
rtl/powerpc64/mathu.inc
View File

@ -117,6 +117,6 @@ end;
procedure ClearExceptions(RaisePending: Boolean = true); procedure ClearExceptions(RaisePending: Boolean = true);
begin begin
{ RaisePending has no effect on PPC, always raises them at the correct location } { RaisePending has no effect on PPC, always raises them at the correct location }
setFPSCR(getFPSCR and (not AllConfigBits)); setFPSCR(getFPSCR and (not ExceptionsPendingMask));
end; end;