* use double as bestreal on win64

git-svn-id: trunk@3249 -

compiler/psystem.pas

@@ -149,7 +149,11 @@ implementation
         if target_info.system<>system_x86_64_win64 then
           s64currencytype.setdef(tfloatdef.create(s64currency))
         else
-          s64currencytype.setdef(torddef.create(scurrency,low(int64),high(int64)));
+          begin
+            s64currencytype.setdef(torddef.create(scurrency,low(int64),high(int64)));
+            pbestrealtype:=@s64floattype;
+          end;
+
 {$endif x86}
 {$ifdef powerpc}
         s32floattype.setdef(tfloatdef.create(s32real));
@@ -199,9 +203,6 @@ implementation
         cvarianttype.setdef(tvariantdef.create(vt_normalvariant));
         colevarianttype.setdef(tvariantdef.create(vt_olevariant));
 
-        if target_info.system=system_x86_64_win64 then
-          pbestrealtype:=@s64floattype;
-
 {$ifdef cpufpemu}
         { Normal types }
         (* we use the same types as without emulator, the only
@@ -332,6 +333,9 @@ implementation
       var
         oldcurrentmodule : tmodule;
       begin
+        if target_info.system=system_x86_64_win64 then
+          pbestrealtype:=@s64floattype;
+
         oldcurrentmodule:=current_module;
         current_module:=nil;
         loadtype('byte',u8inttype);