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

* create intern types for sparc64

Browse Source 
git-svn-id: trunk@36429 -
This commit is contained in:
florian 2017-06-05 21:32:13 +00:00
parent 8b19610509
commit b367cdeb96
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/psystem.pas
View File

@ -313,6 +313,10 @@ implementation
create_fpu_types; create_fpu_types;
s64currencytype:=corddef.create(scurrency,low(int64),high(int64),true); s64currencytype:=corddef.create(scurrency,low(int64),high(int64),true);
{$endif sparc} {$endif sparc}
{$ifdef sparc64}
create_fpu_types;
s64currencytype:=corddef.create(scurrency,low(int64),high(int64),true);
{$endif sparc64}
{$ifdef m68k} {$ifdef m68k}
create_fpu_types; create_fpu_types;
s64currencytype:=corddef.create(scurrency,low(int64),high(int64),true); s64currencytype:=corddef.create(scurrency,low(int64),high(int64),true);
@ -391,7 +395,7 @@ implementation
else else
*) *)
{$endif cpufpemu} {$endif cpufpemu}
if init_settings.fputype <> fpu_none then if init_settings.fputype<>fpu_none then
begin begin
addtype('Single',s32floattype); addtype('Single',s32floattype);
addtype('Double',s64floattype); addtype('Double',s64floattype);