From 1faa9d4bcd7ba58e05b003a0a4800a9629fc3555 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sat, 13 Jul 2019 13:12:39 +0000
Subject: [PATCH] * 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 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/rtl/inc/system.fpd b/rtl/inc/system.fpd
index 43a2a3d84a..311e1f5322 100644
--- a/rtl/inc/system.fpd
+++ b/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);