paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-07 07:26:13 +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;
s64currencytype:=corddef.create(scurrency,low(int64),high(int64),true);
{$endif sparc}
{$ifdef sparc64}
create_fpu_types;
s64currencytype:=corddef.create(scurrency,low(int64),high(int64),true);
{$endif sparc64}
{$ifdef m68k}
create_fpu_types;
s64currencytype:=corddef.create(scurrency,low(int64),high(int64),true);
@ -391,7 +395,7 @@ implementation
else
*)
{$endif cpufpemu}
if init_settings.fputype <> fpu_none then
if init_settings.fputype<>fpu_none then
begin
addtype('Single',s32floattype);
addtype('Double',s64floattype);