paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 17:59:22 +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; constructor TLazLoggerLogGroupList.Create;
begin begin
inherited;
FList := TFPList.Create; FList := TFPList.Create;
end; end;
@ -788,6 +789,7 @@ end;
constructor TLazLogger.Create; constructor TLazLogger.Create;
begin begin
inherited;
InitCriticalSection(FLoggerCriticalSection); InitCriticalSection(FLoggerCriticalSection);
FIsInitialized := False; FIsInitialized := False;
FUseGlobalLogGroupList := False; FUseGlobalLogGroupList := False;

2
components/lazutils/lazloggerprofiling.pas
View File

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