paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 23:49:22 +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

30
rtl/inc/rtti.inc
View File

@ -18,11 +18,26 @@
{ The RTTI is implemented through a series of constants : } { The RTTI is implemented through a series of constants : }
Const Const
tkLString = 10; tkUnknown = 0;
tkWString = 11; tkInteger = 1;
tkVariant = 12; tkChar = 2;
tkArray = 13; tkEnumeration = 3;
tkRecord = 14; 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 : { A record is designed as follows :
1 : tkrecord 1 : tkrecord
@ -71,7 +86,10 @@ TArrayRec = record
{ {
$Log$ $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 * truncated log
Revision 1.5 2000/01/07 16:41:36 daniel Revision 1.5 2000/01/07 16:41:36 daniel