Home Explore Help
Sign In
pascal
/
pas2js
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

rtl: fixate IUnknown to style COM

mattias 7 years ago
parent
719f42195e
commit
ed552d5c67
1 changed files with 1 additions and 0 deletions
Unified View Show Diff Stats
  1. 1 0
      packages/rtl/system.pas

+ 1 - 0
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;