paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-01 19:02:35 +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;
TInitFinalTable = record
TableCount,
InitCount : {$ifdef VER2_6}longint{$else}nativeint{$endif};
InitCount : {$ifdef VER2_6}longint{$else}sizeint{$endif};
Procs : array[1..maxunits] of TInitFinalRec;
end;
PInitFinalTable = ^TInitFinalTable;
@ -863,7 +863,7 @@ var
procedure fpc_InitializeUnits;[public,alias:'FPC_INITIALIZEUNITS']; compilerproc;
var
i : nativeint;
i : ObjpasInt;
{$ifdef DEBUG}
pt : PInitFinalTable;
{$endif}

4
rtl/objpas/objpas.pp
View File

@ -303,7 +303,7 @@ Type
end;
TResourceStringTableList = Packed Record
Count : nativeint;
Count : sizeint;
Tables : Array[{$ifdef cpu16}Byte{$else cpu16}Word{$endif cpu16}] of record
TableStart,
TableEnd : PResourceStringRecord;
@ -319,7 +319,7 @@ Type
end;
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;
end;

2
rtl/win/syswin.inc
View File

@ -648,7 +648,7 @@ type
PWStrInitTablesTable = ^TWStrInitTablesTable;
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;
end;