paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 12:59:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Added slice dummy

Browse Source 
git-svn-id: trunk@22154 -
This commit is contained in:
michael 2012-08-20 22:57:29 +00:00
parent 04aa7851b7
commit a110490a5e
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/inc/system.fpd
View File

@ -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;