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

+ SysResetFPU for Aarch64

Browse Source
This commit is contained in:
florian 2024-12-05 22:03:13 +01:00
parent a1a0c0e9ba
commit 072f1bfb29
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/aarch64/aarch64.inc
View File

@ -157,6 +157,15 @@ procedure SysInitFPU;
end;
{$define FPC_SYSTEM_HAS_SYSRESETFPU}
Procedure SysResetFPU;{$ifdef SYSTEMINLINE}inline;{$endif}
begin
softfloat_exception_flags:=[];
{ clear all "exception happened" flags we care about}
setfpsr(getfpsr and not(fpu_exception_mask shr fpu_exception_mask_to_status_mask_shift));
end;
{****************************************************************************
Move / Fill
****************************************************************************}