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

* Merging revisions 40060 from trunk:

Browse Source 
------------------------------------------------------------------------
    r40060 | michael | 2018-10-28 11:47:57 +0100 (Sun, 28 Oct 2018) | 1 line
    
    * Add GetTypeKind
    ------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@42415 -
This commit is contained in:
michael 2019-07-13 13:12:39 +00:00
parent ff2025b522
commit 1faa9d4bcd
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

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