paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-12 03:25:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

rtl: fixate IUnknown to style COM

Browse Source
This commit is contained in:
mattias 2018-05-10 08:01:38 +00:00
parent 719f42195e
commit ed552d5c67
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
packages/rtl/system.pas
View File

@ -125,6 +125,7 @@ const
E_NOTIMPL = -2147467263; // FPC: longint($80004001) E_NOTIMPL = -2147467263; // FPC: longint($80004001)
type type
{$Interfaces COM}
IUnknown = interface IUnknown = interface
['{00000000-0000-0000-C000-000000000046}'] ['{00000000-0000-0000-C000-000000000046}']
function QueryInterface(const iid: TGuid; out obj): Integer; function QueryInterface(const iid: TGuid; out obj): Integer;