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

* set basic constants for address sizes etc. correctly for sparc64

Browse Source 
git-svn-id: trunk@36520 -
This commit is contained in:
florian 2017-06-18 15:52:09 +00:00
parent fd698a22f4
commit 91994ef404
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/sparcgen/cpubase.pas
View File

@ -218,12 +218,21 @@ uses
Default generic sizes Default generic sizes
*****************************************************************************} *****************************************************************************}
{$ifdef SPARC64}
{# Defines the default address size for a processor, }
OS_ADDR = OS_64;
{# the natural int size for a processor,
has to match osuinttype/ossinttype as initialized in psystem }
OS_INT = OS_64;
OS_SINT = OS_S64;
{$else SPARC64}
{# Defines the default address size for a processor, } {# Defines the default address size for a processor, }
OS_ADDR = OS_32; OS_ADDR = OS_32;
{# the natural int size for a processor, {# the natural int size for a processor,
has to match osuinttype/ossinttype as initialized in psystem } has to match osuinttype/ossinttype as initialized in psystem }
OS_INT = OS_32; OS_INT = OS_32;
OS_SINT = OS_S32; OS_SINT = OS_S32;
{$endif SPARC64}
{# the maximum float size for a processor, } {# the maximum float size for a processor, }
OS_FLOAT = OS_F64; OS_FLOAT = OS_F64;
{# the size of a vector register for a processor } {# the size of a vector register for a processor }