--- Merging r31224 into '.':

U    rtl/inc/system.fpd
--- Recording mergeinfo for merge of r31224 into '.':
 U   .

# revisions: 31224

git-svn-id: branches/fixes_3_0@31227 -

rtl/inc/system.fpd

@@ -78,7 +78,9 @@ Function Slice(Const A : ArrayType; ACount : Integer) : ArrayType2;
 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);
+
 {$IFNDEF GO32V2}
 Var
   mem  : array[0..$7fffffff-1] of byte;