* Change some types from integer to sizeint (bug ID 29789)

git-svn-id: trunk@33194 -

rtl/inc/system.fpd

@@ -65,12 +65,12 @@ Procedure Write (Args : Arguments);
 Procedure Writeln (Args : Arguments);
 Procedure Write (Var F : Text; Args : Arguments);
 Procedure WriteLn (Var F : Text; Args : Arguments);
-Function Copy(S : AStringType; Index,Count : Integer) : String;
-Function Copy(A : DynArrayType; Index,Count : Integer) : DynArray;
-Procedure SetLength(Var S : AStringType; Len : Integer);
-Procedure SetLength(Var A : DynArrayType; Len : Integer);
-Function Length(S : AStringType) : Integer;
-Function Length(A : DynArrayType) : Integer;
+Function Copy(S : AStringType; Index,Count : SizeInt) : String;
+Function Copy(A : DynArrayType; Index,Count : SizeInt) : DynArray;
+Procedure SetLength(Var S : AStringType; Len : SizeInt);
+Procedure SetLength(Var A : DynArrayType; Len : SizeInt);
+Function Length(S : AStringType) : SizeInt;
+Function Length(A : DynArrayType) : SizeInt;
 Procedure WriteStr(Out S : String; Args : Arguments);
 Procedure ReadStr(Const S : String; Args : Arguments);
 Procedure Pack(Const A : UnpackedArrayType; StartIndex : TIndexType; Out Z : PackedArrayType);
@@ -80,8 +80,8 @@ Function Default(Const T : AnyType) : AnyType;
 Function TypeInfo(Const T : AnyType) : Pointer;
 Procedure Fail;
 Function TypeOf(T : TObjectType) : Pointer;
-Procedure Initialize(Var T : TAnyType; ACount : Integer = 1);
-Procedure Finalize(Var T : TAnyType; ACount : Integer = 1);
+Procedure Initialize(Var T : TAnyType; ACount : SizeInt = 1);
+Procedure Finalize(Var T : TAnyType; ACount : SizeInt = 1);
 
 {$IFNDEF GO32V2}
 Var