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

* replaced all the remaining uses of nativeint in the rtl with either sizeint

Browse Source 
or objpasint

git-svn-id: trunk@27237 -
This commit is contained in:
nickysn 2014-03-23 13:38:16 +00:00
parent e471a7dd2c
commit fb20791cbe
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/system.inc
View File

@ -849,7 +849,7 @@ type
end; end;
TInitFinalTable = record TInitFinalTable = record
TableCount, TableCount,
InitCount : {$ifdef VER2_6}longint{$else}nativeint{$endif}; InitCount : {$ifdef VER2_6}longint{$else}sizeint{$endif};
Procs : array[1..maxunits] of TInitFinalRec; Procs : array[1..maxunits] of TInitFinalRec;
end; end;
PInitFinalTable = ^TInitFinalTable; PInitFinalTable = ^TInitFinalTable;
@ -863,7 +863,7 @@ var
procedure fpc_InitializeUnits;[public,alias:'FPC_INITIALIZEUNITS']; compilerproc; procedure fpc_InitializeUnits;[public,alias:'FPC_INITIALIZEUNITS']; compilerproc;
var var
i : nativeint; i : ObjpasInt;
{$ifdef DEBUG} {$ifdef DEBUG}
pt : PInitFinalTable; pt : PInitFinalTable;
{$endif} {$endif}

4
rtl/objpas/objpas.pp
View File

@ -303,7 +303,7 @@ Type
end; end;
TResourceStringTableList = Packed Record TResourceStringTableList = Packed Record
Count : nativeint; Count : sizeint;
Tables : Array[{$ifdef cpu16}Byte{$else cpu16}Word{$endif cpu16}] of record Tables : Array[{$ifdef cpu16}Byte{$else cpu16}Word{$endif cpu16}] of record
TableStart, TableStart,
TableEnd : PResourceStringRecord; TableEnd : PResourceStringRecord;
@ -319,7 +319,7 @@ Type
end; end;
TResStrInitTable = packed record TResStrInitTable = packed record
Count: {$ifdef VER2_6}longint{$else}nativeint{$endif}; Count: {$ifdef VER2_6}longint{$else}sizeint{$endif};
Tables: packed array[1..{$ifdef cpu16}8191{$else cpu16}32767{$endif cpu16}] of PResStrInitEntry; Tables: packed array[1..{$ifdef cpu16}8191{$else cpu16}32767{$endif cpu16}] of PResStrInitEntry;
end; end;

2
rtl/win/syswin.inc
View File

@ -648,7 +648,7 @@ type
PWStrInitTablesTable = ^TWStrInitTablesTable; PWStrInitTablesTable = ^TWStrInitTablesTable;
TWStrInitTablesTable = packed record TWStrInitTablesTable = packed record
count : {$ifdef VER2_6}longint{$else}nativeint{$endif}; count : {$ifdef VER2_6}longint{$else}sizeint{$endif};
tables : packed array [1..32767] of PWStrInitEntry; tables : packed array [1..32767] of PWStrInitEntry;
end; end;