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

+ more fields to TTypeInfo added

Browse Source
This commit is contained in:
florian 1998-09-07 23:11:43 +00:00
parent 29fe330347
commit 7e27f45109
1 changed files with 25 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
rtl/objpas/typinfo.pp
View File

@ -31,7 +31,7 @@ unit typinfo;
TTypeKind = (tkUnknown,tkInteger,tkChar,tkEnumeration, TTypeKind = (tkUnknown,tkInteger,tkChar,tkEnumeration,
tkFloat,tkSet,tkMethod,tkSString,tkLString,tkAString, tkFloat,tkSet,tkMethod,tkSString,tkLString,tkAString,
tkWString,tkVariant,tkArray,tkRecord,tkInterface, tkWString,tkVariant,tkArray,tkRecord,tkInterface,
tkClass,tkObject,tkWChar); tkClass,tkObject,tkWChar,tkBool);
TTOrdType = (otSByte,otUByte,otSWord,otUWord,otSLong,otULong); TTOrdType = (otSByte,otUByte,otSWord,otUWord,otSLong,otULong);
@ -67,7 +67,18 @@ unit typinfo;
tkUnKnown,tkLString,tkWString,tkAString,tkVariant: tkUnKnown,tkLString,tkWString,tkAString,tkVariant:
(); ();
tkInteger,tkChar,tkEnumeration,tkWChar: tkInteger,tkChar,tkEnumeration,tkWChar:
( //!!!!! To be added ); (OrdType : TOrdType;
case TTypeKind of
tkInteger,tkChar,tkEnumeration,tkBool,tkWChar : (
MinValue,MaxValue : Longint;
case TTypeKind of
tkEnumeration:
BaseType : PTypeInfo;
NameList : ShortString)
);
tkSet:
(CompType : PTypeInfo)
);
tkFloat: tkFloat:
(FloatType : TFloatType); (FloatType : TFloatType);
tkSString: tkSString:
@ -76,7 +87,14 @@ unit typinfo;
(ClassType : TClass; (ClassType : TClass;
ParentInfo : PTypeInfo; ParentInfo : PTypeInfo;
PropCount : SmallInt; PropCount : SmallInt;
UnitName : ShortString; UnitName : ShortString
);
tkMethod:
({!!!!!!!}
);
tkInterface:
({!!!!!!!}
);
end; end;
PPropInfo = ^TPropInfo; PPropInfo = ^TPropInfo;
@ -197,7 +215,10 @@ end.
{ {
$Log$ $Log$
Revision 1.4 1998-09-07 19:34:47 florian Revision 1.5 1998-09-07 23:11:43 florian
+ more fields to TTypeInfo added
Revision 1.4 1998/09/07 19:34:47 florian
* constant value is now supported as stored condition * constant value is now supported as stored condition
Revision 1.3 1998/09/07 08:32:59 florian Revision 1.3 1998/09/07 08:32:59 florian