|
|
@@ -0,0 +1,26 @@
|
|
|
+{
|
|
|
+ This file is part of the Free Pascal run time library.
|
|
|
+ Copyright (c) 2018 by Sven Barth
|
|
|
+ member of the Free Pascal development team
|
|
|
+
|
|
|
+ Contains various RTTI related, private declarations that are used inside
|
|
|
+ the system unit before rtti.inc might be included.
|
|
|
+
|
|
|
+ See the file COPYING.FPC, included in this distribution,
|
|
|
+ for details about the copyright.
|
|
|
+
|
|
|
+ This program is distributed in the hope that it will be useful,
|
|
|
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
|
+
|
|
|
+ **********************************************************************}
|
|
|
+
|
|
|
+
|
|
|
+type
|
|
|
+ PTypeKind = ^TTypeKind;
|
|
|
+
|
|
|
+const
|
|
|
+ // all potentially managed types
|
|
|
+ tkManagedTypes = [tkAstring,tkWstring,tkUstring,tkArray,
|
|
|
+ tkObject,tkRecord,tkDynArray,tkInterface,tkVariant];
|
|
|
+
|
svenbarth