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

* cleaned up initialization of (ptr)s/uinttype

Browse Source 
git-svn-id: trunk@32746 -
This commit is contained in:
florian 2015-12-26 20:57:30 +00:00
parent e1d4d167b4
commit c83fa22b2b
1 changed files with 4 additions and 4 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}