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

+ SPARC64 support for the system unit

Browse Source 
git-svn-id: trunk@36431 -
This commit is contained in:
florian 2017-06-05 21:33:59 +00:00
parent 7254d22402
commit cd70098b84
2 changed files with 25 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/inc/system.inc
View File

@ -251,6 +251,14 @@ function do_isdevice(handle:thandle):boolean;forward;
{$define SYSPROCDEFINED} {$define SYSPROCDEFINED}
{$endif cpusparc} {$endif cpusparc}
{$ifdef cpusparc64}
{$ifdef SYSPROCDEFINED}
{$Error Can't determine processor type !}
{$endif}
{$i sparc64.inc} { Case dependent, don't change }
{$define SYSPROCDEFINED}
{$endif cpusparc64}
{$ifdef cpuarm} {$ifdef cpuarm}
{$ifdef SYSPROCDEFINED} {$ifdef SYSPROCDEFINED}
{$Error Can't determine processor type !} {$Error Can't determine processor type !}

17
rtl/inc/systemh.inc
View File

@ -270,6 +270,23 @@ Type
FarPointer = Pointer; FarPointer = Pointer;
{$endif CPUSPARC} {$endif CPUSPARC}
{$ifdef CPUSPARC64}
{$define DEFAULT_DOUBLE}
{$define SUPPORT_SINGLE}
{$define SUPPORT_DOUBLE}
{$ifndef FPUNONE}
ValReal = Double;
{$endif}
{ map comp to int64, but this doesn't mean we compile the comp support in! }
Comp = Int64;
PComp = ^Comp;
FarPointer = Pointer;
{$endif CPUSPARC64}
{$if defined(CPUMIPS32) or defined(CPUMIPSEL32)} {$if defined(CPUMIPS32) or defined(CPUMIPSEL32)}
{$define DEFAULT_DOUBLE} {$define DEFAULT_DOUBLE}