* patch from bug #24218, don't generate safecalls in not dispatch classes.

git-svn-id: trunk@34744 -

packages/winunits-base/src/typelib.pas

@@ -586,7 +586,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';