|
@@ -56,7 +56,7 @@ unit typinfo;
|
|
|
mkClassProcedure,mkClassFunction,mkClassConstructor,
|
|
|
mkClassDestructor,mkOperatorOverload);
|
|
|
TParamFlag = (pfVar,pfConst,pfArray,pfAddress,pfReference,pfOut,pfConstRef
|
|
|
- {$ifndef VER3_0},pfHidden,pfHigh,pfSelf,pfVmt{$endif VER3_0}
|
|
|
+ {$ifndef VER3_0},pfHidden,pfHigh,pfSelf,pfVmt,pfResult{$endif VER3_0}
|
|
|
);
|
|
|
TParamFlags = set of TParamFlag;
|
|
|
TIntfFlag = (ifHasGuid,ifDispInterface,ifDispatch,ifHasStrGUID);
|