mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-09 19:38:30 +02:00
Debugger, testsuite: fix crash if logging is disabled
git-svn-id: trunk@61446 -
This commit is contained in:
parent
a326525422
commit
745d2b94d1
@ -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;
|
||||||
|
Loading…
Reference in New Issue
Block a user