Bladeren bron

* local variables in fpc_AnsiStr_Concat_multi changed from longint to nativeint

git-svn-id: trunk@26926 -
nickysn 11 jaren geleden
bovenliggende
commit
ad45bc17ec
1 gewijzigde bestanden met toevoegingen van 1 en 1 verwijderingen
  1. 1 1
      rtl/inc/astrings.inc

+ 1 - 1
rtl/inc/astrings.inc

@@ -292,7 +292,7 @@ procedure fpc_AnsiStr_Concat_multi (var DestS:RawByteString;const sarr:array of
 Var
 Var
   lowstart,
   lowstart,
   nonemptystart,
   nonemptystart,
-  i           : Longint;
+  i           : NativeInt;
   p,pc        : pointer;
   p,pc        : pointer;
   Size,NewLen,
   Size,NewLen,
   OldDestLen  : SizeInt;
   OldDestLen  : SizeInt;