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

Lazlogger: Allow setting to nil. Issue #32548

Browse Source 
git-svn-id: branches/fixes_1_8@56558 -
This commit is contained in:
mattias 2017-11-30 14:43:18 +00:00
parent 9910209bb0
commit aac6237e0e
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/lazutils/lazloggerbase.pas
View File

@ -334,7 +334,8 @@ procedure SetDebugLogger(ALogger: TLazLogger);
begin begin
ReleaseRefAndNil(TheLazLogger); ReleaseRefAndNil(TheLazLogger);
TheLazLogger := ALogger; TheLazLogger := ALogger;
TheLazLogger.AddReference; if TheLazLogger <> nil then
TheLazLogger.AddReference;
end; end;
procedure RecreateDebugLogger; procedure RecreateDebugLogger;