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

Fix the init state of LoongArch FPU exception bit

Browse Source
This commit is contained in:
Jinyang He 2023-06-20 17:58:30 +08:00 committed by Michael Van Canneyt
parent bcf7701887
commit 706aefb2aa
1 changed files with 2 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/loongarch64/loongarch64.inc
View File

@ -139,7 +139,7 @@ procedure SysInitFPU;
begin
setrm(0);
setcause(0);
setenables(fpu_z or fpu_v);
setenables(fpu_z or fpu_v or fpu_o);
softfloat_exception_mask:=[exPrecision,exUnderflow];
softfloat_exception_flags:=[];
end;
@ -509,18 +509,10 @@ procedure Move(const source;var dest;count:SizeInt);[public, alias: 'FPC_MOVE'];
{$define FPC_SYSTEM_HAS_SYSRESETFPU}
procedure SysResetFPU;{$ifdef SYSTEMINLINE}inline;{$endif}
{$ifdef FPUFD}
var
cw: TNativeFPUControlWord;
{$endif}
begin
softfloat_exception_flags:=[];
softfloat_exception_mask:=[exPrecision,exUnderflow];
{$ifdef FPUFD}
cw:=GetNativeFPUControlWord;
cw.cw:=0;
{ round to nearest }
cw.rndmode:=0;
SetNativeFPUControlWord(cw);
SetNativeFPUControlWord(DefaultFPUControlWord);
{$endif}
end;