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

+ ossinttype/osuinttype defs that correspond to OS_SINT/OS_INT for use in

Browse Source 
the high level code generator

git-svn-id: trunk@21279 -
This commit is contained in:
Jonas Maebe 2012-05-12 16:03:15 +00:00
parent c1b1eadb98
commit 85a3fd3357
15 changed files with 40 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/alpha/cpubase.pas
View File

@ -120,7 +120,8 @@ unit cpubase;
{ Defines the default address size for a processor, }
OS_ADDR = OS_64;
{ the natural int size for a processor, }
{ the natural int size for a processor,
has to match osuinttype/ossinttype as initialized in psystem }
OS_INT = OS_64;
{ the maximum float size for a processor, }
OS_FLOAT = OS_F80;

3
compiler/arm/cpubase.pas
View File

@ -251,7 +251,8 @@ unit cpubase;
{ Defines the default address size for a processor, }
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 }
OS_INT = OS_32;
OS_SINT = OS_S32;
{ the maximum float size for a processor, }

3
compiler/avr/cpubase.pas
View File

@ -210,7 +210,8 @@ unit cpubase;
{ Defines the default address size for a processor, }
OS_ADDR = OS_16;
{ the natural int size for a processor, }
{ the natural int size for a processor,
has to match osuinttype/ossinttype as initialized in psystem }
OS_INT = OS_16;
OS_SINT = OS_S16;
{ the maximum float size for a processor, }

3
compiler/i386/cpubase.inc
View File

@ -70,7 +70,8 @@
{# Defines the default address size for a processor, }
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 }
OS_INT = OS_32;
OS_SINT = OS_S32;
{# the maximum float size for a processor, }

3
compiler/ia64/cpubase.pas
View File

@ -111,7 +111,8 @@ Const
{ Defines the default address size for a processor, }
OS_ADDR = OS_64;
{ the natural int size for a processor, }
{ the natural int size for a processor,
has to match osuinttype/ossinttype as initialized in psystem }
OS_INT = OS_64;
OS_SINT = OS_S64;
{ the maximum float size for a processor, }

6
compiler/jvm/cpubase.pas
View File

@ -182,7 +182,8 @@ uses
-- fake for JVM, only influences default width of
arithmetic calculations }
OS_ADDR = OS_64;
{# the natural int size for a processor, }
{# 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}
@ -190,7 +191,8 @@ uses
-- fake for JVM, only influences default width of
arithmetic calculations }
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 }
OS_INT = OS_32;
OS_SINT = OS_S32;
{$endif}

3
compiler/m68k/cpubase.pas
View File

@ -218,7 +218,8 @@ unit cpubase;
{# Defines the default address size for a processor, }
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 }
OS_INT = OS_32;
OS_SINT = OS_S32;
{# the maximum float size for a processor, }

3
compiler/mips/cpubase.pas
View File

@ -168,7 +168,8 @@ unit cpubase;
{ Defines the default address size for a processor, }
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 }
OS_INT = OS_32;
OS_SINT = OS_S32;
{ the maximum float size for a processor, }

3
compiler/powerpc/cpubase.pas
View File

@ -262,7 +262,8 @@ uses
{# Defines the default address size for a processor, }
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 }
OS_INT = OS_32;
OS_SINT = OS_S32;
{# the maximum float size for a processor, }

5
compiler/powerpc64/cpubase.pas
View File

@ -270,9 +270,10 @@ const
Default generic sizes
*****************************************************************************}
{# Defines the default address size for a processor, }
{# Defines the default address size for a processor, }
OS_ADDR = OS_64;
{# the natural int size for a processor, }
{# the natural int size for a processor,
has to match osuinttype/ossinttype as initialized in psystem }
OS_INT = OS_64;
OS_SINT = OS_S64;
{# the maximum float size for a processor, }

8
compiler/psystem.pas
View File

@ -136,6 +136,14 @@ implementation
uinttype:=u8inttype;
sinttype:=s8inttype;
{$endif cpu8bitalu}
{$ifndef avr}
osuinttype:=uinttype;
ossinttype:=sinttype;
{$else avr}
osuinttype:=u16inttype;
ossinttype:=s16inttype;
{$endif avr}
end;
procedure create_intern_types;

3
compiler/sparc/cpubase.pas
View File

@ -181,7 +181,8 @@ uses
{# Defines the default address size for a processor, }
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 }
OS_INT = OS_32;
OS_SINT = OS_S32;
{# the maximum float size for a processor, }

3
compiler/symdef.pas
View File

@ -833,6 +833,9 @@ interface
{ default integer type s32inttype on 32 bit systems, s64bittype on 64 bit systems }
sinttype,
uinttype,
{ integer types corresponding to OS_SINT/OS_INT }
ossinttype,
osuinttype,
{ unsigned and signed ord type with the same size as a pointer }
ptruinttype,
ptrsinttype,

3
compiler/vis/cpubase.pas
View File

@ -409,7 +409,8 @@ uses
{# Defines the default address size for a processor, }
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 }
OS_INT = OS_32;
{# the maximum float size for a processor, }
OS_FLOAT = OS_F64;

3
compiler/x86_64/cpubase.inc
View File

@ -69,7 +69,8 @@ const
{ Defines the default address size for a processor, }
OS_ADDR = OS_64;
{ the natural int size for a processor, }
{ the natural int size for a processor,
has to match osuinttype/ossinttype as initialized in psystem }
OS_INT = OS_64;
OS_SINT = OS_S64;
{ the maximum float size for a processor, }