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

* fix SetRoundingMode on RiscV64

Browse Source 
git-svn-id: branches/laksen/riscv_new@39646 -
This commit is contained in:
florian 2018-08-19 15:26:44 +00:00
parent 4f052e4f90
commit 70b2e11e6a
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/riscv64/mathu.inc
View File

@ -12,13 +12,15 @@
**********************************************************************}
function getfpcr: dword; nostackframe; assembler;
function getrm: dword; nostackframe; assembler;
asm
frrm a0
end;
procedure setfpcr(val: dword); nostackframe; assembler;
procedure setrm(val: dword); nostackframe; assembler;
asm
fsrm a0
end;
@ -36,19 +38,19 @@ procedure setfflags(flags : dword); nostackframe; assembler;
function GetRoundMode: TFPURoundingMode;
const
bits2rm: array[0..3] of TFPURoundingMode = (rmNearest,rmUp,rmDown,rmTruncate);
bits2rm: array[0..3] of TFPURoundingMode = (rmNearest,rmTruncate,rmDown,rmUp);
begin
result:=TFPURoundingMode(bits2rm[(getfpcr shr 22) and 3])
result:=TFPURoundingMode(bits2rm[getrm])
end;
function SetRoundMode(const RoundMode: TFPURoundingMode): TFPURoundingMode;
const
rm2bits: array[TFPURoundingMode] of byte = (0,2,1,3);
rm2bits : array[TFPURoundingMode] of byte = (0,2,3,1);
begin
softfloat_rounding_mode:=RoundMode;
SetRoundMode:=RoundMode;
setfpcr((getfpcr and $ff3fffff) or (rm2bits[RoundMode] shl 22));
setrm(rm2bits[RoundMode]);
end;