From 6f2bd771198ac8e5efba948aef7d2c6518a2d1f9 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Tue, 29 Dec 2020 14:52:03 +0000
Subject: [PATCH]  * committed fix by  Emilio Martinez, first parameter of
 CreateDataAdviseHolder should be OUT

git-svn-id: trunk@47891 -
---
 packages/winunits-base/src/activex.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/winunits-base/src/activex.pp b/packages/winunits-base/src/activex.pp
index 71d0af6507..c84d897457 100644
--- a/packages/winunits-base/src/activex.pp
+++ b/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}