[fpc-devel] Small fixes to softfpu.pp complementing r27215

[Max Nazhalov]

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 );