paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 10:07:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

bug fix for #39382 in typelib.pas

Browse Source
This commit is contained in:
Frank Freeman 2021-10-02 14:54:35 +00:00
parent 859ae5fc7c
commit e13f225e4a
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/winunits-base/src/typelib.pas
View File

@ -610,6 +610,12 @@ begin
// build function/procedure
INVOKE_FUNC :
begin
{ https://docs.microsoft.com/en-us/windows/win32/api/oaidl/ne-oaidl-funcflags
FUNCFLAG_FRESTRICTED: The function should not be accessible from macro languages.
This flag is intended for system-level functions or functions that type browsers should not display.
FUNCFLAG_FRESTRICTED applies to all methods of IUnknown and IDispatch.}
if FD^.wFuncFlags=FUNCFLAG_FRESTRICTED then // do not import
Continue;
if not MakeValidId(BstrName,sMethodName) then
AddToHeader('// Warning: renamed method ''%s'' in %s to ''%s''',[BstrName,iname,sMethodName],True);
bIsFunction:=(bIsDispatch and (FD^.elemdescFunc.tdesc.vt<>VT_VOID)) or