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

* use double as bestreal on win64

Browse Source 
git-svn-id: trunk@3249 -
This commit is contained in:
florian 2006-04-17 16:05:05 +00:00
parent 1e52f348c0
commit 9bca90c81b
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/psystem.pas
View File

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