paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-04 05:59:49 +01: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

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

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