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

IDE: messages window: add uncategorized messages as mluDebug

Browse Source 
git-svn-id: branches/fixes_1_6@52989 -
This commit is contained in:
mattias 2016-09-18 18:00:45 +00:00
parent f40f77e2f0
commit 5f08b52cb3
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/exttools.pas
View File

@ -427,6 +427,8 @@ var
OldMsgCount: LongInt;
Parser: TExtToolParser;
NeedSynchronize: Boolean;
MsgLine: TMessageLine;
LineStr: String;
begin
{$IFDEF VerboseExtToolAddOutputLines}
DebuglnThreadLog(['TExternalTool.AddOutputLines ',Title,' Tick=',IntToStr(GetTickCount64),' Lines=',Lines.Count]);
@ -444,13 +446,20 @@ begin
// feed new lines into all parsers, converting raw lines into messages
for Line:=OldOutputCount to WorkerOutput.Count-1 do begin
Handled:=false;
LineStr:=WorkerOutput[Line];
for i:=0 to ParserCount-1 do begin
{$IFDEF VerboseExtToolAddOutputLines}
DebuglnThreadLog(['TExternalTool.AddOutputLines ',DbgSName(Parsers[i]),' Line="',WorkerOutput[Line],'" READLINE ...']);
{$ENDIF}
Parsers[i].ReadLine(WorkerOutput[Line],Line,Handled);
Parsers[i].ReadLine(LineStr,Line,Handled);
if Handled then break;
end;
if (not Handled) then begin
MsgLine:=WorkerMessages.CreateLine(Line);
MsgLine.Msg:=LineStr; // use raw output as default msg
MsgLine.Urgency:=mluDebug;
WorkerMessages.Add(MsgLine);
end;
end;
// let all parsers improve the new messages