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

TInterfacedObject.Destroy: fix case for correct auto-completion

Browse Source 
git-svn-id: trunk@43418 -
This commit is contained in:
ondrej 2019-11-08 21:29:26 +00:00
parent 5f6f5cb864
commit 9a9cd15ec4
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/objpas.inc
View File

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

6
rtl/inc/objpash.inc
View File

@ -298,18 +298,18 @@
TInterfacedObject = class(TObject,IUnknown) TInterfacedObject = class(TObject,IUnknown)
protected protected
frefcount : longint; FRefCount : longint;
FDestroyCount : longint; FDestroyCount : longint;
{ implement methods of IUnknown } { implement methods of IUnknown }
function QueryInterface({$IFDEF FPC_HAS_CONSTREF}constref{$ELSE}const{$ENDIF} iid : tguid;out obj) : longint;{$IFNDEF WINDOWS}cdecl{$ELSE}stdcall{$ENDIF}; function QueryInterface({$IFDEF FPC_HAS_CONSTREF}constref{$ELSE}const{$ENDIF} iid : tguid;out obj) : longint;{$IFNDEF WINDOWS}cdecl{$ELSE}stdcall{$ENDIF};
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; 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;
property RefCount : longint read frefcount; property RefCount : longint read FRefCount;
end; end;
TInterfacedClass = class of TInterfacedObject; TInterfacedClass = class of TInterfacedObject;