* Merging revisions 40060 from trunk:

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

rtl/inc/system.fpd

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