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

* SPARC: SetExceptionMask and SetRoundingMode must return the old value of mask/mode respectively, not the new one.

Browse Source 
git-svn-id: trunk@27218 -
This commit is contained in:
sergei 2014-03-21 06:26:06 +00:00
parent 67a8c315d8
commit 295e795a0a
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
rtl/sparc/mathu.inc
View File

@ -22,9 +22,12 @@ function GetRoundMode: TFPURoundingMode;
end;
function SetRoundMode(const RoundMode: TFPURoundingMode): TFPURoundingMode;
var
cw: dword;
begin
set_fsr((get_fsr and $3fffffff) or (dword(RoundMode) shl 30));
result:=TFPURoundingMode(get_fsr shr 30);
cw:=get_fsr;
result:=TFPURoundingMode(cw shr 30);
set_fsr((cw and $3fffffff) or (dword(RoundMode) shl 30));
end;
@ -40,11 +43,8 @@ function SetPrecisionMode(const Precision: TFPUPrecisionMode): TFPUPrecisionMode
end;
function GetExceptionMask: TFPUExceptionMask;
var
fsr : dword;
function FSR2ExceptionMask(fsr: dword): TFPUExceptionMask;
begin
fsr:=get_fsr;
result:=[];
{ invalid operation: bit 27 }
if (fsr and (1 shl 27))=0 then
@ -68,12 +68,18 @@ function GetExceptionMask: TFPUExceptionMask;
end;
function GetExceptionMask: TFPUExceptionMask;
begin
result:=FSR2ExceptionMask(get_fsr);
end;
function SetExceptionMask(const Mask: TFPUExceptionMask): TFPUExceptionMask;
var
fsr : dword;
begin
fsr:=get_fsr;
result:=FSR2ExceptionMask(fsr);
{ invalid operation: bit 27 }
if (exInvalidOp in mask) then