These are fix compiling softfpu with FPC_SOFTFLOAT_FLOATX80 and
FPC_SOFTFLOAT_FLOAT128 enabled.
--
WBR, Max
Index: rtl/inc/softfpu.pp
===================================================================
--- rtl/inc/softfpu.pp (revision 33913)
+++ rtl/inc/softfpu.pp (working copy)
@@ -6227,7 +6227,7 @@
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 @@
aSign: flag;
aExp: int32;
lastBitMask, roundBitsMask: bits64;
- roundingMode: int8;
+ roundingMode: TFPURoundingMode;
z: floatx80;
begin
aExp := extractFloatx80Exp( a );
@@ -7751,7 +7751,7 @@
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 @@
aSign: flag;
aExp: int32;
lastBitMask, roundBitsMask: bits64;
- roundingMode: int8;
+ roundingMode: TFPURoundingMode;
z: float128;
begin
aExp := extractFloat128Exp( a );
_______________________________________________
fpc-devel maillist - fpc-devel@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel
