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

* Patch from Sebastian Guenther

Browse Source
This commit is contained in:
michael 1999-08-06 13:21:40 +00:00
parent 97393a3370
commit 7cc244b309
1 changed files with 17 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
rtl/objpas/typinfo.pp
View File

@ -53,7 +53,8 @@ unit typinfo;
TFloatType = (ftSingle,ftDouble,ftExtended,ftComp,ftCurr,
ftFixed16,ftFixed32);
TMethodKind = (mkProcedure,mkFunction,mkSafeProcedure,mkSafeFunction);
TMethodKind = (mkProcedure,mkFunction,mkConstructor,mkDestructor,
mkClassProcedure, mkClassFunction);
TParamFlags = set of (pfVar,pfConst,pfArray,pfAddress,pfReference,pfOut);
TIntfFlags = set of (ifHasGuid,ifDispInterface,ifDispatch);
@ -111,7 +112,17 @@ unit typinfo;
// here the properties follow as array of TPropInfo
);
tkMethod:
({!!!!!!!}
(MethodKind : TMethodKind;
ParamCount : Byte;
ParamList : array[0..1023] of Char
{in reality ParamList is a array[1..ParamCount] of:
record
Flags : TParamFlags;
ParamName : ShortString;
TypeName : ShortString;
end;
followed by
ResultType : ShortString}
);
tkInterface:
({!!!!!!!}
@ -763,7 +774,10 @@ end.
{
$Log$
Revision 1.23 1999-06-04 12:48:37 michael
Revision 1.24 1999-08-06 13:21:40 michael
* Patch from Sebastian Guenther
Revision 1.23 1999/06/04 12:48:37 michael
* Fix by Sebastian Guenther.
Revision 1.22 1999/05/19 12:03:23 florian