Browse Source

* Add stub for IsManagedType

Michaël Van Canneyt 2 years ago
parent
commit
348fbfde9d
1 changed files with 1 additions and 0 deletions
  1. 1 0
      rtl/inc/system.fpd

+ 1 - 0
rtl/inc/system.fpd

@@ -95,6 +95,7 @@ Function TypeInfo(Const T : AnyType) : Pointer;
 Function GetTypeKind(Const T : AnyType) : TTypeKind;
 Function GetTypeKind(Const T : AnyType) : TTypeKind;
 Procedure Fail;
 Procedure Fail;
 Function TypeOf(T : TObjectType) : Pointer;
 Function TypeOf(T : TObjectType) : Pointer;
+Function IsManagedType(T : TType) : Boolean;
 Procedure Initialize(Var T : TAnyType; ACount : SizeInt = 1);
 Procedure Initialize(Var T : TAnyType; ACount : SizeInt = 1);
 Procedure Finalize(Var T : TAnyType; ACount : SizeInt = 1);
 Procedure Finalize(Var T : TAnyType; ACount : SizeInt = 1);