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

* Add GetTypeKind

Browse Source 
git-svn-id: trunk@40060 -
This commit is contained in:
michael 2018-10-28 10:47:57 +00:00
parent bf4eda478d
commit 3b1622f10a
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
rtl/inc/system.fpd
View File

@ -86,6 +86,7 @@ Procedure UnPack(Const Z : PackedArrayType; Out A : UnpackedArrayType; StartInde
Function Slice(Const A : ArrayType; ACount : Integer) : ArrayType2; Function Slice(Const A : ArrayType; ACount : Integer) : ArrayType2;
Function Default(Const T : AnyType) : AnyType; Function Default(Const T : AnyType) : AnyType;
Function TypeInfo(Const T : AnyType) : Pointer; Function TypeInfo(Const T : AnyType) : Pointer;
Function GetTypeKind(Const T : AnyType) : TTypeKind;
Procedure Fail; Procedure Fail;
Function TypeOf(T : TObjectType) : Pointer; Function TypeOf(T : TObjectType) : Pointer;
Procedure Initialize(Var T : TAnyType; ACount : SizeInt = 1); Procedure Initialize(Var T : TAnyType; ACount : SizeInt = 1);