paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 21:09:11 +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 begin
end; end;
procedure ReadWriteBarrier; assembler; nostackframe; procedure ReadWriteBarrier; assembler; nostackframe;
asm asm
fence iorw, iorw fence iorw, iorw
end; end;
procedure WriteBarrier; assembler; nostackframe; procedure WriteBarrier; assembler; nostackframe;
asm asm
fence ow, ow fence ow, ow
end; end;
{$define FPC_SYSTEM_HAS_SYSRESETFPU}
procedure SysResetFPU;{$ifdef SYSTEMINLINE}inline;{$endif} {$define FPC_SYSTEM_HAS_SYSINITFPU}
procedure SysInitFPU;
{$ifdef FPUFD} {$ifdef FPUFD}
var var
cw: TNativeFPUControlWord; cw: TNativeFPUControlWord;
@ -321,3 +324,21 @@ begin
SetNativeFPUControlWord(cw); SetNativeFPUControlWord(cw);
{$endif} {$endif}
end; 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;