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

* fix test now that it is actually executed

Browse Source 
git-svn-id: trunk@30030 -
This commit is contained in:
florian 2015-02-28 16:25:09 +00:00
parent d8fe799798
commit 1d2d1364c9
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/tbs/tb0571.pp
View File

@ -17,7 +17,7 @@ type
private private
refcount: integer; refcount: integer;
public public
function QueryInterface(const iid : tguid;out obj) : Hresult;stdcall; function QueryInterface(constref iid : tguid;out obj) : Hresult;stdcall;
function _AddRef : longint;stdcall; function _AddRef : longint;stdcall;
function _Release : longint;stdcall; function _Release : longint;stdcall;
end; end;
@ -25,7 +25,7 @@ type
var var
called: Boolean = False; called: Boolean = False;
function TTest.QueryInterface(const IID: TGUID; out Obj): Hresult; stdcall; function TTest.QueryInterface(constref IID: TGUID; out Obj): Hresult; stdcall;
begin begin
called := true; called := true;
if getinterface(iid,obj) then if getinterface(iid,obj) then