From b0ff5f8d9e70dab31d5f303c0b1395c107aef2e3 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Sat, 16 May 2020 13:26:17 +0000
Subject: [PATCH] # revisions: 45359

git-svn-id: branches/fixes_3_2@45377 -
---
 packages/winunits-base/src/activex.pp | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/packages/winunits-base/src/activex.pp b/packages/winunits-base/src/activex.pp
index 9051d38ba1..71d0af6507 100644
--- a/packages/winunits-base/src/activex.pp
+++ b/packages/winunits-base/src/activex.pp
@@ -2533,8 +2533,8 @@ TYPE
      Function Next(Celt:Ulong; out rgelt;pCeltFetched:pulong):HRESULT;StdCall;
 //    HRESULT RemoteNext(        [in] ULONG celt,        [out, size_is(celt), length_is( *pceltFetched)]        IUnknown **rgelt,        [out] ULONG *pceltFetched);
      Function Skip(Celt:Ulong):HResult;StdCall;
-     Function Reset():HResult;
-     Function Close(Out ppenum: IEnumUnknown):HResult;
+     Function Reset():HResult; stdcall;
+     Function Close(Out ppenum: IEnumUnknown):HResult; stdcall;
      END;
 
 
@@ -2548,7 +2548,7 @@ TYPE
        Function GetBindOptions(var BindOpts:TBind_Opts):HResult;  stdCall;
 //       Function RemoteGetBindOptions(Var bind_opts: TBind_Opts2):HResult;StdCall;
        Function GetRunningObjectTable(Out rot : IRunningObjectTable):Hresult; StdCall;
-       Function RegisterObjectParam(Const pszkey:LPOleStr;const punk:IUnknown):HResult;
+       Function RegisterObjectParam(Const pszkey:LPOleStr;const punk:IUnknown):HResult; stdcall;
        Function GetObjectParam(Const pszkey:LPOleStr; out punk: IUnknown):HResult; StdCall;
        Function EnumObjectParam (out enum:IEnumString):Hresult;StdCall;
        Function RevokeObjectParam(pszKey:LPOleStr):HResult;StdCall;
@@ -3197,7 +3197,7 @@ TYPE
    IThumbnailExtractor = Interface (IUnknown)
       ['{969dc708-5c76-11d1-8d86-0000f804b057}']
        Function ExtractThumbnail (pStg : IStorage; uLength,UHeight : ULong; Out uloutputlength,Height :ULong; Out OutputBitmap : HBITMAP): HResult; StdCall;
-       Function OnFileUpdated (pStg : IStorage):HResult;
+       Function OnFileUpdated (pStg : IStorage):HResult;stdcall;
        End;
 
 //****************************************************************************
@@ -3206,12 +3206,12 @@ TYPE
 
     IDummyHICONIncluder = Interface (IUnknown)
        ['{947990de-cc28-11d2-a0f7-00805f858fb1}']
-       Function Dummy (h1 : HICON; H2 :HDC):HResult;
+       Function Dummy (h1 : HICON; H2 :HDC):HResult;stdcall;
        End;
 
     IComThreadingInfo = Interface (IUnknown)
        ['{000001ce-0000-0000-C000-000000000046}']
-       Function GetCurrentApartmentType(out pAptType : DWord {APTTTYPE}):HResult;
+       Function GetCurrentApartmentType(out pAptType : DWord {APTTTYPE}):HResult;stdcall;
        Function GetCurrentThreadType(Out ThreadType : Dword {THDTTYPE}):HResult;StdCall;
        Function GetCurrentLogicalThreadID(Out guidlogicalThreadId : TGUID):HResult;StdCall;
        Function SetCurrentLogicalThreadID(Const guidlogicalThreadId : TGUID):HResult;StdCall;