paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 04:09:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add IsConstValue

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-11-29 09:05:37 +01:00
parent 5704626762
commit 2c3b78682a
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
rtl/inc/system.fpd
View File

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