paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 05:26:01 +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;
destructor TInterfacedObject.destroy;
destructor TInterfacedObject.Destroy;
begin
// We must explicitly reset. Bug ID 32353
FRefCount:=0;
FDestroyCount:=0;
inherited destroy;
inherited Destroy;
end;
procedure TInterfacedObject.AfterConstruction;

6
rtl/inc/objpash.inc
View File

@ -298,18 +298,18 @@
TInterfacedObject = class(TObject,IUnknown)
protected
frefcount : longint;
FRefCount : longint;
FDestroyCount : longint;
{ 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 _AddRef : longint;{$IFNDEF WINDOWS}cdecl{$ELSE}stdcall{$ENDIF};
function _Release : longint;{$IFNDEF WINDOWS}cdecl{$ELSE}stdcall{$ENDIF};
public
destructor destroy; override;
destructor Destroy; override;
procedure AfterConstruction;override;
procedure BeforeDestruction;override;
class function NewInstance : TObject;override;
property RefCount : longint read frefcount;
property RefCount : longint read FRefCount;
end;
TInterfacedClass = class of TInterfacedObject;