* Added slice dummy

git-svn-id: trunk@22154 -

rtl/inc/system.fpd

@@ -63,7 +63,8 @@ Procedure WriteStr(Out S : String; Args : Arguments);
 Procedure ReadStr(Const S : String; Args : Arguments);
 Procedure Pack(Const A : UnpackedArrayType; StartIndex : TIndexType; Out Z : PackedArrayType);
 Procedure UnPack(Const Z : PackedArrayType; Out A : UnpackedArrayType; StartIndex : TIndexType);
-
+Function Slice(Const A : ArrayType; ACount : Integer) : ArrayType2;
+ 
 {$IFNDEF GO32V2}
 Var
   mem  : array[0..$7fffffff-1] of byte;