paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 01:39:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@39354 -
This commit is contained in:
florian 2018-07-01 12:54:30 +00:00
parent 5782acc32d
commit 781ecf4a59
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/inc/genmath.inc
View File

@ -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}