paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-26 21:28:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* interfaces support

Browse Source
This commit is contained in:
florian 2000-11-04 16:28:26 +00:00
parent 51527ba1c9
commit d3e3b54dc4
1 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
rtl/objpas/typinfo.pp
View File

@ -52,7 +52,8 @@ 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,tkBool,tkInt64,tkQWord); tkClass,tkObject,tkWChar,tkBool,tkInt64,tkQWord,
tkDynArray,tkInterfaceRaw);
TTOrdType = (otSByte,otUByte,otSWord,otUWord,otSLong,otULong); TTOrdType = (otSByte,otUByte,otSWord,otUWord,otSLong,otULong);
@ -133,8 +134,13 @@ unit typinfo;
(MinInt64Value, MaxInt64Value: Int64); (MinInt64Value, MaxInt64Value: Int64);
tkQWord: tkQWord:
(MinQWordValue, MaxQWordValue: QWord); (MinQWordValue, MaxQWordValue: QWord);
tkInterface: tkInterface,
({!!!!!!!} tkInterfaceRaw:
(
IntfParent: PPTypeInfo;
IID: PGUID;
IIDStr: ShortString;
IntfUnit: ShortString;
); );
end; end;
@ -862,7 +868,10 @@ end.
{ {
$Log$ $Log$
Revision 1.3 2000-07-17 08:37:58 sg Revision 1.4 2000-11-04 16:28:26 florian
* interfaces support
Revision 1.3 2000/07/17 08:37:58 sg
* Fixed GetEnumValue (bug #1049, reported by Neil Graham) * Fixed GetEnumValue (bug #1049, reported by Neil Graham)
Revision 1.2 2000/07/13 11:33:52 michael Revision 1.2 2000/07/13 11:33:52 michael