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

* Fix bug ID #32353, reset ref count fields in destructor

Browse Source 
git-svn-id: trunk@37112 -
This commit is contained in:
michael 2017-09-02 15:07:23 +00:00
parent 0088673d13
commit 3787d52dee
2 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/inc/objpas.inc
View File

@ -1050,6 +1050,15 @@
end; end;
end; end;
destructor TInterfacedObject.destroy;
begin
// We must explicitly reset. Bug ID 32353
FRefCount:=0;
FDestroyCount:=0;
inherited destroy;
end;
procedure TInterfacedObject.AfterConstruction; procedure TInterfacedObject.AfterConstruction;
begin begin

3
rtl/inc/objpash.inc
View File

@ -294,6 +294,8 @@
VarResult,ExcepInfo,ArgErr : pointer) : HResult;stdcall; VarResult,ExcepInfo,ArgErr : pointer) : HResult;stdcall;
end; end;
{ TInterfacedObject }
TInterfacedObject = class(TObject,IUnknown) TInterfacedObject = class(TObject,IUnknown)
protected protected
frefcount : longint; frefcount : longint;
@ -303,6 +305,7 @@
function _AddRef : longint;{$IFNDEF WINDOWS}cdecl{$ELSE}stdcall{$ENDIF}; function _AddRef : longint;{$IFNDEF WINDOWS}cdecl{$ELSE}stdcall{$ENDIF};
function _Release : longint;{$IFNDEF WINDOWS}cdecl{$ELSE}stdcall{$ENDIF}; function _Release : longint;{$IFNDEF WINDOWS}cdecl{$ELSE}stdcall{$ENDIF};
public public
destructor destroy; override;
procedure AfterConstruction;override; procedure AfterConstruction;override;
procedure BeforeDestruction;override; procedure BeforeDestruction;override;
class function NewInstance : TObject;override; class function NewInstance : TObject;override;