paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-21 21:50:07 +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

4
rtl/inc/objpas.inc
View File

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

2
tests/webtbs/tw6868.pp
View File

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