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

* TAB characters removed.

Browse Source 
git-svn-id: trunk@25004 -
This commit is contained in:
sergei 2013-06-28 10:58:22 +00:00
parent c855868a3d
commit 8bfef107b3
1 changed files with 15 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
rtl/mips/mathu.inc
View File

@ -63,29 +63,28 @@ function SetRoundMode(const RoundMode: TFPURoundingMode): TFPURoundingMode;
var
fpu_round : longint;
begin
case (RoundMode) of
rmNearest :
begin
softfloat_rounding_mode := float_round_nearest_even;
fpu_round:=fpu_rounding_nearest;
end;
softfloat_rounding_mode := float_round_nearest_even;
fpu_round:=fpu_rounding_nearest;
end;
rmTruncate :
begin
softfloat_rounding_mode := float_round_to_zero;
fpu_round:=fpu_rounding_towards_zero;
end;
rmUp :
softfloat_rounding_mode := float_round_to_zero;
fpu_round:=fpu_rounding_towards_zero;
end;
rmUp :
begin
softfloat_rounding_mode := float_round_up;
fpu_round:=fpu_rounding_plus_inf;
end;
rmDown :
softfloat_rounding_mode := float_round_up;
fpu_round:=fpu_rounding_plus_inf;
end;
rmDown :
begin
softfloat_rounding_mode := float_round_down;
fpu_round:=fpu_rounding_minus_inf;
end;
end;
softfloat_rounding_mode := float_round_down;
fpu_round:=fpu_rounding_minus_inf;
end;
end;
set_fsr((get_fsr and not fpu_rounding_mask) or fpu_round);
//!!! result:=TFPURoundingMode(get_fsr shr 30);
end;