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

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

Browse Source 
nativeint instead of longint (generates more efficient code on i8086)

git-svn-id: trunk@26922 -
This commit is contained in:
nickysn 2014-03-02 13:42:30 +00:00
parent 5242ed7864
commit ae28ecd5f8
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

@ -320,7 +320,7 @@ var
procedure UpdateResourceStringRefs;
var
i: Longint;
i: nativeint;
ptable: PResStrInitEntry;
begin
for i:=1 to ResStrInitTable.Count do
@ -341,7 +341,7 @@ Var
Procedure SetResourceStrings (SetFunction : TResourceIterator;arg:pointer);
Var
ResStr : PResourceStringRecord;
i : Longint;
i : nativeint;
s : AnsiString;
begin
With ResourceStringTable do
@ -369,7 +369,7 @@ end;
Procedure SetUnitResourceStrings (const UnitName:string;SetFunction : TResourceIterator;arg:pointer);
Var
ResStr : PResourceStringRecord;
i : Longint;
i : nativeint;
s,
UpUnitName : AnsiString;
begin
@ -403,7 +403,7 @@ end;
Procedure ResetResourceTables;
Var
ResStr : PResourceStringRecord;
i : Longint;
i : nativeint;
begin
With ResourceStringTable do
begin
@ -425,7 +425,7 @@ end;
Procedure FinalizeResourceTables;
Var
ResStr : PResourceStringRecord;
i : Longint;
i : nativeint;
begin
With ResourceStringTable do
begin