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

IDE: fpc msg parser: mark ld stderr as warning, mark warning about link.res -T as verbose

Browse Source 
git-svn-id: trunk@60775 -
This commit is contained in:
mattias 2019-03-26 14:15:33 +00:00
parent 414727c13f
commit 19e7d42dad
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ide/etfpcmsgparser.pas
View File

@ -1506,6 +1506,8 @@ const
patLD: String = '/usr/bin/ld: ';
var
MsgLine: TMessageLine;
Urgency: TMessageLineUrgency;
s: string;
begin
if CompareMem(PChar(patUndefinedSymbol),p,length(patUndefinedSymbol)) then
begin
@ -1522,11 +1524,17 @@ begin
MsgLine:=CreateMsgLine;
MsgLine.MsgID:=0;
MsgLine.SubTool:=SubToolFPCLinker;
s:=p;
Urgency:=mluHint;
if fMsgIsStdErr then
MsgLine.Urgency:=mluError
else
MsgLine.Urgency:=mluHint;
MsgLine.Msg:='linker: '+p;
begin
Urgency:=mluWarning;
if (Pos('link.res',s)>0) and (Pos(' -T',s)>0) then
// /usr/bin/ld: warning: /path/link.res contains output sections; did you forget -T?
Urgency:=mluVerbose;
end;
MsgLine.Urgency:=Urgency;
MsgLine.Msg:='linker: '+s;
inherited AddMsgLine(MsgLine);
exit(true);
end;