--- Merging r34744 into '.':

U    packages/winunits-base/src/typelib.pas
--- Recording mergeinfo for merge of r34744 into '.':
 U   .

# revisions: 34744

git-svn-id: branches/fixes_3_0@35304 -

packages/winunits-base/src/typelib.pas

@@ -585,7 +585,7 @@ begin
     //get calling convention
     if FD^.callconv=CC_STDCALL then
       begin
-      if lowercase(BstrNameRef)='iunknown' then
+      if not (bIsDispatch or ((TA^.wTypeFlags and TYPEFLAG_FDUAL)=TYPEFLAG_FDUAL)) then
         sConv:='stdcall'
       else
         sConv:='safecall';