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

* bugfix of webbug 4404

Browse Source 
git-svn-id: trunk@1304 -
This commit is contained in:
tom_at_work 2005-10-05 21:56:49 +00:00
parent b2e1cf2610
commit 282f33100f
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/objpas/typinfo.pp
View File

@ -44,7 +44,8 @@ unit typinfo;
TFloatType = (ftSingle,ftDouble,ftExtended,ftComp,ftCurr); TFloatType = (ftSingle,ftDouble,ftExtended,ftComp,ftCurr);
TMethodKind = (mkProcedure,mkFunction,mkConstructor,mkDestructor, TMethodKind = (mkProcedure,mkFunction,mkConstructor,mkDestructor,
mkClassProcedure, mkClassFunction); mkClassProcedure, mkClassFunction);
TParamFlags = set of (pfVar,pfConst,pfArray,pfAddress,pfReference,pfOut); TParamFlag = (pfVar,pfConst,pfArray,pfAddress,pfReference,pfOut);
TParamFlags = set of TParamFlag;
TIntfFlag = (ifHasGuid,ifDispInterface,ifDispatch,ifHasStrGUID); TIntfFlag = (ifHasGuid,ifDispInterface,ifDispatch,ifHasStrGUID);
TIntfFlags = set of TIntfFlag; TIntfFlags = set of TIntfFlag;
TIntfFlagsBase = set of TIntfFlag; TIntfFlagsBase = set of TIntfFlag;