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

Merge branch 'Free_Coder-main-patch-26312' into 'main'

Browse Source 
bug fix for #39382 in typelib.pas

See merge request freepascal.org/fpc/source!64
This commit is contained in:
Frank Freeman 2025-04-02 20:00:19 +00:00
commit 82dafb198c
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

@ -617,6 +617,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