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

+ add an SysInitFPU implementation

Browse Source
This commit is contained in:
florian 2025-01-23 23:00:03 +01:00
parent d959e47c83
commit 9cac8e6183
1 changed files with 23 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
rtl/riscv64/riscv64.inc
View File

@ -292,18 +292,21 @@ procedure ReadDependencyBarrier;
begin
end;
procedure ReadWriteBarrier; assembler; nostackframe;
asm
fence iorw, iorw
end;
procedure WriteBarrier; assembler; nostackframe;
asm
fence ow, ow
end;
{$define FPC_SYSTEM_HAS_SYSRESETFPU}
procedure SysResetFPU;{$ifdef SYSTEMINLINE}inline;{$endif}
{$define FPC_SYSTEM_HAS_SYSINITFPU}
procedure SysInitFPU;
{$ifdef FPUFD}
var
cw: TNativeFPUControlWord;
@ -321,3 +324,21 @@ begin
SetNativeFPUControlWord(cw);
{$endif}
end;
{$define FPC_SYSTEM_HAS_SYSRESETFPU}
Procedure SysResetFPU;
{$ifdef FPUFD}
var
cw: TNativeFPUControlWord;
{$endif}
begin
softfloat_exception_flags:=[];
softfloat_exception_mask:=[exPrecision,exUnderflow];
{$ifdef FPUFD}
{ clear all "exception happened" flags we care about}
cw:=GetNativeFPUControlWord;
cw.cw:=0;
SetNativeFPUControlWord(cw);
{$endif FPUFD}
end;