From 9e19eed0b36e6683086f22ae1b9f061c3ac9133d Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Wed, 26 Aug 2020 19:09:33 +0000
Subject: [PATCH] codetools: added intrinsic GetTypeKind

git-svn-id: trunk@63832 -
---
 components/codetools/identcompletiontool.pas | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/components/codetools/identcompletiontool.pas b/components/codetools/identcompletiontool.pas
index 912f45f23d..e9a05902f0 100644
--- a/components/codetools/identcompletiontool.pas
+++ b/components/codetools/identcompletiontool.pas
@@ -1503,6 +1503,7 @@ begin
     AddCompilerProcedure('Str','const X[:Width[:Decimals]];var S:String');
     AddCompilerFunction('Succ','X:Ordinal', 'Ordinal');
     AddCompilerFunction('TypeInfo','Identifier', 'Pointer');
+    AddCompilerFunction('GetTypeKind','Identifier', 'TTypeKind');
     AddCompilerFunction('TypeOf','Identifier', 'Pointer');
     AddCompilerProcedure('Val','S:String;var V;var Code:Integer');
     AddCompilerFunction('Unaligned','var X','var'); // Florian declaration :)
@@ -2619,6 +2620,7 @@ begin
         AddKeyWord('ThreadName');
         AddKeyWord('TypedAddress');
         AddKeyWord('TypeInfo');
+        AddKeyWord('GetTypeKind');
         AddKeyWord('UnDef');
         AddKeyWord('UnitPath');
         AddKeyWord('VarParaCopyOutCheck');
@@ -3288,6 +3290,7 @@ var
       AddCompilerProc('Str','const X[:Width[:Decimals]];var S:String');
       AddCompilerProc('Succ','X:Ordinal', 'Ordinal');
       AddCompilerProc('TypeInfo','Identifier', 'Pointer');
+      AddCompilerProc('GetTypeKind','Identifier', 'TTypeKind');
       AddCompilerProc('TypeOf','Identifier', 'Pointer');
       AddCompilerProc('Val','S:String;var V;var Code:Integer');
       AddCompilerProc('Unaligned','var X','var');