From 2c3b78682ad065b9aa677322b4d050b07df5f9c3 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Tue, 29 Nov 2022 09:05:37 +0100
Subject: [PATCH] * Add IsConstValue

---
 rtl/inc/system.fpd | 1 +
 1 file changed, 1 insertion(+)

diff --git a/rtl/inc/system.fpd b/rtl/inc/system.fpd
index 738f47163f..3fcc54b46f 100644
--- a/rtl/inc/system.fpd
+++ b/rtl/inc/system.fpd
@@ -96,6 +96,7 @@ Function GetTypeKind(Const T : AnyType) : TTypeKind;
 Procedure Fail;
 Function TypeOf(T : TObjectType) : Pointer;
 Function IsManagedType(T : TType) : Boolean;
+Function IsConstValue(V : TAnyType) : Boolean;
 Procedure Initialize(Var T : TAnyType; ACount : SizeInt = 1);
 Procedure Finalize(Var T : TAnyType; ACount : SizeInt = 1);