From 1a49e6846576f7804f530161ae2667d0e8190f1d Mon Sep 17 00:00:00 2001
From: Sergey Larin <sergy.larin@gmail.com>
Date: Fri, 11 Jun 2021 20:32:34 +0300
Subject: [PATCH] Updated the list of intrinsic functions: IsManagedType,
 IsConstValue

---
 components/codetools/identcompletiontool.pas | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/components/codetools/identcompletiontool.pas b/components/codetools/identcompletiontool.pas
index 2db4f0abcb..5bf001c91c 100644
--- a/components/codetools/identcompletiontool.pas
+++ b/components/codetools/identcompletiontool.pas
@@ -1504,6 +1504,8 @@ begin
     AddCompilerFunction('Succ','X:Ordinal', 'Ordinal');
     AddCompilerFunction('TypeInfo','Identifier', 'Pointer');
     AddCompilerFunction('GetTypeKind','Identifier', 'TTypeKind');
+    AddCompilerFunction('IsManagedType','Identifier', 'Boolean');
+    AddCompilerFunction('IsConstValue','const Value', 'Boolean');
     AddCompilerFunction('TypeOf','Identifier', 'Pointer');
     AddCompilerProcedure('Val','S:String;var V;var Code:Integer');
     AddCompilerFunction('Unaligned','var X','var'); // Florian declaration :)
@@ -3291,6 +3293,8 @@ var
       AddCompilerProc('Succ','X:Ordinal', 'Ordinal');
       AddCompilerProc('TypeInfo','Identifier', 'Pointer');
       AddCompilerProc('GetTypeKind','Identifier', 'TTypeKind');
+      AddCompilerProc('IsManagedType','Identifier', 'Boolean');
+      AddCompilerProc('IsConstValue','const Value', 'Boolean');
       AddCompilerProc('TypeOf','Identifier', 'Pointer');
       AddCompilerProc('Val','S:String;var V;var Code:Integer');
       AddCompilerProc('Unaligned','var X','var');