diff options
Diffstat (limited to 'rtl/objpas/typinfo.pp')
-rw-r--r-- | rtl/objpas/typinfo.pp | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/rtl/objpas/typinfo.pp b/rtl/objpas/typinfo.pp index 534d0235a8..293ee0593c 100644 --- a/rtl/objpas/typinfo.pp +++ b/rtl/objpas/typinfo.pp @@ -52,7 +52,7 @@ unit typinfo; TFloatType = (ftSingle,ftDouble,ftExtended,ftComp,ftCurr); {$endif} TMethodKind = (mkProcedure,mkFunction,mkConstructor,mkDestructor, - mkClassProcedure,mkClassFunction,mkClassConstructor, + mkClassProcedure,mkClassFunction,mkClassConstructor, mkClassDestructor,mkOperatorOverload); TParamFlag = (pfVar,pfConst,pfArray,pfAddress,pfReference,pfOut); TParamFlags = set of TParamFlag; @@ -2009,7 +2009,7 @@ end; Function GetPropValue(Instance: TObject; PropInfo: PPropInfo; PreferStrings: Boolean): Variant; begin - CheckVariantEvent(Pointer(OnGetPropValue)); + CheckVariantEvent(CodePointer(OnGetPropValue)); Result:=OnGetPropValue(Instance,PropInfo,PreferStrings); end; @@ -2022,8 +2022,8 @@ end; Procedure SetPropValue(Instance: TObject; PropInfo: PPropInfo; const Value: Variant); begin - CheckVariantEvent(Pointer(OnSetPropValue)); - OnSetPropValue(Instance,PropInfo,Value); + CheckVariantEvent(CodePointer(OnSetPropValue)); + OnSetPropValue(Instance,PropInfo,Value); end; |