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

* Added Pack/Unpack dummies, fixed var/out and const params in writestr/readstr

Browse Source 
git-svn-id: trunk@13880 -
This commit is contained in:
michael 2009-10-17 09:22:49 +00:00
parent 820c1c693e
commit 893295dc1e
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/system.fpd
View File

@ -57,5 +57,8 @@ Procedure SetLength(Var S : AStringType; Len : Integer);
Procedure SetLength(Var A : DynArrayType; Len : Integer);
Function Length(S : AStringType) : Integer;
Function Length(A : DynArrayType) : Integer;
Procedure WriteStr(Var S : String; Args : Arguments);
Procedure ReadStr(Var S : String; Args : Arguments);
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);