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

* fixed some out declarations

Browse Source
This commit is contained in:
florian 2000-11-04 17:31:50 +00:00
parent 1ba347c47d
commit 5c645814dc
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/inc/objpash.inc
View File

@ -151,7 +151,7 @@
{$ifndef ver1_0}
IUnknown = interface
['{00000000-0000-0000-C000-000000000046}']
function QueryInterface(const iid: tguid; var {out} obj): LongInt; stdcall;
function QueryInterface(const iid: tguid; out obj): LongInt; stdcall;
function _AddRef: LongInt; stdcall;
function _Release: LongInt; stdcall;
end;
@ -159,9 +159,9 @@
{ for native dispinterface support }
IDispatch = interface(IUnknown)
['{00020400-0000-0000-C000-000000000046}']
function GetTypeInfoCount({out}var count: LongInt): LongInt; stdcall;
function GetTypeInfoCount(out count: LongInt): LongInt; stdcall;
function GetTypeInfo(Index, LocaleID: LongInt;
var {out} TypeInfo): LongInt; stdcall;
out TypeInfo): LongInt; stdcall;
function GetIDsOfNames(const iid: TGUID; names: Pointer;
NameCount, LocaleID: LongInt; DispIDs: Pointer): LongInt; stdcall;
function Invoke(DispID: LongInt; const iid: TGUID;
@ -258,7 +258,10 @@
end;
{
$Log$
Revision 1.5 2000-11-04 16:28:55 florian
Revision 1.6 2000-11-04 17:31:50 florian
* fixed some out declarations
Revision 1.5 2000/11/04 16:28:55 florian
+ interfaces support
Revision 1.4 2000/09/30 07:38:07 sg
@ -271,4 +274,4 @@
Revision 1.2 2000/07/13 11:33:45 michael
+ removed logs
}
}