From b6075c59c15742880a275445cbf9c340c43e1fb3 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Tue, 11 Mar 2014 20:52:09 +0000
Subject: [PATCH] * changed to for loop counters in the resource string helper
 routines from   nativeint to objpas.integer

git-svn-id: trunk@27099 -
---
 rtl/objpas/objpas.pp | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/rtl/objpas/objpas.pp b/rtl/objpas/objpas.pp
index 96710d1aa0..ae73755949 100644
--- a/rtl/objpas/objpas.pp
+++ b/rtl/objpas/objpas.pp
@@ -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