@@ -182,8 +182,13 @@ TPythonVariantType = class(TInvokeableVariantType, IVarInstanceReference)
182
182
const AName: string): Boolean; override;
183
183
function SetProperty (const V: TVarData; const AName: string;
184
184
const Value : TVarData): Boolean; override;
185
- procedure DispInvoke (Dest: PVarData; const Source: TVarData;
186
- CallDesc: PCallDesc; Params: Pointer); override;
185
+ { $IFDEF DELPHIXE7_OR_HIGHER}
186
+ procedure DispInvoke (Dest: PVarData;
187
+ [Ref] const Source: TVarData; CallDesc: PCallDesc; Params: Pointer);
188
+ { $ELSE}
189
+ procedure DispInvoke (Dest: PVarData;
190
+ const Source: TVarData; CallDesc: PCallDesc; Params: Pointer);
191
+ { $ENDIF}
187
192
end ;
188
193
189
194
var
@@ -931,9 +936,14 @@ procedure SetClearVarToEmptyParam(var V: TVarData);
931
936
CPropertyGet = $02 ;
932
937
CPropertySet = $04 ;
933
938
934
- { $IFDEF USESYSTEMDISPINVOKE }
939
+ { $IFDEF DELPHIXE7_OR_HIGHER }
935
940
procedure TPythonVariantType.DispInvoke (Dest: PVarData;
936
- const Source: TVarData; CallDesc: PCallDesc; Params: Pointer);
941
+ [Ref] const Source: TVarData; CallDesc: PCallDesc; Params: Pointer);
942
+ { $ELSE}
943
+ procedure TPythonVariantType.DispInvoke (Dest: PVarData;
944
+ const Source: TVarData; CallDesc: PCallDesc; Params: Pointer);
945
+ { $ENDIF}
946
+ { $IFDEF USESYSTEMDISPINVOKE}
937
947
{ $IFDEF DELPHIXE2_OR_HIGHER}
938
948
// Modified to correct memory leak QC102387
939
949
procedure PatchedDispInvoke (Dest: PVarData;
@@ -1073,8 +1083,6 @@ TStringDesc = record
1073
1083
end ;
1074
1084
1075
1085
{ $ELSE USESYSTEMDISPINVOKE}
1076
- procedure TPythonVariantType.DispInvoke (Dest: PVarData;
1077
- const Source: TVarData; CallDesc: PCallDesc; Params: Pointer);
1078
1086
begin
1079
1087
DoDispInvoke(Dest, Source, CallDesc, Params);
1080
1088
end ;
0 commit comments