paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 15:09:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* patch by Rika: makes #39786 work on more setups, resolves #39786

Browse Source
This commit is contained in:
florian 2022-07-07 23:00:12 +02:00
parent 1aae90b294
commit f6b5c513bb
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/i386/cpuinfo.pas
View File

@ -30,7 +30,11 @@ Interface
Type Type
bestreal = extended; bestreal = extended;
{$ifdef FPC_HAS_TYPE_EXTENDED}
bestrealrec = TExtended80Rec; bestrealrec = TExtended80Rec;
{$else}
bestrealrec = TDoubleRec;
{$endif}
ts32real = single; ts32real = single;
ts64real = double; ts64real = double;
ts80real = extended; ts80real = extended;

4
compiler/nadd.pas
View File

@ -1134,7 +1134,7 @@ implementation
end; end;
end; end;
{$if not defined(FPC_SOFT_FPUX80)} {$if sizeof(bestrealrec) = sizeof(bestreal)}
{ replace .../const by a multiplication, but only if fastmath is enabled or { replace .../const by a multiplication, but only if fastmath is enabled or
the division is done by a power of 2, do not mess with special floating point values like Inf etc. the division is done by a power of 2, do not mess with special floating point values like Inf etc.
@ -1181,7 +1181,7 @@ implementation
else else
; ;
end; end;
{$endif not defined(FPC_SOFT_FPUX80)} {$endif sizeof(bestrealrec) = sizeof(bestreal)}
{ first, we handle widestrings, so we can check later for } { first, we handle widestrings, so we can check later for }
{ stringconstn only } { stringconstn only }