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

LazLogger: fix missing inherited call / for TRefCountedObject

Browse Source 
git-svn-id: trunk@64883 -
This commit is contained in:
martin 2021-03-28 20:26:15 +00:00
parent cafbad9bab
commit a6b862f417
2 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazutils/lazloggerbase.pas
View File

@ -543,6 +543,7 @@ end;
constructor TLazLoggerLogGroupList.Create;
begin
inherited;
FList := TFPList.Create;
end;
@ -788,6 +789,7 @@ end;
constructor TLazLogger.Create;
begin
inherited;
InitCriticalSection(FLoggerCriticalSection);
FIsInitialized := False;
FUseGlobalLogGroupList := False;

2
components/lazutils/lazloggerprofiling.pas
View File

@ -273,6 +273,7 @@ end;
constructor TLazLoggerBlockMemWatch.Create;
begin
inherited;
MaxDepth := 100;
FMem[0] := GetHeapStatus.TotalAllocated;
FNested[0] := 0;
@ -330,6 +331,7 @@ end;
constructor TLazLoggerBlockTimer.Create;
begin
inherited;
MaxDepth := 100;
FTimes[0] := GetTickCount64;
FNested[0] := 0;