paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-08 13:08:00 +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
refcount: integer;
public
function QueryInterface(const iid : tguid;out obj) : Hresult;stdcall;
function QueryInterface(constref iid : tguid;out obj) : Hresult;stdcall;
function _AddRef : longint;stdcall;
function _Release : longint;stdcall;
end;
@ -25,7 +25,7 @@ type
var
called: Boolean = False;
function TTest.QueryInterface(const IID: TGUID; out Obj): Hresult; stdcall;
function TTest.QueryInterface(constref IID: TGUID; out Obj): Hresult; stdcall;
begin
called := true;
if getinterface(iid,obj) then