* modified patch by Bart Broersma to resolves #33932: fixes compilation error with FPC_SOFT_FPUX80 in TExtended80Rec.BuildUp

git-svn-id: trunk@39354 -

rtl/inc/genmath.inc

@@ -2033,7 +2033,11 @@ function TExtended80Rec.SpecialType : TFloatSpecial;
 
 procedure TExtended80Rec.BuildUp(const _Sign: Boolean; const _Mantissa: QWord; const _Exponent: Longint);
 begin
+{$ifdef SUPPORT_EXTENDED}
   Value := 0.0;
+{$else SUPPORT_EXTENDED}
+  FillChar(Value, SizeOf(Value),0);
+{$endif SUPPORT_EXTENDED}
   if (_Mantissa=0) and (_Exponent=0) then
     SetExp(0)
   else
@@ -2041,7 +2045,7 @@ begin
   SetSign(_Sign);
   Frac := _Mantissa;
 end;
-{$endif SUPPORT_EXTENDED}
+{$endif SUPPORT_EXTENDED or FPC_SOFT_FPUX80}
 
 
 {$ifdef SUPPORT_DOUBLE}