--- Merging r47891 into '.':

U    packages/winunits-base/src/activex.pp
--- Recording mergeinfo for merge of r47891 into '.':
 U   .

# revisions: 47891
r47891 | marco | 2020-12-29 15:52:03 +0100 (Tue, 29 Dec 2020) | 1 line
Changed paths:
   M /trunk/packages/winunits-base/src/activex.pp

 * committed fix by  Emilio Martinez, first parameter of CreateDataAdviseHolder should be OUT

git-svn-id: branches/fixes_3_2@47903 -

packages/winunits-base/src/activex.pp

@@ -4541,7 +4541,7 @@ type
   procedure CoTaskMemFree(_para1:PVOID);stdcall; external  'ole32.dll' name 'CoTaskMemFree';
 
 {$ifndef wince}
-  function CreateDataAdviseHolder(_para1:IDataAdviseHolder):HRESULT;stdcall; external  'ole32.dll' name 'CreateDataAdviseHolder';
+  function CreateDataAdviseHolder(out _para1:IDataAdviseHolder):HRESULT;stdcall; external  'ole32.dll' name 'CreateDataAdviseHolder';
   function CreateDataCache(_para1:IUnknown; const _para2:TCLSID; const _para3:TIID; out _para4):HRESULT;stdcall; external  'ole32.dll' name 'CreateDataCache';
 {$endif wince}