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

Wipe out any pre-existing exception on SetExceptionMask call for m68k cpu

Browse Source 
git-svn-id: trunk@43908 -
This commit is contained in:
pierre 2020-01-10 22:56:03 +00:00
parent 6f87a572af
commit 90d2982977
1 changed files with 4 additions and 0 deletions

4
rtl/m68k/mathu.inc
View File

@ -79,6 +79,8 @@ const
FPU68K_EXCEPT_SNAN = 1 shl (FPU68K_EXCEPT_MASK_SHIFT + 6);
FPU68K_EXCEPT_BSUN = 1 shl (FPU68K_EXCEPT_MASK_SHIFt + 7);
FPU68K_AE_MASK = $F8;
function GetExceptionMask: TFPUExceptionMask;
begin
@ -116,6 +118,8 @@ begin
mode:=mode or FPCToFPUExceptionFlags[e];
SetFPCR((GetFPCR and not FPU68K_EXCEPT_MASK) or (mode and FPU68K_EXCEPT_MASK));
{ Wipe out any previous exception }
SetFPSR(GetFPSR and (not (FPU68K_AE_MASK or FPU68K_EXCEPT_MASK)));
softfloat_exception_mask:=mask;
end;