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

Interface unref should zero the pointer first.

Browse Source
This commit is contained in:
Rika Ichinose 2025-01-29 04:13:48 +03:00 committed by FPK
parent 98a5072fbe
commit 1e041077cc
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/objpas.inc
View File

@ -53,11 +53,14 @@
{ interface helpers }
procedure fpc_intf_decr_ref(var i: pointer);[public,alias: 'FPC_INTF_DECR_REF']; compilerproc;
var
iFetch: pointer;
begin
if assigned(i) then
iFetch:=i;
if assigned(iFetch) then
begin
IUnknown(i)._Release;
i:=nil;
IUnknown(iFetch)._Release;
end;
end;