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

* reverted r32746: *inttype shall be the normally used integer type, os*inttype shall be the int type with the max. size of integer registers

Browse Source 
git-svn-id: trunk@32789 -
This commit is contained in:
florian 2015-12-29 15:07:58 +00:00
parent 3f2057a2f2
commit 53e89b25d1
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/psystem.pas
View File

@ -113,14 +113,14 @@ implementation
procedure set_default_int_types; procedure set_default_int_types;
begin begin
{$ifdef cpu64bitaddr} {$ifdef cpu64bitaddr}
uinttype:=u64inttype;
sinttype:=s64inttype;
ptruinttype:=u64inttype; ptruinttype:=u64inttype;
ptrsinttype:=s64inttype; ptrsinttype:=s64inttype;
{$endif cpu64bitaddr} {$endif cpu64bitaddr}
{$ifdef cpu64bitalu}
uinttype:=u64inttype;
sinttype:=s64inttype;
{$endif cpu64bitalu}
{$ifdef cpu32bitaddr} {$ifdef cpu32bitaddr}
uinttype:=u32inttype;
sinttype:=s32inttype;
ptruinttype:=u32inttype; ptruinttype:=u32inttype;
ptrsinttype:=s32inttype; ptrsinttype:=s32inttype;
{$endif cpu32bitaddr} {$endif cpu32bitaddr}

2
compiler/symdef.pas
View File

@ -1059,7 +1059,7 @@ interface
{ we use only one variant def for every variant class } { we use only one variant def for every variant class }
cvarianttype, cvarianttype,
colevarianttype, colevarianttype,
{ default integer type s32inttype on 32 bit systems, s64bittype on 64 bit systems } { default integer type, normally s32inttype on 32 bit systems and s64bittype on 64 bit systems }
sinttype, sinttype,
uinttype, uinttype,
{ integer types corresponding to OS_SINT/OS_INT } { integer types corresponding to OS_SINT/OS_INT }