paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-13 06:19:58 +01:00
Code Issues Packages Projects Releases Wiki Activity

Debugger test: fix leak in 2ndary logger

Browse Source 
git-svn-id: trunk@59855 -
This commit is contained in:
martin 2018-12-18 16:03:37 +00:00
parent 3797b36c48
commit ce908679b0
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/lazdebuggers/lazdebugtestbase/testoutputlogger.pas
View File

@ -5,7 +5,7 @@ unit TestOutputLogger;
interface interface
uses uses
Classes, SysUtils, LazLogger; Classes, SysUtils, LazLogger, LazClasses;
function GetTestLogger: TLazLoggerFile; inline; function GetTestLogger: TLazLoggerFile; inline;
@ -19,6 +19,7 @@ function GetTestLogger: TLazLoggerFile;
begin begin
if TheLogger = nil then begin if TheLogger = nil then begin
TheLogger := TLazLoggerFile.Create; TheLogger := TLazLoggerFile.Create;
TheLogger.AddReference;
TLazLoggerFile(TheLogger).Assign(DebugLogger); TLazLoggerFile(TheLogger).Assign(DebugLogger);
TheLogger.OnDbgOut := nil; TheLogger.OnDbgOut := nil;
TheLogger.OnDebugLn := nil; TheLogger.OnDebugLn := nil;
@ -27,5 +28,8 @@ begin
Result := TheLogger; Result := TheLogger;
end; end;
finalization
ReleaseRefAndNil(TheLogger);
end. end.