paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 07:29:30 +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
ReleaseRefAndNil(TheLazLogger);
TheLazLogger := ALogger;
TheLazLogger.AddReference;
if TheLazLogger <> nil then
TheLazLogger.AddReference;
end;
procedure RecreateDebugLogger;