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

Debugger, testsuite: fix crash if logging is disabled

Browse Source 
git-svn-id: trunk@61446 -
This commit is contained in:
martin 2019-06-22 17:09:36 +00:00
parent a326525422
commit 745d2b94d1
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/lazdebuggers/lazdebugtestbase/testdbgtestsuites.pas
View File

@ -545,10 +545,11 @@ end;
procedure TDBGTestCase.LogError(const s: string; CopyToTestLogger: Boolean); procedure TDBGTestCase.LogError(const s: string; CopyToTestLogger: Boolean);
begin begin
if GetLogActive or (TestControlGetWriteLog = wlOnError) then if GetLogActive or (TestControlGetWriteLog = wlOnError) then begin
CreateLog; CreateLog;
FLogFile.WriteLnToFile(EscapeText(s)); FLogFile.WriteLnToFile(EscapeText(s));
//writeln(FLogFile, EscapeText(s)); //writeln(FLogFile, EscapeText(s));
end;
if CopyToTestLogger then if CopyToTestLogger then
TestLogger.DebugLn(s); TestLogger.DebugLn(s);
end; end;