paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-25 17:29:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

Debugger: fix missing inherited call / for TRefCountedObject

Browse Source 
git-svn-id: trunk@64885 -
This commit is contained in:
martin 2021-03-28 20:26:19 +00:00
parent 4b10871614
commit f2db095c73
1 changed files with 3 additions and 0 deletions

3
debugger/debugger.pp
View File

@ -2170,6 +2170,7 @@ end;
constructor TDebuggerUnitInfo.Create(const AFileName: String; const AFullFileName: String);
begin
inherited Create;
FFileName := AFileName;
FDbgFullName := TrimFilename(AFullFileName);
FLocationType := dltUnknown;
@ -2178,6 +2179,7 @@ end;
constructor TDebuggerUnitInfo.Create(const AUnitName, AClassName,
AFunctionName, AFunctionArgs: String);
begin
inherited Create;
include(FFlags, dlfSearchByFunctionName);
FUnitName := AUnitName;
FSrcClassName := AClassName;
@ -2315,6 +2317,7 @@ end;
constructor TSnapshot.Create(ASnapMgr: TSnapshotManager);
begin
inherited Create;
FTimeStamp := Now;
FSnapMgr := ASnapMgr;
AddReference;