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

* fixed previous commit

Browse Source 
git-svn-id: trunk@5843 -
This commit is contained in:
florian 2007-01-07 18:20:58 +00:00
parent 4c7c5e5adf
commit 8e8c0832c6
2 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/inc/objpas.inc
View File

@ -51,8 +51,10 @@
procedure fpc_intf_decr_ref(var i: pointer);[public,alias: 'FPC_INTF_DECR_REF']; compilerproc;
begin
if assigned(i) then
IUnknown(i)._Release;
i:=nil;
begin
IUnknown(i)._Release;
i:=nil;
end;
end;
{ local declaration for intf_decr_ref for local access }
@ -85,8 +87,6 @@
begin
if IUnknown(S).QueryInterface(iid,tmp)<>S_OK then
handleerror(219);
if assigned(tmp) then
IUnknown(tmp)._AddRef;
if assigned(D) then
IUnknown(D)._Release;
D:=tmp;

2
tests/webtbs/tw6868.pp
View File

@ -16,8 +16,6 @@ end;
procedure FreeHelpSystem;
begin
if HelpManager <> nil then
HelpManager._Release;
HelpManager := nil;
end;