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

+ Fixed all constants so they match compiler defined constants

Browse Source
This commit is contained in:
michael 2000-06-14 08:52:05 +00:00
parent 18dd1f715b
commit b319315b4c
1 changed files with 25 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
rtl/inc/rtti.inc
View File

@ -18,11 +18,26 @@
{ The RTTI is implemented through a series of constants : }
Const
tkLString = 10;
tkWString = 11;
tkVariant = 12;
tkArray = 13;
tkRecord = 14;
tkUnknown = 0;
tkInteger = 1;
tkChar = 2;
tkEnumeration = 3;
tkFloat = 4;
tkSet = 5;
tkMethod = 6;
tkSString = 7;
tkString = tkSString;
tkLString = 8;
tkAString = 9;
tkWString = 10;
tkVariant = 11;
tkArray = 12;
tkRecord = 13;
tkInterface = 14;
tkClass = 15;
tkObject = 16;
tkWChar = 17;
tkBool = 18;
{ A record is designed as follows :
1 : tkrecord
@ -71,10 +86,13 @@ TArrayRec = record
{
$Log$
Revision 1.6 2000-02-09 16:59:31 peter
Revision 1.7 2000-06-14 08:52:05 michael
+ Fixed all constants so they match compiler defined constants
Revision 1.6 2000/02/09 16:59:31 peter
* truncated log
Revision 1.5 2000/01/07 16:41:36 daniel
* copyright 2000
}
}