From 8c5fdc9dc2a944d182faf16b2c43556d67a0607d Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 5 Jun 2016 21:16:01 +0000
Subject: [PATCH] * softfpu patch by Max Nazhalov: Small fixes to softfpu.pp
complementing r27215
git-svn-id: trunk@33923 -
---
rtl/inc/softfpu.pp | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/rtl/inc/softfpu.pp b/rtl/inc/softfpu.pp
index d9f23c16c5..3fd49aeb96 100644
--- a/rtl/inc/softfpu.pp
+++ b/rtl/inc/softfpu.pp
@@ -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 );