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

* softfpu patch by Max Nazhalov: Small fixes to softfpu.pp complementing r27215

Browse Source 
git-svn-id: trunk@33923 -
This commit is contained in:
florian 2016-06-05 21:16:01 +00:00
parent 0ed6c3d80e
commit 8c5fdc9dc2
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/inc/softfpu.pp
View File

@ -6227,7 +6227,7 @@ end;
function roundAndPackFloatx80(roundingPrecision: int8; zSign: flag; zExp: int32; zSig0: bits64; zSig1: bits64): floatx80;
var
roundingMode: int8;
roundingMode: TFPURoundingMode;
roundNearestEven, increment, isTiny: flag;
roundIncrement, roundMask, roundBits: int64;
label
@ -6786,7 +6786,7 @@ var
aSign: flag;
aExp: int32;
lastBitMask, roundBitsMask: bits64;
roundingMode: int8;
roundingMode: TFPURoundingMode;
z: floatx80;
begin
aExp := extractFloatx80Exp( a );
@ -7751,7 +7751,7 @@ end;
function roundAndPackFloat128(zSign: flag; zExp: int32; zSig0: bits64; zSig1: bits64; zSig2: bits64): float128;
var
roundingMode: int8;
roundingMode: TFPURoundingMode;
roundNearestEven, increment, isTiny: flag;
begin
roundingMode := softfloat_rounding_mode;
@ -8238,7 +8238,7 @@ var
aSign: flag;
aExp: int32;
lastBitMask, roundBitsMask: bits64;
roundingMode: int8;
roundingMode: TFPURoundingMode;
z: float128;
begin
aExp := extractFloat128Exp( a );