paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-30 17:40:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* compilation fixed on x86-64

Browse Source 
git-svn-id: trunk@15756 -
This commit is contained in:
florian 2010-08-09 19:51:28 +00:00
parent 320f67eab2
commit 33c67c7972
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/nadd.pas
View File

@ -891,7 +891,13 @@ implementation
operation on a float and int are also handled } operation on a float and int are also handled }
{$ifdef x86} {$ifdef x86}
{ use extended as default real type only when the x87 fpu is used } { use extended as default real type only when the x87 fpu is used }
if not(current_settings.fputype=fpu_x87) then {$ifdef i386}
if not(current_settings.fputype in [fpu_x87) then
{$endif i386}
{$ifdef x86_64}
{ x86-64 has no x87 only mode, so use always double as default }
if true then
{$endif x86_6}
resultrealdef:=s64floattype resultrealdef:=s64floattype
else else
{$endif x86} {$endif x86}