paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-08 07:19:27 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Use extended for bestreal type if GENERIC_CPU is defined

Browse Source 
git-svn-id: trunk@17954 -
This commit is contained in:
pierre 2011-07-08 15:36:29 +00:00
parent eb4798238d
commit 2f7a57fcab
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/constexp.pas
View File

@ -57,11 +57,15 @@ var internalerror:errorproc;
{Same issue, avoid dependency on cpuinfo because the cpu directory isn't {Same issue, avoid dependency on cpuinfo because the cpu directory isn't
searched during utils building.} searched during utils building.}
{$ifdef GENERIC_CPU}
type bestreal=extended;
{$else}
{$ifdef x86} {$ifdef x86}
type bestreal=extended; type bestreal=extended;
{$else} {$else}
type bestreal=double; type bestreal=double;
{$endif} {$endif}
{$endif}
operator := (const u:qword):Tconstexprint;inline; operator := (const u:qword):Tconstexprint;inline;
operator := (const s:int64):Tconstexprint;inline; operator := (const s:int64):Tconstexprint;inline;