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

* Need types in write declatations, or fpdoc chokes

Browse Source 
git-svn-id: trunk@38612 -
This commit is contained in:
michael 2018-03-23 21:36:28 +00:00
parent bbf06c438c
commit baa76163b3
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
rtl/inc/system.fpd
View File

@ -61,18 +61,18 @@ Function SizeOf (X : TAnyType) : Longint;
Procedure Str (Var X : TNumericType; Var S : String); Procedure Str (Var X : TNumericType; Var S : String);
Function Succ (X : TOrdinal) : TOrdinal; Function Succ (X : TOrdinal) : TOrdinal;
Procedure Val (const S : string;Var V;var Code : word); Procedure Val (const S : string;Var V;var Code : word);
Procedure Write (V1); Procedure Write (V1 : Type1);
Procedure Write (V1,V2); Procedure Write (V1 : Type1; V2 : type2);
Procedure Write (V1,V2,v3); Procedure Write (V1 : Type1; V2 : Type2; V3 : Type3);
Procedure WriteLn (V1); Procedure WriteLn (V1 : Type1);
Procedure WriteLn (V1,V2); Procedure WriteLn (V1 : Type1; V2 : type2);
Procedure WriteLn (V1,V2,v3); Procedure WriteLn (V1 : Type1; V2 : Type2; V3 : Type3);
Procedure Write (var F : Text; V1); Procedure Write (Var F : Text; V1 : Type1);
Procedure Write (var F : Text; V1,V2); Procedure Write (Var F : Text; V1 : Type1; V2 : type2);
Procedure Write (var F : Text; V1,V2,v3); Procedure Write (Var F : Text; V1 : Type1; V2 : Type2; V3 : Type3);
Procedure WriteLn (var F : Text; V1); Procedure WriteLn (Var F : Text; V1 : Type1);
Procedure WriteLn (var F : Text; V1,V2); Procedure WriteLn (Var F : Text; V1 : Type1; V2 : type2);
Procedure WriteLn (var F : Text; V1,V2,v3); Procedure WriteLn (Var F : Text; V1 : Type1; V2 : Type2; V3 : Type3);
Function Copy(S : AStringType; Index,Count : SizeInt) : String; Function Copy(S : AStringType; Index,Count : SizeInt) : String;
Function Copy(A : DynArrayType; Index,Count : SizeInt) : DynArray; Function Copy(A : DynArrayType; Index,Count : SizeInt) : DynArray;
Procedure SetLength(Var S : AStringType; Len : SizeInt); Procedure SetLength(Var S : AStringType; Len : SizeInt);