|
@@ -891,7 +891,13 @@ implementation
|
|
|
operation on a float and int are also handled }
|
|
|
{$ifdef x86}
|
|
|
{ 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
|
|
|
else
|
|
|
{$endif x86}
|