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

debugger: prefix debug output with 'Debug Output: ' string

Browse Source 
git-svn-id: trunk@42105 -
This commit is contained in:
paul 2013-07-16 07:48:09 +00:00
parent d63a40c020
commit 7d31d49396
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
debugger/gdbmidebugger.pp
View File

@ -2091,7 +2091,7 @@ var
InLogWarning := True;
Delete(Warning, 1, Length(LogWarning));
Warning := MakePrintable(UnEscapeBackslashed(Trim(Warning), [uefOctal, uefTab, uefNewLine]));
DoDbgEvent(ecOutput, etOutputDebugString, Warning);
DoDbgEvent(ecOutput, etOutputDebugString, 'Debug Output: ' + Warning);
end;
if InLogWarning then
FLogWarnings := FLogWarnings + Warning + LineEnding;