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

* changed to for loop counters in the resource string helper routines from

Browse Source 
nativeint to objpas.integer

git-svn-id: trunk@27099 -
This commit is contained in:
nickysn 2014-03-11 20:52:09 +00:00
parent 01febdd7f3
commit b6075c59c1
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/objpas/objpas.pp
View File

@ -328,7 +328,7 @@ var
procedure UpdateResourceStringRefs;
var
i: nativeint;
i: integer;
ptable: PResStrInitEntry;
begin
for i:=1 to ResStrInitTable.Count do
@ -349,7 +349,7 @@ Var
Procedure SetResourceStrings (SetFunction : TResourceIterator;arg:pointer);
Var
ResStr : PResourceStringRecord;
i : nativeint;
i : integer;
s : AnsiString;
begin
With ResourceStringTable do
@ -377,7 +377,7 @@ end;
Procedure SetUnitResourceStrings (const UnitName:string;SetFunction : TResourceIterator;arg:pointer);
Var
ResStr : PResourceStringRecord;
i : nativeint;
i : integer;
s,
UpUnitName : AnsiString;
begin
@ -411,7 +411,7 @@ end;
Procedure ResetResourceTables;
Var
ResStr : PResourceStringRecord;
i : nativeint;
i : integer;
begin
With ResourceStringTable do
begin
@ -433,7 +433,7 @@ end;
Procedure FinalizeResourceTables;
Var
ResStr : PResourceStringRecord;
i : nativeint;
i : integer;
begin
With ResourceStringTable do
begin